12 lines
216 B
Text
12 lines
216 B
Text
|
10 REM JOSEPHUS PROBLEM
|
||
|
|
20 LET N=41,K=3,M=0
|
||
|
|
30 GOSUB 100
|
||
|
|
40 PRINT #1,"N =",N,", K =",K,", FINAL SURVIVOR =",L
|
||
|
|
50 STOP
|
||
|
|
90 REM ** JOSEPHUS
|
||
|
|
100 LET L=M
|
||
|
|
110 FOR A=M+1 TO N
|
||
|
|
120 LET L=L+K-((L+K)/A)*A
|
||
|
|
130 NEXT A
|
||
|
|
140 RETURN
|