From f50c04e071ededa9ddbe74e072caffd8e3d0cbec Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Thu, 15 Dec 2016 20:49:31 +0100
Subject: day15

---
 day15.k | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 day15.k

(limited to 'day15.k')

diff --git a/day15.k b/day15.k
new file mode 100644
index 0000000..7741439
--- /dev/null
+++ b/day15.k
@@ -0,0 +1,14 @@
+{n::x;p::y}.+{.:'x 3 11}'" "\'0:"day15"
+{n::x;p::y}..:''(+" "\'0:"day15")@3 11
+
+-1+{0<+/n!'p+x+!#p}(1+)/0	/ 203660
+-1+{(0<+/x!'y+(!#y)+)(1+)/0}..:''(+" "\'0:"day15")@3 11
+{m::*/x;m!+/(x-x!'y+1+!#y)*{v*(~1=x!(v:m%x)*)(1+)/1}'x}..:''(+" "\'0:"day15")@3 11
+-1+0{(0<y[1]!y[0]+)(y[2]+)/x}/{(+(y+!#y;x;-1_1,*\x))}..:''(+" "\'0:"day15")@3 11
+
+n,:11; p,:0
+
+-1+{0<+/n!'p+x+!#p}(1+)/0	/ 2408135
+-1+{(0<+/x!'y+(!#y)+)(1+)/0}.(.:''(+" "\'0:"day15")@3 11),'11 0
+{m::*/x;m!+/(x-x!'y+1+!#y)*{v*(~1=x!(v:m%x)*)(1+)/1}'x}.(.:''(+" "\'0:"day15")@3 11),'11 0
+-1+0{(0<y[1]!y[0]+)(y[2]+)/x}/{(+(y+!#y;x;-1_1,*\x))}.(.:''(+" "\'0:"day15")@3 11),'11 0
-- 
cgit 1.4.1