diff options
| author | Jaime <42359730+bracteatus@users.noreply.github.com> | 2019-07-27 00:21:57 -0600 |
|---|---|---|
| committer | Jaime <42359730+bracteatus@users.noreply.github.com> | 2019-07-27 00:21:57 -0600 |
| commit | b71b18eb68337ed77faf2a5c6ffa9e569a39b91d (patch) | |
| tree | 8e6be26891caa6c6002a81ca6cdfdce9937670a2 | |
| parent | 035b63413959f8a7218f0595751b14dd7d26a3b4 (diff) | |
| download | perlweeklychallenge-club-b71b18eb68337ed77faf2a5c6ffa9e569a39b91d.tar.gz perlweeklychallenge-club-b71b18eb68337ed77faf2a5c6ffa9e569a39b91d.tar.bz2 perlweeklychallenge-club-b71b18eb68337ed77faf2a5c6ffa9e569a39b91d.zip | |
Update ch-1.pl
Use loop labels.
| -rw-r--r-- | challenge-018/jaime/perl5/ch-1.pl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/challenge-018/jaime/perl5/ch-1.pl b/challenge-018/jaime/perl5/ch-1.pl index eeb61845eb..afc6d29993 100644 --- a/challenge-018/jaime/perl5/ch-1.pl +++ b/challenge-018/jaime/perl5/ch-1.pl @@ -6,11 +6,10 @@ my $head = shift; for my $n (reverse 1..(length $head)) { - for my $i (0..((length $head)-$n)) { + SUBSTRING: for my $i (0..((length $head)-$n)) { my $s = substr($head,$i,$n); - if (@ARGV == grep(/$s/,@ARGV)) { - print "$s\n"; - exit; - } + next SUBSTRING unless @ARGV == grep(/$s/,@ARGV); + print "$s\n"; + exit; } } |