Maximum triangle path sum: Difference between revisions
Content added Content deleted
(→{{header|Perl 6}}: update to latest semantics) |
|||
| Line 201: | Line 201: | ||
while @rows > 1 { |
while @rows > 1 { |
||
my @last := @rows.pop; |
my @last := @rows.pop; |
||
@rows[*-1] = @rows[*-1] Z+ (@last Zmax @last[1..*]); |
@rows[*-1] = @rows[*-1][] Z+ (@last Zmax @last[1..*]); |
||
} |
} |
||