Sha256: d8d80db2e100b62bd6d32d43e597472ce4e84b349222701e239124193b8be152
Contents?: true
Size: 580 Bytes
Versions: 73
Compression:
Stored size: 580 Bytes
Contents
package DNA;
use strict;
use warnings;
sub new {
my ($class, $strand) = @_;
my $self = bless {} => $class;
$self->{strand} = $strand;
$self->{len} = length $strand;
return $self;
}
sub hamming_distance {
my ($self, $strand) = @_;
my $distance;
my $len = length $strand;
$len = $self->{len} if $len > $self->{len};
my @orig = split // => $self->{strand};
my @inp = split // => $strand;
foreach my $index (0..$len-1) {
$distance++ if $orig[$index] ne $inp[$index];
}
return $distance || 0;
}
__PACKAGE__;
Version data entries
73 entries across 73 versions & 1 rubygems