2025-08-11 18:05:26 -07:00
|
|
|
DECLARE FUNCTION josephus! (n!, k!, m!)
|
2023-07-01 11:58:00 -04:00
|
|
|
|
|
|
|
|
n = 41
|
|
|
|
|
k = 3
|
|
|
|
|
PRINT "n = "; n, "k = "; k, "final survivor = "; josephus(n, k, 0)
|
|
|
|
|
END
|
2025-08-11 18:05:26 -07:00
|
|
|
|
|
|
|
|
FUNCTION josephus (n, k, m)
|
|
|
|
|
lm = m
|
|
|
|
|
FOR i = m + 1 TO n
|
|
|
|
|
lm = (lm + k) MOD i
|
|
|
|
|
NEXT i
|
|
|
|
|
josephus = lm
|
|
|
|
|
END FUNCTION
|
