Select Code to Download

#!/usr/bin/perl -w
use strict;
...
                return $result;
        }
}

Benchmark: timing 1000000 iterations of Closure, Global, Lexical, Recu
+rsion...
   Closure: 66 wallclock secs (61.70 usr +  0.00 sys = 61.70 CPU) @ 16
+207.46/s (n=1000000)
    Global: 62 wallclock secs (58.39 usr +  0.00 sys = 58.39 CPU) @ 17
+126.22/s (n=1000000)
   Lexical: 63 wallclock secs (58.55 usr +  0.00 sys = 58.55 CPU) @ 17
+079.42/s (n=1000000)
 Recursion: 208 wallclock secs (176.95 usr +  0.00 sys = 176.95 CPU) @
+ 5651.31/s (n=1000000)