13 lines
237 B
Text
13 lines
237 B
Text
|
FUNCTION josephus(n, k, m)
|
||
|
|
LET lm = m
|
||
|
|
FOR i = m+1 TO n
|
||
|
|
LET lm = REMAINDER(lm+k,i)
|
||
|
|
NEXT i
|
||
|
|
LET josephus = lm
|
||
|
|
END FUNCTION
|
||
|
|
|
||
|
|
LET n = 41
|
||
|
|
LET k = 3
|
||
|
|
PRINT "n = "; n, "k = "; k, "final survivor = "; josephus(n, k, 0)
|
||
|
|
END
|