exercism-perl5

commit c59151f6dc7ff16e5884f08cd55adc1df15781a9
parent 901b40231b4f3a2f7a8525ead634e461bcce5f7f
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Fri, 29 Jul 2022 13:06:00 +0000

get all tests to pass

Diffstat:
M
proverb/Proverb.pm
 | 
6
++++--

1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/proverb/Proverb.pm b/proverb/Proverb.pm
@@ -7,10 +7,12 @@ sub proverb {
     my ( $items, $qualifier ) = @_;
     my $no_items = scalar @{ $items };
     my $answer;
-    foreach my $i ( 0 .. $no_items - 2 ) {
+    foreach my $i ( 0 .. @{ $items } - 2 ) {
         $answer .= "For want of a $items->[$i] the $items->[$i+1] was lost.\n";
     }
-    $answer .= "And all for the want of a $items->[0].";
+    $answer .= "And all for the want of a ";
+    $answer .= "$qualifier " unless ( $qualifier eq "" );
+    $answer .= "$items->[0].";
     return $answer;
 }