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