PoL: Factorial

Factorial en PoL:

perl -le 'sub k { return ($_[0] * (k($_[0]-1))) if ($_[0] > 1);return 1;} print k($ARGV[0]);' 2

básicamente Factorail es:

n * n-1 * n-2 * ... * 1

Para hacer una funcion recursiva simplemente vemos

n * (n-1) * (n-2) ... * 1

Lo que basicamente indica la pate que uno tiene que usar como recursiva:

(n-1)

Y para perl

sub fact {
return  (  $_0] * (fact($_[0]-1)) if ($_[0] > 1) ;
return 1;
}

subrutina en una variable

Todavía no se bien que utilidad tiene, pero estaba jugando con variables, y me encontré esto

$a = sub { return $_[0] . " mundo"; }
print &$a("Mundo");

Lo que imprime

Hola Mundo

Sin el &, básicamente lo que imprime es:

CODE(0x6188e8)