10 lines
162 B
Text
10 lines
162 B
Text
REM >josephus
|
|
PRINT "Survivor is number "; FNjosephus(41, 3, 0)
|
|
END
|
|
:
|
|
DEF FNjosephus(n%, k%, m%)
|
|
LOCAL i%
|
|
FOR i% = m% + 1 TO n%
|
|
m% = (m% + k%) MOD i%
|
|
NEXT
|
|
= m%
|