diff options
| author | LoneWolfiNTj <Hatley.Software@gmail.com> | 2022-12-23 12:14:47 -0800 |
|---|---|---|
| committer | LoneWolfiNTj <Hatley.Software@gmail.com> | 2022-12-23 12:14:47 -0800 |
| commit | 991b7cfdfb55e057db5fc6fb5af922e739b50670 (patch) | |
| tree | 893ad36e4c40f805467da0d97d48b43afd5c0fa7 | |
| parent | c9a7c4edb21181d4b1cf70744baa381d8aab2013 (diff) | |
| download | perlweeklychallenge-club-991b7cfdfb55e057db5fc6fb5af922e739b50670.tar.gz perlweeklychallenge-club-991b7cfdfb55e057db5fc6fb5af922e739b50670.tar.bz2 perlweeklychallenge-club-991b7cfdfb55e057db5fc6fb5af922e739b50670.zip | |
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; } |