in reply to Re: Smoothsortin thread Smoothsort
sub leonardo { my $n = shift; $n <= 1 || leonardo ($n - 2) + leonardo ($n - 1) + 1 +; } [download]
www.com | www.net | www.org
No recent polls found