Select Code to Download

sub leonardo{
    my $n = shift;
...
        return leonardo($n-2)+leonardo($n-1)+1;
    }
}

sub leonardo {
    my $n = shift;
...
        return 1;
    return leonardo ($n - 2) + leonardo ($n - 1) + 1;
    }

sub leonardo {
    my $n = shift;
    $n == 0 || $n == 1 ? 1 : leonardo ($n - 2) + leonardo ($n - 1) + 1
+;
    }