8 lines
304 B
Text
8 lines
304 B
Text
~ "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)⊢
|