RosettaCodeData/Task/Josephus-problem/AppleScript/josephus-problem-1.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