Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"sub fisher_yates_shuffle_while_loop
...
[undef, 1]

0 3 3 3 3 0 1 1 2 1