Anonymous user
Maximum triangle path sum: Difference between revisions
→{{header|Perl 6}}: add entry
(Better task description.) |
(→{{header|Perl 6}}: add entry) |
||
Line 57:
<pre>1320</pre>
=={{header|Perl 6}}==
<lang perl6>my @rows = slurp("triangle.txt").lines.map: { [.words] }
while @rows > 1 {
my @last := @rows.pop;
@rows[*-1] = @rows[*-1] Z+ (@last Zmax @last.rotate);
}
say @rows;</lang>
{{out}}
<pre>1320</pre>
=={{header|Python}}==
A simple mostly imperative solution:
| |||