Help for this page

Select Code to Download


  1. or download this
    my @words=qw(The time has come the Walrus said to speak of many things
    +);
    my @sorted=map { pop @$_ }
               sort{ $a->[0] <=> $b->[0] ||
                     $a->[1] cmp $b->[1] }
               map { [tr/eE/eE/,$_] } @words;
    
  2. or download this
    my @sorted=map  { substr($_,4) }
               sort 
               map  { pack("LA*",tr/eE/eE/,$_) } @words;