Improved gen_fib() (Grame Hewson, GH #166).

chromatic · Oct 23, 2011 · 563d7ae · 563d7ae
1 parent e70412e
commit 563d7ae
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/CREDITS b/CREDITS
@@ -209,3 +209,6 @@ E: btilly@gmail.com
 
 N: Michael Lang
 E: michi@jackal-net.at
+
+N: Graeme Hewson
+E: ghewson@wormhole.me.uk
diff --git a/sections/closures.pod b/sections/closures.pod
@@ -132,15 +132,15 @@ elements you need:
 
     sub gen_fib
     {
-        my @fibs = (0, 1, 1);
+        my @fibs = (0, 1);
 
         return sub
         {
             my $item = shift;
 
             if ($item >= @fibs)
             {
-                for my $calc ((@fibs - 1) .. $item)
+                for my $calc (@fibs .. $item)
                 {
                     $fibs[$calc] = $fibs[$calc - 2] + $fibs[$calc - 1];
                 }