Select Code to Download

 1 2 3 4 5 6 7 8 9   1 2 3 4 5 6 7 8 9   1 2 3 4 5 6 7 8 9   1 2 3 4 5
+ 6 7 8 
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
++-+-+-+
| | | | | | | | | | | | |?|X|X|X|X|X|X|X|X|X|X|X|X|?| | | | | | | | | 
+| | | |
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
++-+-+-+

[ 6:53:31.34] P:\test>406836.pl 406836.25s.1000 406836.seq.1000 >40683
+6.results
Loaded 1000 25-ers at P:\test\406836.pl line 17.
...
Total fuzzy comparisons: 992119000 at P:\test\406836.pl line 50, <SEQ>
+ line ...

[ 7:22:03.34] P:\test>

timethis 10000, q[@m = ('acgt'x250 ) =~ m[(acgtacgtacgtacgtacgtacgta)]
+g ];
timethis 10000:  1 wallclock secs ( 1.16 usr +  0.00 sys =  1.16 CPU) 
+@ 8643.04/s (n=10000)

#! perl -slw
use strict;
...
warn "Total fuzzy comparisons: ", $fuzzyComps;
close SEQ;