Sha256: 30f95f5f63de66a923039f7691bf9af7a1ca5dac696233951ddece29c2de12ab
Contents?: true
Size: 360 Bytes
Versions: 73
Compression:
Stored size: 360 Bytes
Contents
package Hamming;
use strict;
use warnings;
use Carp;
sub compute {
my ($strand_a, $strand_b) = @_;
croak "DNA strands must be of equal length"
unless length $strand_a == length $strand_b;
my $distance = $strand_a ^ $strand_b;
$distance =~ s/\0//g;
return (length $distance) - abs(length($strand_a) - length($strand_b));
}
1;
Version data entries
73 entries across 73 versions & 1 rubygems