33 lines
423 B
Plaintext
33 lines
423 B
Plaintext
define prisoners = 0, step = 0, killcount = 0
|
|
define survivor = 0, remainder = 0
|
|
|
|
do
|
|
|
|
print "Prisoners: " \
|
|
input prisoners
|
|
|
|
print "Step: " \
|
|
input step
|
|
|
|
gosub executioner
|
|
|
|
loop
|
|
|
|
sub executioner
|
|
|
|
let killcount = 1
|
|
|
|
do
|
|
|
|
let killcount = killcount + 1
|
|
let survivor = survivor + step
|
|
let survivor = survivor / killcount
|
|
carry survivor
|
|
|
|
loop killcount < prisoners
|
|
|
|
print "survivor = " \
|
|
print survivor
|
|
|
|
return
|