RosettaCodeData/Task/Josephus-problem/Ring/josephus-problem.ring
2023-07-01 13:44:08 -04:00

11 lines
193 B
Text

n = 41
k=3
see "n =" + n + " k = " + k + " final survivor = " + josephus(n, k, 0) + nl
func josephus (n, k, m)
lm = m
for a = m+1 to n
lm = (lm+k) % a
next
josephus = lm
return josephus