about summary refs log blame commit diff
path: root/users/sterni/exercises/aoc/2022/12/12.bqn
blob: cf42f6f899ca51467a8af5ec4de77beaac086cb2 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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