15 lines
236 B
Text
15 lines
236 B
Text
n = 41 //prisoners
|
|
k = 3 //order of execution
|
|
|
|
print "n = ", n, "\tk = ", k, "\tfinal survivor = ", Josephus(n, k, 0)
|
|
end
|
|
|
|
sub Josephus(n, k, m)
|
|
local lm
|
|
|
|
lm = m
|
|
for i = m + 1 to n
|
|
lm = mod(lm + k, i)
|
|
next
|
|
return lm
|
|
end sub
|