Anonymous user
Evaluate binomial coefficients: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 656:
Binomial (33,17) = 1166803110
</pre>
=={{header|Factor}}==
<lang factor>
: fact ( n -- n-factorial )
dup 0 = [ drop 1 ] [ dup 1 - fact * ] if ;
: choose ( n k -- n-choose-k )
2dup - fact swap fact * swap fact swap / ;
! outputs 10
5 3 choose .
=={{header|F Sharp|F#}}==
| |||