11 lines
220 B
Text
11 lines
220 B
Text
100 n = 41
|
|
110 k = 3
|
|
120 print "n = ";n,"k = ";k,"final survivor = ";josephus(n,k,0)
|
|
130 end
|
|
140 function josephus(n,k,m)
|
|
150 lm = m
|
|
160 for i = m+1 to n
|
|
170 lm = (lm+k) mod i
|
|
180 next
|
|
190 josephus = lm
|
|
200 end function
|