Programming Forums - perl error with recursion

Programming Forums (http://www.programmingforums.org/forumindex.php)

- Perl (http://www.programmingforums.org/forum21.html)

- - perl error with recursion (http://www.programmingforums.org/showthread.php?t=11813)

perl error with recursion

hi i have a program that i tweaked from python (which i know) to perl (changed syntax). here is the program.

#!/usr/bin/perl



sub fib($n)

{

        if ($n<2)

        {

                return 1;

        }

        else

        {

                return fib($n-1) + fib($n-2);

        }

}



$n = 1;

while ($n < 42)

{

        print fib($n);

        print " ";

        $n = $n + 1;

}

when i run the program i get the following.

Not enough arguments for main::fib at fibrecursion.pl line 18, near "$n)"

Execution of fibrecursion.pl aborted due to compilation errors.

any help would be appreciated
thanks

In perl, you can't pass arguments via the subroutine definition. Instead, you pull the subroutine's arguments from the list @_. Try this instead:

sub fib
{
        ($n) = @_;
        ...
}