Enviado em 17/08/2019 - 00:43h
Boa noite,
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";
Mitigação - O que é e quando é "seguro" desabilitar
Atualizar Debian Online de uma Versão para outra
A arte e a prática da Disciplina a longo prazo
Topgrade - Atualize seu sistema Linux inteiro com um único comando
Site com diversos emojis para seus códigos
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
[aprendendo algo novo] Diferença entre ser eficiente, eficaz e efetivo... (0)
Possível Migração de windows para linux ???? (pc da empresa) (3)