' Josephus problem
N = 41
K = 3
S = "The prisoner standing at position %2d is eliminated. %2d prisoner(S) eliminated.\n"
for i = 1 to N
alive[i] = TRUE
next i
eliminated = 0
position = 1
fatal = 1
while eliminated < N
if alive[position] then
if fatal = K then
alive[position] = FALSE
eliminated += 1
print format (S, position, eliminated)
end if
fatal += 1
if fatal > K then fatal = 1
end if
position += 1
if position > N then position = 1
wend