Funciones recursivas

Como en otros lenguajes, en Perl se pueden programar funciones recursivas, que se llaman a si mismas hasta que el problema que intentan resolver tiene un solución obvia. La recursión es un mecanismo de descomposición de problemas que puede hacer más sencillo llegar a una solución, pero a cambio, normalmente, su coste computacional es relativamente grande, ya que implica muchas llamadas a funciones seguidas.

De ejemplo os muestro la función factorial en forma recursiva:

sub factorial
{
	# toma parametro
	my $fact = $_[0];
	
	if($fact < 0) # error, factorial no definida para negativos
	{ 
		return 0; 
	}
	elsif($fact == 0) # caso trivial
	{
		return 1;
	}
	else # descompone el problema un paso mas
	{
		return $fact * factorial($fact -1); 
	}
}

Puedes encontrar otros ejemplos de funciones recursivas en el taller de (bio)perl.