2021 day 11
This commit is contained in:
parent
1412646bd1
commit
08d93ade69
4 changed files with 38 additions and 0 deletions
13
2021/day11/day11.bqn
Normal file
13
2021/day11/day11.bqn
Normal file
|
@ -0,0 +1,13 @@
|
|||
in←'0'-˜>•FLines"input"
|
||||
|
||||
fs←⟨«,»,«˘,»˘,»∘(»˘),«∘(«˘),«∘(»˘),«˘∘»⟩
|
||||
Flash←{𝕊flashed‿m:
|
||||
flashed+↩9<m
|
||||
⟨flashed,(¬flashed)×m++´fs{𝕎𝕩}¨<9<m⟩
|
||||
}
|
||||
Step←{𝕊f‿m:
|
||||
Flash•_while_{∨´⥊9<1⊑𝕩} ⟨(≢f)⥊0,1+m⟩
|
||||
}
|
||||
•Show +´⥊+´⊑¨Step⍟(1+↕100)⟨(≢in)⥊0,in⟩
|
||||
|
||||
•Show ⊑/∧´∘⥊¨⊑¨Step⍟(↕300)⟨(≢in)⥊0,in⟩
|
Loading…
Add table
Add a link
Reference in a new issue