From f75770d98907dbfb1c52a9b05c16ed1c7e40dc06 Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Fri, 23 Dec 2016 18:25:53 +0100
Subject: day23

---
 day23.k | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 day23.k

(limited to 'day23.k')

diff --git a/day23.k b/day23.k
new file mode 100644
index 0000000..1543c43
--- /dev/null
+++ b/day23.k
@@ -0,0 +1,19 @@
+p:" "\'0:"day23"
+v:{(r,"i"$,x)"abcd"?*x}
+
+tgl:{s:~[**p[x]]
+ `0:"TGL ",($x),"\n"
+ $[s"i";p::.[p;x,0;"dec"]
+   s"d";p::.[p;x,0;"inc"]
+   s"t";p::.[p;x,0;"inc"]
+   s"j";p::.[p;x,0;"cpy"]
+   s"c";p::.[p;x,0;"jnz"]
+  ]}
+
+e:{t:"abcd"?**|c:p[i]; i+:1; s:~[**c;]
+ $[s"m";r[0]:r[3]*r[1]; s"t";tgl[i+(-1)+v@*|c]; s"c";$[t<#r;r[t]:v@c@1;]; s"i";r[t]+:1; s"d";r[t]-:1; s"j";i+:(-1+v@*|c)*~0=v@c@1]; r}
+
+r:7 0 0 0;i:0;*{i<#p}e/1	/ 10890
+
+p:" "\'0:"day23.opt"	/ uses mul instruction for a=b*d (insn 4..9)
+r:12 0 0 0;i:0;*{i<#p}e/1	/ 479007450
-- 
cgit 1.4.1