Josephus problem: Difference between revisions
→{{header|Frink}}
m (→{{header|Phix}}: added RPL to unclassified, since I don't psil kaeps rev swp rev, or whatever.) |
Basicgames (talk | contribs) |
||
Line 1,934:
Alive: 30
</pre>
=={{header|FTCBASIC}}==
<syntaxhighlight lang="basic">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</syntaxhighlight>
=={{header|Fōrmulæ}}==
|