Data update

2024-03-06 22:25:12 -08:00 · 2024-03-06 22:25:12 -08:00 · 0df55f9f24
commit 0df55f9f24
parent ed705008a8
2196 changed files with 32999 additions and 3075 deletions
--- a/Task/Evaluate-binomial-coefficients/Standard-ML/evaluate-binomial-coefficients.ml
+++ b/Task/Evaluate-binomial-coefficients/Standard-ML/evaluate-binomial-coefficients.ml
@ -0,0 +1,5 @@
+fun binomial n k =
+    if k > n then 0 else
+    let fun f (_, 0) = 1
+          | f (i, d) = f (i + 1, d - 1) * i div d
+    in f (n - k + 1, k) end