¿Cómo puedo aplicar una función a una lista usando el mapa?

Question

Quiero aplicar una función a cada elemento de una lista y almacenar resultados similares a map(function, list) en python.

trató de pasar de una función a mapear, pero tiene este error:

perl -le 'my $s = sub {}; @r = map $s 0..9' 
panic: ck_grep at -e line 1. 

¿Cuál es la forma correcta de hacer esto?

Answer 1

Si una variable escalar contiene una referencia de código - por ejemplo:

my $double = sub { 2 * shift }; 

Puede invocar el código mucho la forma en que lo haría en Python, así:

$double->(50); # Returns 100. 

La aplicación de eso a un map ejemplo:

my @doubles = map $double->($_), 1..10; 

O esta manera:

my @doubles = map { $double->($_) } 1..10; 

La segunda variante es más robusto debido a que el bloque definido por los {} tirantes puede contener cualquier número de estados de Perl:

my @doubles = map { 
    my $result = 2 * $_; 

    # Other computations, if needed. 

    $result; # The return of each call to the map block. 
} 1..10; 

Answer 2

intento: map { $s->($_) } (0..9) en lugar de map $s 0..9

explicación: en ti ejemplo, $s es una referencia a una subrutina, por lo que debe eliminar la referencia a permitir una llamada subroutin. Esto se puede lograr de varias maneras: $s->() o &$s() (y probablemente algunas otras maneras que me estoy olvidando)

Answer 3

my $squared = sub { 
     my $arg = shift(); 
     return $arg ** 2; 
    }; 

entonces o bien

my @list = map { &$squared($_) } 0 .. 12; 

o

my @list = map { $squared->($_) } 0 .. 12; 

o tal vez

my $squared; 
BEGIN { 
    *Squared = $squared = sub(_) { 
     my $arg = shift(); 
     return $arg ** 2; 
    }; 
} 
my @list = map { Squared } 0 .. 12; 

Answer 4

No es demasiado diferente de Python.

@results = map { function($_) } @list; 
@results = map function($_), @list; 

o con "lambda",

@results = map { $function->($_) } @list; 
@results = map $function->($_), @list;