[Madrid-pm] El tiempo irresistible de volver

[JJ Merelo]

Hola,

> use 5.010;
> my $resultado = 0;
> func(\$resultado);
> say $resultado;
>
> sub func {
>    my ($res_ref) = @_;
>
>    $$res_ref = 42;    # cálculo de $foo;
>
>    return;
> }


Sería cuestión de medirlo, pero creo que el problema es que el return
se toma su tiempo de todas formas, aunque no devuelvas nada, devuelvas
undef o lo que sea. He logrado mejorar tiempos cambiando subrutinas
por bloques que se le pasan a map, pero nada que se haga con una
subrutina hace que vaya más rápido.

Saludos, y gracias en todo caso.
-- 
JJ