From ec84729ebd3b1e7b482b6679fc4b05cfaebd99af Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Wed, 14 Dec 2016 15:45:08 +0100
Subject: day14

---
 day14.k | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 day14.k

diff --git a/day14.k b/day14.k
new file mode 100644
index 0000000..d516afd
--- /dev/null
+++ b/day14.k
@@ -0,0 +1,19 @@
+d:"zpqevtbw"
+
+k:,/$-15!d,$:
+r:()
+{64>#r}{ t::{~|/(1=#?:)'{1_x,y}\[3#0;k x]}(1+)/x
+  p:: 5#k[t]@*&(1=#?:)'{1_x,y}\[3#0;k t]
+  $[#&{#ss[x;p]}'k't+1+!1000; r,:t;]
+  t+1 }/0;
+*|r	/ 16106
+
+r:()
+h:(,-1)!,""
+s:{$[~""~h[x];h[x];:h[x]:2016(,/$-15!)/(,/$-15!d,$:x)]}
+{64>#r}{ t::{~|/(1=#?:)'{1_x,y}\[3#0;s x]}(1+)/x
+  -1@($t)," ",($#r)
+  p:: 5#s[t]@*&(1=#?:)'{1_x,y}\[3#0;s t]
+  $[#&{#ss[x;p]}'s't+1+!1000; r,:t;]
+  t+1 }/0;
+*|r	/ 22423
-- 
cgit 1.4.1