add solution for week 41 task 2

1 files changed, 37 insertions, 0 deletions

diff --git a/challenge-041/steven-wilson/perl5/ch-2.pl b/challenge-041/steven-wilson/perl5/ch-2.pl
new file mode 100644
index 0000000000..79bc8d8e40
--- /dev/null
+++ b/challenge-041/steven-wilson/perl5/ch-2.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/env perl
+# Author: Steven Wilson
+# Date: 2020-01-02
+# Week: 040
+# Task #2
+# Write a script to display first 20 Leonardo Numbers. Please checkout wiki page for more information.
+# For example:
+
+# L(0) = 1
+# L(1) = 1
+# L(2) = L(0) + L(1) + 1 = 3
+# L(3) = L(1) + L(2) + 1 = 5
+# and so on.
+# https://en.wikipedia.org/wiki/Leonardo_number
+
+use strict;
+use warnings;
+use feature qw/ say /;
+
+my @leonardo_numbers = ( 1, 1 );
+
+my $counter = 0;
+
+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], " ";
+    }
+    $counter++;
+}
+print "\n";