Anonymous user
Catalan numbers/Pascal's triangle: Difference between revisions
→{{header|Perl 6}}: add entry
(→Tcl: Added implementation) |
(→{{header|Perl 6}}: add entry) |
||
Line 24:
</pre>
=={{header|Perl 6}}==
<lang perl6>constant @pascal = [1], -> @p { [0, @p Z+ @p, 0] } ... *;
constant @catalan = gather for 2, 4 ... * -> $ix {
my @row := @pascal[$ix];
my $mid = +@row div 2;
take [-] @row[$mid, $mid+1]
}
.say for @catalan[^20];</lang>
{{out}}
<pre>1
2
5
14
42
132
429
1430
4862
16796
58786
208012
742900
2674440
9694845
35357670
129644790
477638700
1767263190
6564120420</pre>
=={{header|Run BASIC}}==
<lang runbasic>n = 15
| |||