16 lines
345 B
Text
16 lines
345 B
Text
10 DEFINT A-Z
|
|
20 DIM B(4): B(1)=2: B(2)=3: B(3)=5: B(4)=11
|
|
30 FOR I=1 TO 4
|
|
40 B=B(I)
|
|
50 PRINT USING "###:";I;
|
|
60 FOR N=0 TO 24: GOSUB 100: PRINT USING "###";S;: NEXT N
|
|
70 PRINT
|
|
80 NEXT I
|
|
90 END
|
|
100 REM
|
|
101 REM S = N'th item of fairshare sequence for B people
|
|
102 REM
|
|
110 S=0: Z=N
|
|
120 S=S+Z MOD B: Z=Z\B: IF Z>0 THEN 120
|
|
130 S=S MOD B
|
|
140 RETURN
|