Maximum triangle path sum: Difference between revisions
Content added Content deleted
m (→{{header|Quackery}}: tidy up) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 419: | Line 419: | ||
end zipWith3</syntaxhighlight> |
end zipWith3</syntaxhighlight> |
||
{{Out}} |
{{Out}} |
||
<pre>1320</pre> |
|||
=={{header|Arturo}}== |
|||
<syntaxhighlight lang="arturo">data: {: |
|||
55 |
|||
94 48 |
|||
95 30 96 |
|||
77 71 26 67 |
|||
97 13 76 38 45 |
|||
07 36 79 16 37 68 |
|||
48 07 09 18 70 26 06 |
|||
18 72 79 46 59 79 29 90 |
|||
20 76 87 11 32 07 07 49 18 |
|||
27 83 58 35 71 11 25 57 29 85 |
|||
14 64 36 96 27 11 58 56 92 18 55 |
|||
02 90 03 60 48 49 41 46 33 36 47 23 |
|||
92 50 48 02 36 59 42 79 72 20 82 77 42 |
|||
56 78 38 80 39 75 02 71 66 66 01 03 55 72 |
|||
44 25 67 84 71 67 11 61 40 57 58 89 40 56 36 |
|||
85 32 25 85 57 48 84 35 47 62 17 01 01 99 89 52 |
|||
06 71 28 75 94 48 37 10 23 51 06 48 53 18 74 98 15 |
|||
27 02 92 23 08 71 76 84 15 52 92 63 81 10 44 10 69 93 |
|||
:} |
|||
solve: function [triangle][ |
|||
tri: triangle |
|||
while [1 < size tri][ |
|||
t0: last tri |
|||
chop 'tri |
|||
loop.with:'i tri\[dec size tri] 't -> |
|||
tri\[dec size tri]\[i]: t + max @[t0\[i] t0\[inc i]] |
|||
] |
|||
tri\0\0 |
|||
] |
|||
print solve map split.lines strip data 'x -> |
|||
map split.by:" " strip x 'y -> |
|||
to :integer y |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre>1320</pre> |
<pre>1320</pre> |
||