Андрей Ivana-

## tinkoff_2.clj
(ns tinkoff-2
  (:import [java.util Date]))

;; мутабельный thread-safe (!) атом для хранения списка неотправленных сообщений
(def data (atom []))

;; У вас есть метод `readData` для получения порции непрерывных данных.
;; Данные нужно сразу отослать всем потребителям при помощи `sendData`.

;; Технические детали

## tinkoff_1.clj
(ns tinkoff-1
  (:import [java.util Date]))

;; У вас есть два эквивалентных сервиса, в которых можно узнать статус заявки
;; при помощи функций `getApplicationStatus1` и `getApplicationStatus2`.
;; Каждый из сервисов может вернуть один из ответов:
;; * `Response.Success` в случае успешно выполненного запроса
;; * `Response.RetryAfter` в случае, если сервис не может выполнить запрос, поле `delay` - желательная задержка перед повторным запросом
;; * `Response.Failure` в случае, если в ходе обработки запроса произошла ошибка

## index.html
<!doctype html>
<html lang="en">
  <head>
    <meta charset="UTF-8">
    <meta name="viewport" content="width=device-width, initial-scale=1">
    <style>
      .unauthorized-display-none { display: none }
      .authorized-display-none { display: none }
    </style>
  </head>

## gist:d3a3f6017e0cdd605a3fe8e03ab8012f
.....................................................................................................................................................#########.................................................................................................................................................
.....................................................................................................................................................#*******#.................................................................................................................................................
.....................................................................................................................................................#*******#.................................................................................................................................................
................................................................................................................

## toast.cljs
;; toast ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defn- create-element-from-hiccup [hiccup-data]
  (let [tmp (.createElement js/document "div")
        content (rds/render-to-static-markup hiccup-data)]
    (aset tmp "innerHTML" content)
    (.-firstChild tmp)))

(defn- get-create-toast-container []
  (let [container-id "ivana_toast_container"]

## task.sql
create table organization (
  id int,
  parent int,
  name text
);

insert into organization (id, parent, name)
values (1, null, 'ГКБ 1')
	    ,(2, null, 'ГКБ 2')
	    ,(3, 1, 'Детское отделение')

## take-first-sorted-by.clj
  (defn take-first-sorted-by
    "Performs the same result as (take n (sort-by keyfn comp coll))
     but more efficient in terms of time and memory"
    ([n keyfn coll] (take-first-sorted-by n keyfn compare coll))
    ([n keyfn ^java.util.Comparator comp coll]
     (if (pos? n)
       (let [m ^java.util.TreeMap (java.util.TreeMap. comp)
             m-size (volatile! 0)
            ;;  if it is guaranteed that (keyfn v) will be unique for all v in coll
            ;;  we can attach :unique? key to keyfn meta and algorythm will use single val map

## cps.js
"use strict";

///////////////////////////////////////////////////////////////////////////////////////////////////////////

// волшебная троица
const cons = (x, y) => [x,y]
const car  = (l)    => l[0]
const cdr  = (l)    => l[1]

const nil = cons(null, null)

## apstraTask.py
"""Minimal subnetwork."""

def minSubNetMask(ips):
    m = 0
    for ip in ips: m |= ips[0] ^ ip
    full = (1 << 32) - 1 # 128 for IPv6
    return (full << m.bit_length()) & full

def tst(ips, res):
    r = minSubNetMask(ips) == res

## webinar2.clj
(do

(def ones
  (lazy-seq (cons 1 ones)))
(prn (take 10 ones))


(defn intfrom [n]
  (lazy-seq (cons n (intfrom (+ 1 n)))))
	(ns tinkoff-2
	(:import [java.util Date]))

	;; мутабельный thread-safe (!) атом для хранения списка неотправленных сообщений
	(def data (atom []))

	;; У вас есть метод `readData` для получения порции непрерывных данных.
	;; Данные нужно сразу отослать всем потребителям при помощи `sendData`.

	;; Технические детали
	(ns tinkoff-1
	(:import [java.util Date]))

	;; У вас есть два эквивалентных сервиса, в которых можно узнать статус заявки
	;; при помощи функций `getApplicationStatus1` и `getApplicationStatus2`.
	;; Каждый из сервисов может вернуть один из ответов:
	;; * `Response.Success` в случае успешно выполненного запроса
	;; * `Response.RetryAfter` в случае, если сервис не может выполнить запрос, поле `delay` - желательная задержка перед повторным запросом
	;; * `Response.Failure` в случае, если в ходе обработки запроса произошла ошибка
	<!doctype html>
	<html lang="en">
	<head>
	<meta charset="UTF-8">
	<meta name="viewport" content="width=device-width, initial-scale=1">
	<style>
	.unauthorized-display-none { display: none }
	.authorized-display-none { display: none }
	</style>
	</head>
	.....................................................................................................................................................#########.................................................................................................................................................
	.....................................................................................................................................................#*******#.................................................................................................................................................
	.....................................................................................................................................................#*******#.................................................................................................................................................
	................................................................................................................
	;; toast ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	(defn- create-element-from-hiccup [hiccup-data]
	(let [tmp (.createElement js/document "div")
	content (rds/render-to-static-markup hiccup-data)]
	(aset tmp "innerHTML" content)
	(.-firstChild tmp)))

	(defn- get-create-toast-container []
	(let [container-id "ivana_toast_container"]
	create table organization (
	id int,
	parent int,
	name text
	);

	insert into organization (id, parent, name)
	values (1, null, 'ГКБ 1')
	,(2, null, 'ГКБ 2')
	,(3, 1, 'Детское отделение')
	(defn take-first-sorted-by
	"Performs the same result as (take n (sort-by keyfn comp coll))
	but more efficient in terms of time and memory"
	([n keyfn coll] (take-first-sorted-by n keyfn compare coll))
	([n keyfn ^java.util.Comparator comp coll]
	(if (pos? n)
	(let [m ^java.util.TreeMap (java.util.TreeMap. comp)
	m-size (volatile! 0)
	;; if it is guaranteed that (keyfn v) will be unique for all v in coll
	;; we can attach :unique? key to keyfn meta and algorythm will use single val map
	"use strict";

	///////////////////////////////////////////////////////////////////////////////////////////////////////////

	// волшебная троица
	const cons = (x, y) => [x,y]
	const car = (l) => l[0]
	const cdr = (l) => l[1]

	const nil = cons(null, null)
	"""Minimal subnetwork."""

	def minSubNetMask(ips):
	m = 0
	for ip in ips: m \|= ips[0] ^ ip
	full = (1 << 32) - 1 # 128 for IPv6
	return (full << m.bit_length()) & full

	def tst(ips, res):
	r = minSubNetMask(ips) == res
	(do

	(def ones
	(lazy-seq (cons 1 ones)))
	(prn (take 10 ones))



	(defn intfrom [n]
	(lazy-seq (cons n (intfrom (+ 1 n)))))