14 lines
325 B
Plaintext
14 lines
325 B
Plaintext
10 LET N = 41
|
|
20 LET K = 3
|
|
30 LET M = 0
|
|
40 GOSUB 100
|
|
50 PRINT "n ="; N, "k ="; K, "final survivor ="; LM
|
|
60 END
|
|
100 REM Josephus
|
|
110 REM Return m-th on the reversed kill list; m=0 is final survivor.
|
|
120 LET LM = M : REM Local copy of m
|
|
130 FOR A = M+1 TO N
|
|
140 LET LM = (LM+K) MOD A: REM MOD function
|
|
150 NEXT A
|
|
160 RETURN
|