RosettaCodeData/Task/Josephus-problem/J/josephus-problem-4.j

6 lines
128 B
Plaintext

NB. this is a direct translation of the algo from C code above.
Josephus2 =: 4 : '(| x&+)/i. - 1+y'
3 Josephus2 41
30