Catalan numbers/Pascal's triangle: Difference between revisions
→{{header|Perl 6}}: adding Perl section
(→{{header|Racket}}: Add Python) |
(→{{header|Perl 6}}: adding Perl section) |
||
Line 44:
{{out}}
<pre>1 2 5 14 42 132 429 1430 4862 16796 58786 208012 742900 2674440 9694845 </pre>
=={{header|Perl}}==
{{trans|C++}}
<lang Perl>use constant N => 15;
my @t = (0, 1);
for(my $i = 1; $i <= N; $i++) {
for(my $j = $i; $j > 1; $j--) { $t[$j] += $t[$j-1] }
$t[$i+1] = $t[$i];
for(my $j = $i+1; $j>1; $j--) { $t[$j] = $t[$j] + $t[$j-1] }
print $t[$i+1] - $t[$i], " ";
}</lang>
{{out}}
<pre>1 2 5 14 42 132 429 1430 4862 16796 58786 208012 742900 2674440 9694845</pre>
=={{header|Perl 6}}==
Line 76 ⟶ 89:
1767263190
6564120420</pre>
=={{header|Python}}==
{{trans|C++}}
| |||