sub leonardo {
    my $n = shift;
    $n <= 1 || leonardo ($n - 2) + leonardo ($n - 1) + 1
+;
    }
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.