diff options
Diffstat (limited to 'challenge-340/spadacciniweb/perl/ch-1.pl')
| -rw-r--r-- | challenge-340/spadacciniweb/perl/ch-1.pl | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/challenge-340/spadacciniweb/perl/ch-1.pl b/challenge-340/spadacciniweb/perl/ch-1.pl index 36296dbebd..c98cbdf9fa 100644 --- a/challenge-340/spadacciniweb/perl/ch-1.pl +++ b/challenge-340/spadacciniweb/perl/ch-1.pl @@ -75,7 +75,6 @@ sub get_noduplicate { do { $str =~ s/(\w)\1//; - } while $str =~ /(\w)\1/; printf "'%s' -> '%s'\n", $str_orig, $str; |