Anonymous user
Evaluate binomial coefficients: Difference between revisions
added МК-61
(→{{header|TXR}}: Added.) |
(added МК-61) |
||
Line 880:
binomial(a, b); /* binomial(a, b) */
makegamma(%); /* gamma(a + 1)/(gamma(-b + a + 1)*gamma(b + 1)) */</lang>
=={{header|МК-61/52}}==
<lang>П1 <-> П0 ПП 22 П2 ИП1 ПП 22 П3
ИП0 ИП1 - ПП 22 ИП3 * П3 ИП2 ИП3
/ С/П ВП П0 1 ИП0 * L0 25 В/О</lang>
''Input'': ''n'' ^ ''k'' В/О С/П.
=={{header|OCaml}}==
| |||