1 files changed, 19 insertions, 0 deletions
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