diff options
| author | Adam Russell <adamcrussell@outlook.com> | 2025-07-13 17:56:07 -0400 |
|---|---|---|
| committer | Adam Russell <adamcrussell@outlook.com> | 2025-07-13 17:56:07 -0400 |
| commit | 56e7a763084fefdf9fd0c0f5805886747e13b4b7 (patch) | |
| tree | a7e6450812f7c11b133e6ea8c71edf86fd2116fc | |
| parent | b7f594fab7a1ac9c9fc8423df391ec75a57518a4 (diff) | |
| download | perlweeklychallenge-club-56e7a763084fefdf9fd0c0f5805886747e13b4b7.tar.gz perlweeklychallenge-club-56e7a763084fefdf9fd0c0f5805886747e13b4b7.tar.bz2 perlweeklychallenge-club-56e7a763084fefdf9fd0c0f5805886747e13b4b7.zip | |
updated code
| -rw-r--r-- | challenge-329/adam-russell/perl/ch-2.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-329/adam-russell/perl/ch-2.pl b/challenge-329/adam-russell/perl/ch-2.pl index 41e242a934..a00733e91d 100644 --- a/challenge-329/adam-russell/perl/ch-2.pl +++ b/challenge-329/adam-russell/perl/ch-2.pl @@ -21,12 +21,12 @@ sub nice_substring{ - my ($str) = @_; - my $n = length($str); + my ($s) = @_; + my $n = length($s); my $longest = q//; for my $i (0 .. $n - 1) { for my $j ($i + 1 .. $n) { - my $substring = substr($str, $i, $j - $i); + my $substring = substr($s, $i, $j - $i); if (is_nice($substring) && length($substring) > length($longest)){ $longest = $substring; |