aoc2022d10

      ⎕VR 'foo'
     ∇ res←foo data;fn;d;st;i                             
[1]    fn←{res←⊃(//)⎕VFI('-'⎕R'¯')⍵ ⋄ 0=≢res:1 0 ⋄ 2,⊃res}
[2]    d←fn¨data                                          
[3]    st←(⊂0 1)                                          
[4]    :For i :In d                                       
[5]        st,←⊂i+⊃⌽st                                    
[6]    :EndFor                                            
[7]    res←st                                             
     ∇
      data←⊃⎕NGET'input.txt' 1
      tb←↑foo test
      fn←{⊃⌽tb[;2]/⍨tb[;1]<⍵}
      ⍝ Part 1
      +/s×fn¨s←20 60 100 140 180 220
      ⍝ Part 2
      ' #'[1+1≥|(6 40⍴¯1+⍳40)-(6 40⍴fn¨⍳240)]