Fix first Leonardo number, i.e. L(0) = L(1) = 1

1 files changed, 11 insertions, 7 deletions

diff --git a/challenge-041/noud/perl6/ch-2.p6 b/challenge-041/noud/perl6/ch-2.p6
index acbd775229..d450aa2817 100644
--- a/challenge-041/noud/perl6/ch-2.p6
+++ b/challenge-041/noud/perl6/ch-2.p6
@@ -12,13 +12,17 @@
 # Define a lazy fibonacci sequence.
 constant @fib = 0, 1, * + * ... *;
 
-# Leonard numbers are related to Fibonacci numbers as
-#   leonard(n) = 2 * fib(n) + 1
-sub leonard(Int $n) {
-    2 * @fib[$n] + 1;
+# Leonardo numbers are related to Fibonacci numbers as
+#   leonardo(n + 1) = 2 * fib(n) + 1
+sub leonardo(Int $n) {
+    if ($n == 0) {
+        1;
+    } else {
+        2 * @fib[$n - 1] + 1;
+    }
 }
 
-say "Leonard numbers 0 to 20:";
-for 0..20 -> $n {
-    leonard($n).say;
+say "First 20 Leonardo numbers:";
+for ^20 -> $n {
+    leonardo($n).say;
 }