Select Code to Download

#!/usr/bin/perl

...
    while (*s1++ == *s2++) { c++; }
    return c;
}

                 Rate    standard   fancy-XOR standard-XS
standard     109227/s          --        -77%        -92%
fancy-XOR    468114/s        329%          --        -64%
standard-XS 1291788/s       1083%        176%          --