Day1
)copy loaddata
a←LoadTEXT 'input.txt'
a←{⍎⍵}¨¯1↓a
d1←{+/(⌊⍵÷3)-2}
d2←{
f←{r←d1 ⍵ ⋄ r≤0:⍺ ⋄ (⍺+r)∇ r}
+/(0 f⊢)¨⍵
}
Day2
d2←'1,0,...'
d2←⎕JSON '[',d2,']'
∇R←q3 prog;⎕IO;mem;c;op;r1;r2;r3
⎕IO←0
mem←prog
mem[1]←12
mem[2]←2
c←0
LOOP:
op←mem[c]
→(1 2 99=op)/ADD MUL HALT
ADD:op←'+'
→COM
MUL:op←'×'
COM:
r1←mem[c+1]
r2←mem[c+2]
r3←mem[c+3]
mem[r3]←⍎op,'/mem[r1 r2]'
c+←4
→LOOP
HALT:
R←mem[0]
∇
⍝ Part 2 is easy once you discover the relation between input and output is polynomial