Evaluate binomial coefficients: Difference between revisions
→{{header|K}}
(add link to Delphi for pascal) |
|||
Line 541:
print(binom(5,3));</lang>
<pre>10</pre>
=={{header|K}}==
<lang K> {[n;k]_(*/(k-1)_1+!n)%(*/1+!k)} . 5 3
10</lang>
Alternative version:
<lang K> {[n;k]i:!(k-1);_*/((n-i)%(i+1))} . 5 3
10</lang>
Using Pascal's triangle:
<lang K> pascal:{x{+':0,x,0}\1}
pascal 5
(1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1)
{[n;k](pascal n)[n;k]} . 5 3
10</lang>
=={{header|Logo}}==
| |||