September 2017 Update

Task/Evaluate-binomial-coefficients/Phix/evaluate-binomial-coefficients-1.phix

@@ -0,0 +1,5 @@
+function binom(integer n, k)
+    return factorial(n)/(factorial(k)*factorial(n-k))
+end function
+
+?binom(5,3)

Task/Evaluate-binomial-coefficients/Phix/evaluate-binomial-coefficients-2.phix

@@ -0,0 +1,14 @@
+include builtins\bigatom.e
+
+function ba_binom(integer n, k)
+bigatom r = ba_new(1)
+    for i=1 to k do
+        r = ba_divide(ba_multiply(r,n-i+1),i)
+    end for
+    return r
+end function
+
+?ba_sprintf("%B",ba_binom(5,3))
+?ba_sprintf("%B",ba_binom(100,50))
+?ba_sprintf("%B",ba_binom(60,30))
+?ba_sprintf("%B",ba_binom(1200,120))