Help for this page

Select Code to Download

Select or download this

johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -E '
my @arr1  = qw{ A T C G T C G A G C G };
...
   ( ( join q{}, @arr1 ) ^ ( join q{}, @arr2 ) ) =~ tr{\0}{};
say $count;'
4