13 lines
321 B
Plaintext
13 lines
321 B
Plaintext
10 FOR i=0 TO 15
|
|
20 LET n=i: LET m=2*n
|
|
30 LET r=1: LET d=m-n
|
|
40 IF d>n THEN LET n=d: LET d=m-n
|
|
50 IF m<=n THEN GO TO 90
|
|
60 LET r=r*m: LET m=m-1
|
|
70 IF (d>1) AND NOT FN m(r,d) THEN LET r=r/d: LET d=d-1: GO TO 70
|
|
80 GO TO 50
|
|
90 PRINT i;TAB 4;r/(1+n)
|
|
100 NEXT i
|
|
110 STOP
|
|
120 DEF FN m(a,b)=a-INT (a/b)*b: REM Modulus function
|