Erro uninitialized value em subrotina

camilolima
(usa Ubuntu)

Enviado em 17/08/2019 - 00:43h

Boa noite,

Estou tentando implementar um script em perl que realiza o calculo de Fibonacci, a partir de duas variáveis

use warnings;

# Definindo a subrotina 

sub fib {

    my @list1 = @_;

    my $number = $list1[0];

    my $val = $list1[1];

    

    if ($number == 0 or $number == 1) {

        return $number; 

    }

    my $x =fib($number-1);

    my $y =fib($number-2)*$val;

    my $z =$x+$y;

    return $z;            # chamando a recursividade

}



# passando a lista 

@Lista = (5, 3); 

# Chamando a subrotina com os parametros 

print fib(@Lista), "\n"; 

 

No entanto, o seguinte erro aparece:
"Use of uninitialized value $val in multiplication (*) at teste_subroutina.pl line 13"

Eu sei que o resultado esperado é 19, porém esse valor somente é obtido quando altero manualmente o $val por 3 diretamente na subrotina. Contudo, como esse parametro pode varia de 1 até 5, alterar manualmente não seria a melhor solução para o caso.

Pesquisando sobre o erro, vi que o valor de $val não está sendo lido, ou seja, indefinido. Alguém teria uma dica?

Saudações

Camilo

fventurajr
(usa Ubuntu)

Enviado em 14/11/2019 - 10:00h

Bom dia, camilolima

Acho que ficou faltando você declarar as varáveis de forma global fora da sub fib:

my @list1 = ();

my $number = 0;

my $val = 0;



sub fib() {

...

}

 

Mas de qualquer forma, acho que tem um problema no seu algoritmo, porque você chama duas vezes a recursividade em vez de uma e além disso é uma função que recebe dois parâmetros e você passa apenas um nessas duas chamadas.

    chamando duas vezes:

    my $x = fib($number - 1);

    my $y = fib($number - 2);

 

   Chamando com um parâmetro, passando uma lista

   fib(@Lista)

   Chamando com um parâmetro passando um escalar

   fib($number - 1);