aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Update all new Tasks

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 09:02:09 -05:00
parent 00a190b0a6
commit 91df62d461
5697 changed files with 93386 additions and 804 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Maximum-triangle-path-sum/Perl-6/maximum-triangle-path-sum-1.pl6 Normal file
View file

@ -0,0 +1,8 @@
my @rows = slurp("triangle.txt").lines.map: { [.words] }
while @rows > 1 {
my @last := @rows.pop;
@rows[*-1] = @rows[*-1][] Z+ (@last Zmax @last[1..*]);
}
say @rows;

3
Task/Maximum-triangle-path-sum/Perl-6/maximum-triangle-path-sum-2.pl6 Normal file
View file

@ -0,0 +1,3 @@
sub infix:<op>(@a,@b) { (@a Zmax @a[1..*]) Z+ @b }
say [op] slurp("triangle.txt").lines.reverse.map: { [.words] }

3
Task/Maximum-triangle-path-sum/Perl-6/maximum-triangle-path-sum-3.pl6 Normal file
View file

@ -0,0 +1,3 @@
sub infix:<op>(@a,@b) is assoc('right') { @a Z+ (@b Zmax @b[1..*]) }
say [op] slurp("triangle.txt").lines.map: { [.words] }