Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
    DComp:  2 wallclock secs ( 1.42 usr + 0.00 sys =  1.42 CPU)
     grep: 13 wallclock secs (13.13 usr + 0.00 sys = 13.13 CPU)
      faq:  1 wallclock secs ( 0.55 usr + 0.00 sys =  0.55 CPU)
    
  2. or download this
    my @first = ((1..200), qw(a b c d e f)) ;
    my @second= ((1..200), qw(b a c d e f)) ;
    ...
    DComp: 12 wallclock secs (11.52 usr + 0.00 sys = 11.52 CPU)
      faq:  2 wallclock secs ( 1.48 usr + 0.00 sys =  1.48 CPU)
     grep:  1 wallclock secs ( 1.35 usr + 0.00 sys =  1.35 CPU)