24 lines
479 B
Plaintext
24 lines
479 B
Plaintext
# project euler 82
|
|
|
|
$ 131 & 673 & 234 & 103 & 18
|
|
$ 201 & 96 & 342 & 965 & 150
|
|
$ 630 & 803 & 746 & 422 & 111
|
|
$ 537 & 699 & 497 & 121 & 956
|
|
$ 805 & 732 & 524 & 37 & 331
|
|
≡◇(⋕°/$"_ & _") ⊜□⊸≠@\n
|
|
ε ← # parsed example problem input
|
|
|
|
# ? cost-matrix
|
|
Sol ← /↧≡⌟(
|
|
+⋅⊙⊡◡(
|
|
⊢path(
|
|
⤚⬚∞⊡ +[0_1 1_0 ¯1_0] ¤
|
|
| /↥=⊙(-1⧻)⊣⍉)
|
|
)
|
|
) ⍉˜⊟0°⊏
|
|
⍤⤙≍ 994 Sol ε
|
|
|
|
&fras "cost-matrix.txt"
|
|
⊜(⊜⋕⊸≠@,)⊸≠@\n
|
|
Sol
|