day24

1 files changed, 15 insertions, 0 deletions

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[]];