From 202f746409e348f2b3f8898f82dbe969ca30864c Mon Sep 17 00:00:00 2001
From: Steven Wilson <steven1170@zoho.eu>
Date: Thu, 2 Jan 2020 10:52:19 +0000
Subject: print sequence outside loop

---
 challenge-041/steven-wilson/perl5/ch-2.pl | 20 +++++++-------------
 1 file changed, 7 insertions(+), 13 deletions(-)

diff --git a/challenge-041/steven-wilson/perl5/ch-2.pl b/challenge-041/steven-wilson/perl5/ch-2.pl
index f63241f2b8..6cba0acc55 100644
--- a/challenge-041/steven-wilson/perl5/ch-2.pl
+++ b/challenge-041/steven-wilson/perl5/ch-2.pl
@@ -17,20 +17,14 @@ use strict;
 use warnings;
 
 my @leonardo_numbers = ( 1, 1 );
-
-my $counter = 0;
+my $counter = 2;
 
 while ( $counter < 20 ) {
-    if ( $counter < 2 ) {
-        print $leonardo_numbers[$counter], " ";
-    }
-    else {
-        $leonardo_numbers[$counter] =
-            $leonardo_numbers[ $counter - 1 ] +
-            $leonardo_numbers[ $counter - 2 ] +
-            1;
-        print $leonardo_numbers[$counter], " ";
-    }
+    $leonardo_numbers[$counter] =
+        $leonardo_numbers[ $counter - 1 ] +
+        $leonardo_numbers[ $counter - 2 ] +
+        1;
     $counter++;
 }
-print "\n";
+
+print join " ", @leonardo_numbers, "\n";
-- 
cgit