1 files changed, 10 insertions, 0 deletions
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