Catalan numbers: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Combine into a single file for ease of testing) |
|||
| Line 2,611: | Line 2,611: | ||
=={{header|Oforth}}== |
=={{header|Oforth}}== |
||
<lang Oforth>: catalan( |
<lang Oforth>: catalan( n -- m ) |
||
n ifZero: [ 1 ] else: [ catalan( n 1- ) 2 n * 1- * 2 * n 1+ / ] ;</lang> |
|||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||
import: mapping |
|||
seqFrom(0, 15) map(#catalan) . |
seqFrom(0, 15) map( #catalan ) . |
||
[1, 1, 2, 5, 14, 42, 132, 429, 1430, 4862, 16796, 58786, 208012, 742900, 2674440, 9694845] |
[1, 1, 2, 5, 14, 42, 132, 429, 1430, 4862, 16796, 58786, 208012, 742900, 2674440, 9694845] |
||
</pre> |
</pre> |
||