Foro - Perl en Español

por **BigBear** » 2014-05-23 13:41 @611

Hola. tengo el siguiente código para la Sucesión de Fibonacci:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# !usr/bin/perl
# Sucesion Fibonacci
# Coded By Doddy Hackman in the year 2014
 
my ($uno,$dos) = ("0","1");
my $cantidad = "10";
 
for my $num(0..$cantidad) {
print $uno."\n";
my $final = $uno + $dos;
$uno = $dos;
$dos = $final;
}
 
# The End ?
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

¿Alguien conoce otra forma de hacerlo?

Pues... yo conozco la recursiva, que alguna vez hemos usado por aquí, para algún programa.

Tienes los dos ejemplos, iterativa y recursiva, en el principal almacén de ejemplos de código: RosettaCode.org

http://rosettacode.org/wiki/Fibonacci_sequence#Perl

Actualización: Pues sí... hemos hablado ya algo de él

por **Pichuzard** » 2014-08-31 14:20 @639

Concuerdo con explorer. Básicamente existen dos formas de hacerlo: recursiva e iterativa. Personalmente a tu código le cambiaría ese ciclo foreach() por un while() o un for() ya que no estás utilizando esa variable $num y pues se ve algo raro.

Foro - Perl en Español

Sucesión de Fibonacci

Sucesión de Fibonacci

Publicidad

Re: Sucesión de Fibonacci

Re: Sucesión de Fibonacci

¿Quién está conectado?