RosettaCodeData/Task/Josephus-problem/J/josephus-problem-1.j
2023-07-01 13:44:08 -04:00

2 lines
51 B
Text

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