6 lines
287 B
Text
6 lines
287 B
Text
# Use table of edge weights.
|
|
A ← [[0 7 9 0 0 14] [0 0 10 15 0 0] [0 0 0 11 0 2]
|
|
[0 0 0 0 6 0] [0 0 0 0 0 9][0 0 0 0 0 0]]
|
|
Ns ← ⍜⊟⍜⍉(▽⊸≡(≠0⊢)):°⊏⊡:A # Neighbours with costs.
|
|
P ← &p$"Path: _ with cost _"/$"_->_"+@a°□⊢path(Ns|≍)°⊟
|
|
≡P[0_4 0_5]
|