Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Evaluate-binomial-coefficients/IS-BASIC/evaluate-binomial-coefficients.basic
+++ b/Task/Evaluate-binomial-coefficients/IS-BASIC/evaluate-binomial-coefficients.basic
@ -0,0 +1,13 @@
+100 PROGRAM "Binomial.bas"
+110 PRINT "Binomial (5,3) =";BINOMIAL(5,3)
+120 DEF BINOMIAL(N,K)
+130   LET R=1:LET D=N-K
+140   IF D>K THEN LET K=D:LET D=N-K
+150   DO WHILE N>K
+160     LET R=R*N:LET N=N-1
+170     DO WHILE D>1 AND MOD(R,D)=0
+180       LET R=R/D:LET D=D-1
+190     LOOP
+200   LOOP
+210   LET BINOMIAL=R
+220 END DEF