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
|