Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    ...
         use_eq=> q{ my @sorted = sort using_eq @array }
        }
    );
    
  2. or download this
    use_eq: 24 wallclock secs (24.27 usr +  0.00 sys = 24.27 CPU)
    use_hash: 27 wallclock secs (27.68 usr +  0.00 sys = 27.68 CPU)
    ...
    use_eq: 24 wallclock secs (23.59 usr +  0.00 sys = 23.59 CPU)
    use_hash: 28 wallclock secs (27.75 usr +  0.00 sys = 27.75 CPU)
    use_return: 24 wallclock secs (22.86 usr +  0.00 sys = 22.86 CPU)