From f4e01b6401a224fddc3143b15031c6ef60e15efd Mon Sep 17 00:00:00 2001
From: Leah Neukirchen <leah@vuxu.org>
Date: Fri, 15 Dec 2017 13:52:16 +0100
Subject: day14

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

(limited to 'day14.k')

diff --git a/day14.k b/day14.k
new file mode 100644
index 0000000..a634e17
--- /dev/null
+++ b/day14.k
@@ -0,0 +1,12 @@
+d:*0:`day14    / d:"flqrgnkx"
+
+/ from day10.k
+r:{y@(#y)!x+!#y}
+
+S:256
+k:{(r[-m](|y#R),y_R:r[m:S!x 1]@*x;+/y,x 1 2;1+x 2)}
+h:{,/+S\(2/2!+/+2\)'16 0N#*64 k/[;0+x,17 31 73 47 23]/(!S;0;0)}
+
+/ adapted from ok/examples/islands.k by John Earnest
++/+/a:+0,'+(0,,/+2\h@d,"-",)'$!128				/ 8226
+-1+#?,/{a*|/(,x),((-1 1)r'\:x),(-1 1)r\:x}/a*s#1+!*/s:2##a	/ 1128
-- 
cgit 1.4.1