Foro - Perl en Español

¿Qué Perl no acepta la recursividad?

Me parece que tienes un error de implementación, pues Perl claro que permite la recursividad.

Ahora, según entiendo para lo que necesitas la solución perfecta es File::Find y de ello hay un tutorial hay aquí en el sitio:
http://perlenespanol.com/archives-tut/000135.html


Saludos

Ejemplo de fibonacci:

Código: Seleccionar todo

sub fib {
    my $x = shift;
    return $x if $x < 2;
    fib($x-1) + fib($x-2);
}
print fib(25); # 121393

Naturalmente, a medida que aumentamos los valores, el cálculo se hace cada vez más largo, en parte porque estamos constantemente calculando los mismos valores de fib(x). ¿Por qué tengo que calcular diez veces el valor de fib(5) si se que siempre vale 8?. Debería memorizar ese cálculo después de la primera vez...

Una solución muy sencilla, y esto es una gran ventaja de Perl, es el módulo Memoize (incluído de base). Agregamos un par de líneas y el programa ahora corre mucho más rápido:

Código: Seleccionar todo

use Memoize;
memoize 'fib';
sub fib {
    my $x = shift;
    return 1 if $x < 2;
    fib($x-1) + fib($x-2);
}
print fib(25); # 121393