Evaluate binomial coefficients: Difference between revisions
no edit summary
No edit summary |
|||
Line 2,052:
118264581564861424
</pre>
=={{header|ZX Spectrum Basic}}==
{{trans|BBC_BASIC}}
<lang zxbasic>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</lang>
| |||