diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-04-01 17:19:15 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-04-01 17:19:15 +0100 |
| commit | 26e227ddc32dcd38a0b6430acea709471aaff899 (patch) | |
| tree | bb325f25819895bb321b00173f62a1b19696bc99 /challenge-053 | |
| parent | 5545b7a5f1214063da3afee2455ee05932e93f4c (diff) | |
| parent | d862895601a492ec84f093766c90c162241f68d1 (diff) | |
| download | perlweeklychallenge-club-26e227ddc32dcd38a0b6430acea709471aaff899.tar.gz perlweeklychallenge-club-26e227ddc32dcd38a0b6430acea709471aaff899.tar.bz2 perlweeklychallenge-club-26e227ddc32dcd38a0b6430acea709471aaff899.zip | |
Merge pull request #1501 from rjt-pl/rjt_053
edges -> next (fix silly search/replace error)
Diffstat (limited to 'challenge-053')
| -rw-r--r-- | challenge-053/ryan-thompson/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-053/ryan-thompson/perl/ch-2.pl b/challenge-053/ryan-thompson/perl/ch-2.pl index 081f3895db..585eaa10f1 100644 --- a/challenge-053/ryan-thompson/perl/ch-2.pl +++ b/challenge-053/ryan-thompson/perl/ch-2.pl @@ -19,7 +19,7 @@ sub vowel_string { my @vstrs; while (my $str = shift @queue) { - push @vstrs, $str and edges if $len <= length $str; + push @vstrs, $str and next if $len <= length $str; push @queue, $str.$_ for @{$edges{ substr $str, -1 }} } @vstrs; |