Challenge 2 Week 041 LK

1 files changed, 33 insertions, 0 deletions

diff --git a/challenge-041/lubos-kolouch/perl5/ch-2.pl b/challenge-041/lubos-kolouch/perl5/ch-2.pl
new file mode 100644
index 0000000000..53a59715a3
--- /dev/null
+++ b/challenge-041/lubos-kolouch/perl5/ch-2.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/perl 
+#===============================================================================
+#
+#         FILE: ch-2.pl
+#
+#        USAGE: ./ch-2.pl  
+#
+#  DESCRIPTION: https://perlweeklychallenge.org/blog/perl-weekly-challenge-041/
+#
+#  Write a script to display first 20 Leonardo Numbers.
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: Lubos Kolouch
+# ORGANIZATION: 
+#      VERSION: 1.0
+#      CREATED: 01/02/2020 02:33:02 PM
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+use Data::Dumper;
+
+my @l = (1,1);
+
+for (2..19) {
+    $l[$_] = $l[$_-2] + $l[$_-1]+1;
+}
+
+warn Dumper @l;