From 16625179ec285a8d5c70b459e29fd8d2c33771f9 Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Sat, 19 Dec 2015 18:04:10 +0100
Subject: day18

---
 day18.k | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 day18.k

(limited to 'day18.k')

diff --git a/day18.k b/day18.k
new file mode 100644
index 0000000..1ee4395
--- /dev/null
+++ b/day18.k
@@ -0,0 +1,18 @@
+d:{".#"?/:x}'0:"day18";
+
+h:{-1 _ ++0,x}; n:{1 _ ++x,0};
+
+life:{
+/ breaks kona: s:(h@d)+(n@d)+(h'd)+(n'd)+(n'h@d)+(h'h@d)+(h'n@d)+(n'n@d);
+s:(h@x)+(n@x)+(+h@+x)+(+n@+x)+(+n@+h@x)+(+h@+h@x)+(+h@+n@x)+(+n@+n@x);
+:((x=1)&(s=2)|(s=3))|(x=0)&(s=3)
+};
+
+s: 100 life/d;
++/+/s
+
+m:(^d)#0;
+m[0 99; 0 99]: 1;
+
+s: 100 {m|life[x]}/d;
++/+/s
-- 
cgit 1.4.1