11 lines
284 B
Plaintext
11 lines
284 B
Plaintext
10 LET n=33: LET k=17: PRINT "Binomial ";n;",";k;" = ";
|
|
20 LET r=1: LET d=n-k
|
|
30 IF d>k THEN LET k=d: LET d=n-k
|
|
40 IF n<=k THEN GO TO 90
|
|
50 LET r=r*n
|
|
60 LET n=n-1
|
|
70 IF (d>1) AND (FN m(r,d)=0) THEN LET r=r/d: LET d=d-1: GO TO 70
|
|
80 GO TO 40
|
|
90 PRINT r
|
|
100 DEF FN m(a,b)=a-INT (a/b)*b
|