Anonymous user
Pascal's triangle: Difference between revisions
→{{header|Perl 6}}: update
(→using a lazy sequence generator: glrify) |
(→{{header|Perl 6}}: update) |
||
Line 2,435:
=={{header|Perl 6}}==
{{works with|rakudo|2015-10-03}}
=== using a lazy sequence generator ===
Line 2,455:
{{trans|Haskell}}
<lang perl6>multi sub pascal (1) { $[1] }
multi sub pascal (Int $n where 2..*) {
my @rows = pascal $n - 1;
|@rows, [0, |@rows[*-1
}
.say for pascal 10;</lang>
Line 2,471:
say my @last = 1;
for 1 .. $n - 1 -> $row {
@last = 1, |map({ @last[$_] + @last[$_ + 1] }, 0 .. $row - 2), 1;
say @last;
}
}
pascal 10;</lang>
Line 2,481:
{{Output}}
<pre>[1]
[1 1]
[1 2 1]
[1 3 3 1]
[1 4 6 4 1]
[1 5 10 10 5 1]
[1 6 15 20 15 6 1]
[1 7 21 35 35 21 7 1]
[1 8 28 56 70 56 28 8 1]
[1 9 36 84 126 126 84 36 9 1]</pre>
=={{header|PHP}}==
| |||