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

3 lines
51 B
Plaintext

3 ([ (1 }. <:@[ |. ])^:(1 < #@])^:_ i.@]) 41
30