Ivana-

#include "stdafx.h"
#include <iostream>
#include <fstream>
#include <string>
#include <map>
#include <vector>
#include <algorithm>

// компаратор пары в нужном порядке

Ivana-

# https://www.onlinegdb.com/online_python_interpreter#

'''
-- immutable, persistent, coinductive streams

ones = 1 : ones

fibs = 0 : 1 : zipWith (+) fibs (tail fibs)

hamm = 1 : map (*2) hamm `f` map (*3) hamm `f` map (*5) hamm where

Ivana-

print("\n\n\n")

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


// scons(h, t) = cons(h, lz(() => t))

Ivana-

(do

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



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

Ivana-

"""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

Ivana-

"use strict";

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

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

const nil = cons(null, null)

Ivana-

  (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

Ivana-

create table organization (
  id int,
  parent int,
  name text
);

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

Ivana-

;; 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"]

Ivana-

.....................................................................................................................................................#########.................................................................................................................................................
.....................................................................................................................................................#*******#.................................................................................................................................................
.....................................................................................................................................................#*******#.................................................................................................................................................
................................................................................................................