20 lines
314 B
Text
20 lines
314 B
Text
|
REM Josephus problem
|
||
|
|
|
||
|
|
LET N = 41
|
||
|
|
LET K = 3
|
||
|
|
LET M = 0
|
||
|
|
GOSUB 10
|
||
|
|
PRINT "N = ", N
|
||
|
|
PRINT "K = ", K
|
||
|
|
PRINT "FINAL SURVIVOR = ", S
|
||
|
|
END
|
||
|
|
REM ** JOSEPHUS
|
||
|
|
10 LET S = M
|
||
|
|
LET I = M + 1
|
||
|
|
20 IF I = N THEN GOTO 30
|
||
|
|
LET S = S + K - ((S + K) / I) * I
|
||
|
|
LET I = I + 1
|
||
|
|
GOTO 20
|
||
|
|
30 RETURN
|
||
|
|
|