in reply to Re: Smoothsort
in thread Smoothsort
sub leonardo { my $n = shift; $n <= 1 || leonardo ($n - 2) + leonardo ($n - 1) + 1 +; }
In Section
Seekers of Perl Wisdom
in reply to Re: Smoothsort
in thread Smoothsort
sub leonardo { my $n = shift; $n <= 1 || leonardo ($n - 2) + leonardo ($n - 1) + 1 +; }