10 lines
168 B
Text
10 lines
168 B
Text
binomial_it(N,K) = Res =>
|
|
if K < 0 ; K > N then
|
|
R = 0
|
|
else
|
|
R = 1,
|
|
foreach(I in 0..K-1)
|
|
R := R * (N-I) // (I+1)
|
|
end
|
|
end,
|
|
Res = R.
|