19 lines
314 B
Text
19 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
|
|
|