11 lines
162 B
Text
11 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%
|