diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-12-24 08:39:25 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-12-24 08:39:25 +0000 |
| commit | 7e75032e92257085e42a6d8e1d8c88c9772d244c (patch) | |
| tree | cbc927a979a9a7c00b017ccd19d1b874d969164b | |
| parent | cafabf586177c4d4b12e814ad864d01c50bebae1 (diff) | |
| parent | 991b7cfdfb55e057db5fc6fb5af922e739b50670 (diff) | |
| download | perlweeklychallenge-club-7e75032e92257085e42a6d8e1d8c88c9772d244c.tar.gz perlweeklychallenge-club-7e75032e92257085e42a6d8e1d8c88c9772d244c.tar.bz2 perlweeklychallenge-club-7e75032e92257085e42a6d8e1d8c88c9772d244c.zip | |
Merge pull request #7297 from robbie-hatley/rh196
Made minor tweak to ch-1.pl
| -rwxr-xr-x | challenge-196/LoneWolfiNTj/perl/ch-1.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/challenge-196/LoneWolfiNTj/perl/ch-1.pl b/challenge-196/LoneWolfiNTj/perl/ch-1.pl index 69d6cf3b15..6e9bb594b9 100755 --- a/challenge-196/LoneWolfiNTj/perl/ch-1.pl +++ b/challenge-196/LoneWolfiNTj/perl/ch-1.pl @@ -57,9 +57,10 @@ for (@arrays) { my @array = @{$_}; my @p132s = p132(@array); + my $p132s = scalar @p132s; $"=', '; say ''; - say "Input array: (@{$_})"; - say "${\scalar(@p132s)} subsequences exhibit pattern 132"; + say "Input array: (@array)"; + say "$p132s subsequences exhibit pattern 132"; say "(@{$_})" for @p132s; } |