Skip to content

Instantly share code, notes, and snippets.

View akovantsev's full-sized avatar

misha akovantsev akovantsev

3 followers · 1 following
View GitHub Profile
@akovantsev
akovantsev / str-to-plantuml-url.clj
Created April 11, 2023 15:57
string to plantuml url
(ns foo
(:import
java.io.ByteArrayOutputStream
java.util.zip.Deflater
java.util.zip.DeflaterOutputStream))
;; https://plantuml.com/text-encoding
;; https://gist.github.com/ryardley/88001f6822975ece088d41768431f5d6
;; https://github.com/funcool/buddy-core/blob/b152bc77597975770c347f3bc23c8d5833237b25/src/buddy/util/deflate.clj#L28
@akovantsev
akovantsev / gol2.html
Created April 12, 2022 08:36
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
</head>
<body>
<canvas id="field" width="800" height="600"></canvas>
<script type="application/javascript">
@akovantsev
akovantsev / gol.html
Created April 3, 2022 11:31
game of life
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>Title</title>
<style type="text/css">
row {
display: block;
height: 5px;
}
@akovantsev
akovantsev / word diff 2
Created December 14, 2021 07:41
(worddiff2
"yoyoyo y yo yo yo y"
"yoyoyo yo yo y")
[27 :best nil :candidate =+++----- :todo 37]
[29 :best =+++----- :candidate =++=---- :todo 37]
[51 :best =++=---- :candidate ++++------ :todo 73]
[61 :best =++=---- :candidate +-+++----- :todo 88]
[63 :best =++=---- :candidate +-++=---- :todo 88]
[73 :best =++=---- :candidate +++-+----- :todo 101]
@akovantsev
akovantsev / worddiff
Created December 14, 2021 06:54
(worddiff
"yoyoyo y yo yo yo y"
"yoyoyo yo yo y")
[:best nil :candidate ++++------]
[:best ++++------ :candidate +++-+-----]
[:best ++++------ :candidate +++--+----]
[:best ++++------ :candidate +++---+---]
[:best ++++------ :candidate +++----+--]
[:best ++++------ :candidate +++-----+-]
@akovantsev
akovantsev / distinct-by.cljc
Created July 24, 2021 09:48
(defn distinct-by
([f]
(fn [rf]
(let [seen (volatile! #{})]
(fn
([] (rf))
([result] (rf result))
([result x]
(let [v (f x)]
(if (contains? @seen v)
@akovantsev
akovantsev / aoc2020-10-2
Created December 10, 2020 14:53
(52 49 48 47 46 45 42 39 38 35 34 33 32 31 28 25 24 23 20 19 18 17 14 11 10 9 8 7 4 3 2 1 0)
((52 49 48) (49 48 47) (48 47 46) (47 46 45) (46 45 42) (45 42 39) (42 39 38) (39 38 35) (38 35 34) (35 34 33) (34 33 32) (33 32 31) (32 31 28) (31 28 25) (28 25 24) (25 24 23) (24 23 20) (23 20 19) (20 19 18) (19 18 17) (18 17 14) (17 14 11) (14 11 10) (11 10 9) (10 9 8) (9 8 7) (8 7 4) (7 4 3) (4 3 2) (3 2 1) (2 1 0) (1 0) (0))
(((52 49 48) (49 48 47) (48 47 46) (47 46 45) (46 45 42)) ((45 42 39)) ((42 39 38) (39 38 35) (38 35 34) (35 34 33) (34 33 32) (33 32 31) (32 31 28)) ((31 28 25)) ((28 25 24) (25 24 23) (24 23 20) (23 20 19) (20 19 18) (19 18 17) (18 17 14)) ((17 14 11)) ((14 11 10) (11 10 9) (10 9 8) (9 8 7) (8 7 4) (7 4 3) (4 3 2) (3 2 1) (2 1 0) (1 0) (0)))
((52 49 48 47 46) (45) (42 39 38 35 34 33 32) (31) (28 25 24 23 20 19 18) (17) (14 11 10 9 8 7 4 3 2 1 0))
((52 49 48 47 46 45) (42 39 38 35 34 33 32 31) (28 25 24 23 20 19 18 17) (14 11 10 9 8 7 4 3 2 1 0))
@akovantsev
akovantsev / state-battle.html
Last active October 16, 2020 09:22
<body>
<style type="text/css">
body {
width: 600px;
margin-left: auto;
margin-right: auto;
}
pre {
white-space: pre-line;
}
@akovantsev
akovantsev / cursive-shadow-cljs-repl-setup.md
Last active July 28, 2023 20:11
Setting up shadow-cljs cljs REPL in Cursive
@akovantsev
akovantsev / pp-locals.cljc
Last active July 30, 2020 10:25
(defmacro locals-map [& [env]]
;; https://gist.github.com/noisesmith/3490f2d3ed98e294e033b002bc2de178
(let [ks (->> (or env &env)
keys
(remove #{'_})
(remove #(-> % name (str/includes? "__"))))]
(zipmap (map name ks) ks)))
(defmacro pp-locals []
`(clojure.pprint/pprint