~ "maze-generation.ua" ~ GetWall H Maze N₄ W
Maze
Start ← 1_1
End   ← -Start ×2 H_W
# (pos grid) -> 1-4 next steps, without walls in the way.
Ns ← ≡⊡1▽:⟜(≡(=@ ⊡)⊙¤≡GetWall)≡⊟¤⊃⋅∘∘ ⊸N₄
path(Ns|≍End) Start # Solve (djikstra)
$"_ moves"⧻⟜(∧⍜⊡⋅@O)⊢