From 43bafa7072da57abab5b35b03f52b09affe7cccc Mon Sep 17 00:00:00 2001 From: Christian Neukirchen Date: Sun, 25 Dec 2016 15:44:44 +0100 Subject: day25 --- day25.k | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 day25.k (limited to 'day25.k') diff --git a/day25.k b/day25.k new file mode 100644 index 0000000..a569897 --- /dev/null +++ b/day25.k @@ -0,0 +1,7 @@ +p:" "\'0:"day25" +v:{(r,"i"$,x)"abcd"?*x} +e:{t:"abcd"?*|c:p[i]; i+:1; s:~[**c;] + $[s"o";`0:$v@c@1; s"c";r[t]:v@c@1; s"i";r[t]+:1; s"d";r[t]-:1; s"j";i+:(-1+v@*|c)*~0=v@c@1];r} + +a:(2/12#1 0)-7*365 / 175 +r:a,0 0 0;i:0;*1000000 e/1 -- cgit 1.4.1