10 lines
164 B
AppleScript
10 lines
164 B
AppleScript
on josephus(n, k)
|
|
set m to 0
|
|
repeat with i from 2 to n
|
|
set m to (m + k) mod i
|
|
end repeat
|
|
|
|
return m + 1
|
|
end josephus
|
|
|
|
josephus(41, 3) --> 31
|