aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Evaluate-binomial-coefficients/Picat/evaluate-binomial-coefficients-1.picat Normal file
View file

@ -0,0 +1,10 @@
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.

1
Task/Evaluate-binomial-coefficients/Picat/evaluate-binomial-coefficients-2.picat Normal file
View file

@ -0,0 +1 @@
binomial_fac(N,K) = factorial(N) // factorial(K) // factorial(N-K).

4
Task/Evaluate-binomial-coefficients/Picat/evaluate-binomial-coefficients-3.picat Normal file
View file

@ -0,0 +1,4 @@
table
binomial_rec(_N, 0) = 1.
binomial_rec(0, _K) = 0.
binomial_rec(N, K) = binomial_rec(N-1,K-1) + binomial_rec(N-1,K).

6
Task/Evaluate-binomial-coefficients/Picat/evaluate-binomial-coefficients-4.picat Normal file
View file

@ -0,0 +1,6 @@
go =>
Tests = [[10,3],[60,30],[100,50],[400,200]],
foreach([N,K] in Tests)
println([N,K,binomial_it(N,K)])
end,
nl.