Select Code to Download

sub random_derangement
{
...
    @r
}

sub derange
{
...
    @_[ @i ] = @_[ @i[1..$#i], $i[0] ];
}

sub random_derangement
{
...
    @r
}