7 lines
204 B
Text
7 lines
204 B
Text
DropNext=. 1 }. <:@[ |. ]
|
|
MoreThanOne=. 1 < #@]
|
|
WhileMoreThanOne=. (^:MoreThanOne f.) (^:_)
|
|
prisoners=. i.@]
|
|
|
|
[ DropNext WhileMoreThanOne prisoners f.
|
|
[ (1 }. <:@[ |. ])^:(1 < #@])^:_ i.@]
|