Josephus problem: Difference between revisions
Content added Content deleted
m (→iterative: BASIC*11) |
m (ANSI Standard BASIC and BBC BASIC moved to the BASIC section.) |
||
Line 462: | Line 462: | ||
{{out}} |
{{out}} |
||
<pre>n = 41, k = 3, final survivor: 30</pre> |
<pre>n = 41, k = 3, final survivor: 30</pre> |
||
⚫ | |||
Translated from ALGOL 68 |
|||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
=={{header|AppleScript}}== |
=={{header|AppleScript}}== |
||
Line 1,041: | Line 1,025: | ||
{{out}} |
{{out}} |
||
<pre>Survivor is number 30</pre> |
<pre>Survivor is number 30</pre> |
||
⚫ | |||
{{trans|ALGOL 68}} |
|||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
==={{header|Applesoft BASIC}}=== |
==={{header|Applesoft BASIC}}=== |
||
Line 1,071: | Line 1,071: | ||
{{out}} |
{{out}} |
||
<pre>Same as FreeBASIC entry.</pre> |
<pre>Same as FreeBASIC entry.</pre> |
||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
==={{header|Chipmunk Basic}}=== |
==={{header|Chipmunk Basic}}=== |
||
Line 1,279: | Line 1,293: | ||
Press any key to continue . . .</pre> |
Press any key to continue . . .</pre> |
||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
=={{header|Befunge}}== |
=={{header|Befunge}}== |