Oi galera, beleza?
Para um teste em um emprego me foi pedido para:
Criar um programa em Perl que receba 1 parâmetro numérico e devolva a sequencia de Fibonacci com quantidade de eventos informado no parâmetro.
Por exemplo: parâmetro = 10
O programa devolve x x x x x x x x x x eventos
O que eu desenvolvi foi:
#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
my $a = 1;
my $b = 0;
print "Digite o parametro numerico para indicar o tamanho da sequencia de Fibonacci\n";
my $numX = <STDIN>;
for(my $i=0;$i<$numX;$i++){
$b += $a;
$a = $b - $a;
print $b." ";
}
Como não sou um programador Perl e também não tenho muita familiaridade com a sequencia de fibonacci, gostaria da opinião do pessoal, para saber se está tudo certinho e em que eu poderia melhorar o código.
Toda e qualquer dica é bem vinda!! :)