Evaluate binomial coefficients: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 2,052: | Line 2,052: | ||
118264581564861424 |
118264581564861424 |
||
</pre> |
</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> |