Help for this page

Select Code to Download

Select or download this

C:\Perl_516_portable>perl D:\PM\mostly_shuffled_008.pl 0 0 1
0 0 1
...
C:\Perl_516_portable>perl D:\PM\mostly_shuffled_008.pl 1 1 1 2 3 3 2 2
+ 1
1 1 1 2 3 3 2 2 1
1 2 1 2 1 3 1 3 2

Select or download this

#!/perl
use strict;
...
  @$aref = @tmp;
  return $aref;
}