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

2 lines
91 B
Text

survivor[n_, k_] := Nest[Most[RotateLeft[#, k]] &, Range[0, n - 1], n - 1]
survivor[41, 3]