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

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

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