Select Code to Download

        if( p1[ i ] != p2[ i ] && p1[ i ] != 'N' && p2[ i ] != 'N' ) {

        if (c_map[ str1[i] ^ str2[i] ]) {

int seqDiff ( SV *s1, SV *s2 ) {
    STRLEN bytes1, bytes2;
...
    }
    return 1;
}

C:\test>SeqDiffDC_mark_1
comparing strings of length 240003
...
inline   72894/s    183%      --    -81%
buk     393465/s   1429%    440%      --
benchmark results expected

int seqDiff32 ( SV *s1, SV *s2 ) {
    STRLEN bytes1, bytes2;
...
    }
    return 1;
}

C:\test>SeqDiffDC_mark_1 -LEN=1
comparing strings of length 27
...
buk64   1545/s   2935%    146%     61%      --    -39%
buk32   2539/s   4889%    304%    164%     64%      --
benchmark results expected

my $seq1 = 'ATGCATCGATGN' x $LEN;
my $seq2 = 'ATGCATCGATGN' x $LEN;

C:\test>SeqDiffDC_mark_1 -LEN=1
comparing strings of length 27
...
buk64   11162/s  21673%   1657%    762%     83%      --
benchmark results expected