RosettaCodeData/Task/Maximum-triangle-path-sum/Perl-6/maximum-triangle-path-sum-2.pl6

sub infix:<op>(@a,@b) { (@a Zmax @a[1..*]) Z+ @b }

say [op] slurp("triangle.txt").lines.reverse.map: { [.words] }