Contents

unit module Hamming:ver<1>;

sub hamming-distance ( Str:D $strand1, Str:D $strand2 --> Int:D ) is export {
  die ‘left and right strands must be of equal length’ if $strand1.chars ≠ $strand2.chars;
  ($strand1.comb Zne $strand2.comb).sum
}

Version data entries

9 entries across 9 versions & 1 rubygems

Version	Path
trackler-2.2.1.65	tracks/perl6/exercises/hamming/Example.pm6
trackler-2.2.1.64	tracks/perl6/exercises/hamming/Example.pm6
trackler-2.2.1.63	tracks/perl6/exercises/hamming/Example.pm6
trackler-2.2.1.62	tracks/perl6/exercises/hamming/Example.pm6
trackler-2.2.1.61	tracks/perl6/exercises/hamming/Example.pm6
trackler-2.2.1.60	tracks/perl6/exercises/hamming/Example.pm6
trackler-2.2.1.59	tracks/perl6/exercises/hamming/Example.pm6
trackler-2.2.1.58	tracks/perl6/exercises/hamming/Example.pm6
trackler-2.2.1.57	tracks/perl6/exercises/hamming/Example.pm6