Select Code to Download

sub riffle {
    splice @_, @_/2 - $_, 0, pop
...
    @deck = riffle @deck;
    print "shuffle #$shuffle:\n@deck\n";
}

## random-sided Riffle shuffle
sub riffle {
...
    }
    return @_;
}