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