exercism-perl5

commit 901b40231b4f3a2f7a8525ead634e461bcce5f7f
parent a91264ac1c42bd0cb5afc1ef8471d7ab36a2bcdf
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Thu, 28 Jul 2022 20:52:47 +0000

got all but 1 tests to pass

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

1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/proverb/Proverb.pm b/proverb/Proverb.pm
@@ -5,8 +5,13 @@ use warnings;
 
 sub proverb {
     my ( $items, $qualifier ) = @_;
-
-    return undef;
+    my $no_items = scalar @{ $items };
+    my $answer;
+    foreach my $i ( 0 .. $no_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].";
+    return $answer;
 }
 
-__PACKAGE__;
+1;