Evaluate binomial coefficients: Difference between revisions
→{{header|AutoHotkey}}
m (moved PL/I below PHP and PicoLisp) |
Catskill549 (talk | contribs) |
||
Line 253:
Message box shows:
<pre>10</pre>
=={{header|AWK}}==
<lang AWK>
# syntax: GAWK -f EVALUATE_BINOMIAL_COEFFICIENTS.AWK
BEGIN {
main(5,3)
main(100,2)
main(33,17)
exit(0)
}
function main(n,k, i,r) {
r = 1
for (i=1; i<k+1; i++) {
r *= (n - i + 1) / i
}
printf("%d %d = %d\n",n,k,r)
}
</lang>
{{out}}
<pre>
5 3 = 10
100 2 = 4950
33 17 = 1166803110
</pre>
=={{header|BBC BASIC}}==
| |||