Commit c08fa767 authored by Duncan White's avatar Duncan White

decided to ignore words ending in numbers

parent 7c6af7a8
......@@ -24,6 +24,7 @@ while( my $word = <$in> )
$word =~ tr/'//d;
$word = lc($word);
next if $seen{$word}++;
next if $word =~ /\d$/; # ignore words ending in numbers
$n++;
# calculate a signature [all the letters in sorted order]
......
......@@ -22,6 +22,7 @@ while( my $word = <$in> )
$word =~ tr/'//d;
$word = lc($word);
next if $seen{$word}++;
next if $word =~ /\d$/; # ignore words ending in numbers
$n++;
# calculate a signature [all the letters in sorted order]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment