Evaluate binomial coefficients: Difference between revisions
Add min
m (→Functional: ok, doesn't need to be a sub-heading. just rewrote with small description, 'alternate version') |
(Add min) |
||
Line 1,509:
binomial(a, b); /* binomial(a, b) */
makegamma(%); /* gamma(a + 1)/(gamma(-b + a + 1)*gamma(b + 1)) */</lang>
=={{header|min}}==
{{works with|min|0.19.3}}
<lang min>((dup 0 ==) 'succ (dup pred) '* linrec) :fact
('dup dip dup ((fact) () (- fact) (fact * div)) spread) :binomial
5 3 binomial puts!</lang>
{{out}}
<pre>
10
</pre>
=={{header|МК-61/52}}==
| |||