Help for this page

Select Code to Download


  1. or download this
    use List::Util qw[ shuffle ];

...
100000000048
100000015278
100000012155
  2. or download this
    my @randUnique = shuffle map{ 
    sprintf "%07d%05d", 1e7+int( rand 1e6 ), $_ 
...
1018341020021
1038845808717
1056634512933
  3. or download this
    print time(); 
my @randUnique = shuffle map{ 
...
print time();;
1209603392
1209603398 ## 6 seconds for 1e6