Sha256: e8a4ab0a9d59ef3d8161c06aaefeb45e07186cf80cdb4a5a8f5c722ef1536c78
Contents?: true
Size: 584 Bytes
Versions: 323
Compression:
Stored size: 584 Bytes
Contents
package Example;
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
323 entries across 323 versions & 1 rubygems