• + 0 comments

    Perl:

    sub saveThePrisoner {
        my ($n, $m, $s) = @_;
        
        return ($s + $m - 1) % $n == 0 ? $n : ($s + $m - 1) % $n;
    }