Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl -l
    
    ...
    
        return $_;
    }
    
  2. or download this
    Sanity Tests:
    shoura:    >aaa bbb ccc<
    ...
    S 292306/s   -- -32% -37%
    M 432626/s  48%   --  -7%
    K 464863/s  59%   7%   --
    
  3. or download this
    #!/usr/bin/env perl -l
    
    ...
    
        return $re;
    }
    
  4. or download this
    Sanity Tests:
    kcott:     >(?^:(W X Y|X Y Z|X Y))<
    ...
          Rate    K    M
    K 240417/s   -- -13%
    M 277468/s  15%   --
    
  5. or download this
    my %seq = (
        'W X Y' => 'WbbbXbbbY',
        'X Y'   => 'XbbbY',
        'X Y Z' => 'XbbbYbbbZ',
    );
    
  6. or download this
    W XbbbY Z
    WbbbXbbbY Z
    W XbbbYbbbZ
    
  7. or download this
    sort { length $b <=> length $a || $a cmp $b }