RosettaCodeData/Task/Josephus-problem/J/josephus-problem-1.j
Ingy döt Net 6f050a029e update
2013-06-05 21:47:54 +00:00

2 lines
51 B
Text

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