Catalan numbers/Pascal's triangle: Difference between revisions
added Factor
(added Factor) |
|||
Line 539:
</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}}==
| |||