RosettaCodeData/Task/Josephus-problem/Forth/josephus-problem.fth

2 lines
80 B
Forth

: josephus 0 1 begin dup 41 <= while swap 3 + over mod swap 1+ repeat drop ;