dimitri/advent-of-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

2024 day 6 optim

Browse source
This commit is contained in:
Dimitri Lozeve 2024-12-07 12:26:38 +01:00
parent 829f92b899
commit 6a4ae2dd99
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
2024/day06/day06.bqn
View file

@ -1,15 +1,16 @@
in←>•FLines"input"
map←'#'=in
i‿j←⊑¨/¨(∨´˘⋈∨˝)'^'=in
i‿j←⊑/○⥊⟜(↕≢)'^'=in
Move←{𝕊map‿i‿j‿v:
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⟩
⟨⌽∘⍉map,(≠map)-j+1,newi,⌽∘⍉v,k+1⟩
}
•Show +´⥊3⊑Move•_while_(0≤2⊸⊑)⟨map,i,j,(≢map)⥊0⟩
≠·‿·‿·‿v‿k←Move•_while_(0≤2⊸⊑)⟨map,i,j,(≢map)⥊0,0⟩
•Show +´⥊v
candidates←≢⟜i‿j¨⊸/⥊↕≢map
Stop←{𝕊map‿i‿j‿v: ((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⟩}¨candidates
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