From b71b18eb68337ed77faf2a5c6ffa9e569a39b91d Mon Sep 17 00:00:00 2001
From: Jaime <42359730+bracteatus@users.noreply.github.com>
Date: Sat, 27 Jul 2019 00:21:57 -0600
Subject: Update ch-1.pl

Use loop labels.
---
 challenge-018/jaime/perl5/ch-1.pl | 9 ++++-----
 1 file 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;
     }
 }
-- 
cgit