16 lines
600 B
BQN
16 lines
600 B
BQN
in←>•FLines"input"
|
||
map←'#'=in
|
||
i‿j←⊑/○⥊⟜(↕≢)'^'=in
|
||
|
||
Move←{𝕊map‿i‿j‿v‿k:
|
||
p←⌽/i↑j⊏˘map
|
||
newi←{0<≠p ? 1+⊑p ; ¯1}
|
||
v↩1¨⌾((∾⟜j¨1+newi+↕i-newi)⊸⊑)v
|
||
⟨⌽∘⍉map,(≠map)-j+1,newi,⌽∘⍉v,k+1⟩
|
||
}
|
||
≠·‿·‿·‿v‿k←Move•_while_(0≤2⊸⊑)⟨map,i,j,(≢map)⥊0,0⟩
|
||
•Show +´⥊v
|
||
|
||
cs←>/○⥊⟜(↕≢)⌽∘⍉⁼⍟k v
|
||
Stop←{𝕊map‿i‿j‿v‿k: ((i‿j⊑v)∧(¬⟨i-1,j⟩⊑v)∨(¬⟨i+1,j⟩⊑v))∨j<0}
|
||
•Show +´{0≤2⊑Move•_while_(¬Stop)⟨1⌾(𝕩⊸⊑)map,i,j,(≢map)⥊0,0⟩}˘cs
|