15 lines
354 B
Plaintext
15 lines
354 B
Plaintext
100 PROGRAM "Josephus.bas"
|
|
110 INPUT PROMPT "Number of prisoners: ":NP
|
|
120 INPUT PROMPT "Execution step: ":EX
|
|
130 INPUT PROMPT "How many survivors: ":SU
|
|
140 PRINT "Survivors:";
|
|
150 FOR S=0 TO SU-1
|
|
160 PRINT JOSEPHUS(NP,EX,S);
|
|
170 NEXT
|
|
180 DEF JOSEPHUS(N,K,M)
|
|
190 FOR I=M+1 TO N
|
|
200 LET M=MOD((M+K),I)
|
|
210 NEXT
|
|
220 LET JOSEPHUS=M
|
|
230 END DEF
|