Catalan numbers/Pascal's triangle: Difference between revisions
Content added Content deleted
(added Factor) |
|||
Line 539: | Line 539: | ||
</lang> |
</lang> |
||
=={{header|Factor}}== |
|||
<lang factor>USING: arrays grouping io kernel math prettyprint sequences ; |
|||
IN: rosetta-code.catalan-pascal |
|||
: next-row ( seq -- seq' ) |
|||
2 clump [ sum ] map 1 prefix 1 suffix ; |
|||
: pascal ( n -- seq ) |
|||
1 - { { 1 } } swap [ dup last next-row suffix ] times ; |
|||
15 2 * pascal [ length odd? ] filter [ |
|||
dup length 1 = [ 1 ] |
|||
[ dup midpoint@ dup 1 + 2array swap nths first2 - ] if |
|||
pprint bl |
|||
] each drop</lang> |
|||
{{out}} |
|||
<pre> |
|||
1 1 2 5 14 42 132 429 1430 4862 16796 58786 208012 742900 2674440 |
|||
</pre> |
|||
=={{header|FreeBASIC}}== |
=={{header|FreeBASIC}}== |