From b7139aec67506ba6b7efa9f65ebe7d8ecbdfdd14 Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Fri, 25 Dec 2015 16:36:11 +0100
Subject: day24

---
 day24.k5 | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 day24.k5

(limited to 'day24.k5')

diff --git a/day24.k5 b/day24.k5
new file mode 100644
index 0000000..0a3ea6f
--- /dev/null
+++ b/day24.k5
@@ -0,0 +1,8 @@
+/ use ok
+
+n:4
+d:{x@>x}@.:'-1_0:"day24"
+g:(+/d)%n
+r:{`0:,$#x; $[6<#x; (); g=t:+/x; ,x; (t<g)&(0<#y); ,/{[v]r[x,*v;1_v]}'(!#y)_\:y; ()]}
+s:r[(); d]
+&/*/'s
-- 
cgit 1.4.1