2024 day 6

This commit is contained in:
Dimitri Lozeve 2024-12-07 00:20:26 +01:00
parent 45653f84c7
commit 829f92b899
3 changed files with 155 additions and 0 deletions

15
2024/day06/day06.bqn Normal file
View file

@ -0,0 +1,15 @@
in>•FLines"input"
map'#'=in
ij¨/¨(´˘˝)'^'=in
Move{𝕊mapijv:
p/ij˘map
newi{0<p ? 1+p ; ¯1}
v1¨((j¨1+newi+i-newi))v
map,(map)-j+1,newi,v
}
•Show +´3Move•_while_(02)map,i,j,(map)0
candidatesij¨/map
Stop{𝕊mapijv: ((ijv)(¬i-1,jv)(¬i+1,jv))j<0}
•Show +´{02Move•_while_(¬Stop)1(𝕩)map,i,j,(map)0}¨candidates