diff options
| -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; } |