Josephus problem: Difference between revisions
Content added Content deleted
(Added Tiny BASIC) |
|||
Line 1,392: | Line 1,392: | ||
130 NEXT A |
130 NEXT A |
||
140 RETURN</syntaxhighlight> |
140 RETURN</syntaxhighlight> |
||
==={{Header|Tiny BASIC}}=== |
|||
<syntaxhighlight lang="qbasic"> REM Josephus problem |
|||
LET N = 41 |
|||
LET K = 3 |
|||
LET M = 0 |
|||
GOSUB 10 |
|||
PRINT "N = ", N |
|||
PRINT "K = ", K |
|||
PRINT "FINAL SURVIVOR = ", S |
|||
END |
|||
REM ** JOSEPHUS |
|||
10 LET S = M |
|||
LET I = M + 1 |
|||
20 IF I = N THEN GOTO 30 |
|||
LET S = S + K - ((S + K) / I) * I |
|||
LET I = I + 1 |
|||
GOTO 20 |
|||
30 RETURN |
|||
</syntaxhighlight> |
|||
==={{header|True BASIC}}=== |
==={{header|True BASIC}}=== |