Select Code to Download

char *strstr(char *s1, *s2 ) {
    register char *p = s1;
...
    }
    return (0);
}

// Assumes equal length ascii strings and no embedded nulls.
int fuzzyMatch( char *a, char *b ) {
...
    while( *a ) if( !( *a++ - *b++ ) ) ++sum;
    return sum;
}

( $s[ $ai ] ^ $s[ $_ ] ) =~ tr[\0][\0]

C:\test>fuzzy-b
    Rate    a    b
a 7.33/s   -- -20%
b 9.16/s  25%   --

#! perl -slw
use strict;
...
cgggttttttttttt
acctttttttttttt
ggggttttttttttt