From bff8b596a3a6ff4b363801fa058f1f35bc328ecf Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Sat, 19 Dec 2015 19:20:38 +0100
Subject: day19

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

(limited to 'day19.k')

diff --git a/day19.k b/day19.k
new file mode 100644
index 0000000..4626560
--- /dev/null
+++ b/day19.k
@@ -0,0 +1,14 @@
+/ use k-3.2
+ss:{1 _' (&y=y,x) _ y,x}; / split x at y
+l:{ss[x;" "]@0 2}' -2 _ 0:"day19";
+s:*|0:"day19";
+
+ssall:{[x;y;z]{[n](n#x),z,(n+#y) _ x}' x _ss y} / all substitutions
+
+#?,/{ssall[s;x@0;x@1]}'l / part 1
+
+step1:{[s],/{ssall[s;x@1;x@0]}'l}
+lim:{:[100<#x;100#x;x]}
+c:0
+{c+:1;r:?,/step1'x;lim@r@<#:'r}/[#:;,s];
+c-1 / part 2
-- 
cgit 1.4.1