Select Code to Download

sub fastolfe {
        my $source = shift;
...
        }
        $result;
}

sub fast_merl {
        my ($source, $chop) = @_;
...

        return join "", map { $_ x $found{$_} } keys %found;
}

# demerphq's test set
             Rate blakem merlyn demq_scan demerphq fastolfe fast_merl 
+fast_c scan_c
...
fast_merl  21209/s   173%    67%      34%        8%       2%        --
+   -82%   -85%
scan_c    119642/s  1442%   845%     658%      511%     477%      464%
+     --   -14%
fast_c    139171/s  1694%   999%     782%      611%     572%      556%
+    16%     --