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    | 28 ++++++++++++++++++++++++++++
 day24.k  | 15 +++++++++++++++
 day24.k5 |  8 ++++++++
 3 files changed, 51 insertions(+)
 create mode 100644 day24
 create mode 100644 day24.k
 create mode 100644 day24.k5

diff --git a/day24 b/day24
new file mode 100644
index 0000000..e204f7d
--- /dev/null
+++ b/day24
@@ -0,0 +1,28 @@
+1
+3
+5
+11
+13
+17
+19
+23
+29
+31
+37
+41
+43
+47
+53
+59
+67
+71
+73
+79
+83
+89
+97
+101
+103
+107
+109
+113
diff --git a/day24.k b/day24.k
new file mode 100644
index 0000000..3bc50bc
--- /dev/null
+++ b/day24.k
@@ -0,0 +1,15 @@
+d:0$'0:"day24";
+
+/ n:3;
+n:4;
+
+/ stupid eager brute forcing
+r:{b::n#0; p:: (n;0)#(); { p[*<b],:x; b[*<b]+:x }'x; :[b~n#(+/d)%n; p; ()]};
+
+s:{x::();
+ while[x~();x::r[d@(-#d)?#d]];
+ m::m& */x@*<#:'x;
+ `0:($m),"\n";};
+
+m:0I;
+while[1;s[]];
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