RosettaCodeData/Task/Josephus-problem/Mathematica/josephus-problem.math
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

2 lines
91 B
Text

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