Help for this page

Select Code to Download


  1. or download this
    $ perl -we'use Data::Dumper; ++$Data::Dumper::Sortkeys; ++$count{join 
+"", sort \
{rand()<=>rand()}split //, "abcde"} for 1..100000; print Dumper \%coun
+t;'|less
  2. or download this
    $ perl -we'use Data::Dumper; ++$Data::Dumper::Sortkeys; use List::Util
+ "shuffle"; \
++$count{join "", shuffle split //, "abcde"} for 1..100000; print Dump
+er \%count;'|less