12 lines
349 B
Text
12 lines
349 B
Text
100 FUNCTION josephus (n, k, m)
|
|
110 ! Return m-th on the reversed kill list; m=0 is final survivor.
|
|
120 LET lm = m ! Local copy OF m
|
|
130 FOR a = m+1 TO n
|
|
140 LET lm = MOD(lm+k, a)
|
|
150 NEXT a
|
|
160 LET josephus = lm
|
|
170 END FUNCTION
|
|
180 LET n = 41
|
|
190 LET k=3
|
|
200 PRINT "n =";n, "k =";k,"final survivor =";josephus(n, k, 0)
|
|
210 END
|