diff options
Diffstat (limited to 'day23.k')
-rw-r--r-- | day23.k | 19 |
1 files changed, 19 insertions, 0 deletions
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 |