feat(sterni/aoc/2022): day12 BQN solution
Change-Id: Ib80fe824341964f46a45599c18fa00635ba02aaf Reviewed-on: https://cl.tvl.fyi/c/depot/+/7600 Tested-by: BuildkiteCI Reviewed-by: sterni <sternenseemann@systemli.org> Autosubmit: sterni <sternenseemann@systemli.org>
This commit is contained in:
parent
15e98314cc
commit
c9a44bfe15
1 changed files with 16 additions and 0 deletions
16
users/sterni/exercises/aoc/2022/12/12.bqn
Normal file
16
users/sterni/exercises/aoc/2022/12/12.bqn
Normal file
|
@ -0,0 +1,16 @@
|
|||
⟨ImportBqnLibs,_fix⟩ ← •Import "../../lib.bqn"
|
||||
⟨ReplaceAll⟩ ← ImportBqnLibs "strings.bqn"
|
||||
i ← >•FLines "input"
|
||||
|
||||
elevation ← 'a'-˜⟨"S","E"⟩‿⟨"a","z"⟩ ReplaceAll⌾⥊ i
|
||||
starts ← (⊏⟜∞‿0)¨⟨'S'=i,0=elevation⟩
|
||||
end ← 'E'=i
|
||||
|
||||
Step ← {
|
||||
𝕊 steps:
|
||||
Go ← {𝕏⁼((⊢∾¨↕∘≢)(≤⟜(∞⊸»˘∘+⟜1))˜𝕏elevation)⊑>((⥊⟜∞)∘≢⊸⋈)˜∞⊸»˘1+𝕏steps}
|
||||
steps⌊´Go¨⟨⊢,⌽˘,⍉,⍉⌽⟩
|
||||
}
|
||||
Shortest ← {⊑end/⊸⊏○⥊Step _fix 𝕩}
|
||||
|
||||
•Out¨ "day12.1: "‿"day12.2: "∾¨ •Fmt∘Shortest¨ starts
|
Loading…
Reference in a new issue