13 lines
225 B
Text
13 lines
225 B
Text
n = 41 #prisoners
|
|
k = 3 #order of execution
|
|
|
|
print "n = "; n, "k = "; k, "final survivor = "; Josephus(n, k, 0)
|
|
end
|
|
|
|
function Josephus(n, k, m)
|
|
lm = m
|
|
for i = m + 1 to n
|
|
lm = (lm + k) mod i
|
|
next
|
|
return lm
|
|
end function
|