From bfab0ac65ae9860285c66704e260dde434d5da1f Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Sat, 12 Dec 2015 14:57:41 +0100
Subject: day12

---
 day12.k | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 day12.k

(limited to 'day12.k')

diff --git a/day12.k b/day12.k
new file mode 100644
index 0000000..4897efe
--- /dev/null
+++ b/day12.k
@@ -0,0 +1,10 @@
+/ k4/q with json.k loaded
+d: .j.k@,/0::`day12
+
+s1:{$[(0=@x)|(98=@x)|(9=@x);+/.z.s'x; 99=@x;.z.s@.:x; 0>@x;x; 0]}
+s1 d
+
+check:{~#&x~\:y}
+
+s2:{$[(0=@x)|(98=@x)|(9=@x);+/.z.s'x; 99=@x;check[.:x;"red"]*.z.s@.:x; 0>@x;x; 0]}
+s2 d
-- 
cgit 1.4.1