Josephus problem: Difference between revisions

Content added Content deleted
(added Oz)
Line 901:
while [0 < size p][
i: (i+k-1) % size p
append 'seq p \ [i]
remove 'p .index i
]