¿Cómo haría el equivalente al Enumerator.detect de Prototype en Perl con la menor cantidad de código?

Question

Últimamente he estado pensando mucho sobre programación funcional. Perl ofrece bastantes herramientas para ir por ese camino, sin embargo, hay algo que aún no he podido encontrar.

prototipo tiene la función de detectar para enumeradores, las descripciones es simplemente esto:

Enumerator.detect(iterator[, context]) -> firstElement | undefined 
Finds the first element for which the iterator returns true. 

Enumerador en este caso es cualquier lista mientras iterador es una referencia a una función, que se aplica a su vez en cada elemento de la lista.

Estoy buscando algo como esto para aplicar en situaciones donde el rendimiento es importante, es decir, cuando se detiene al encontrar un partido ahorra tiempo sin tener en cuenta el resto de la lista.

También estoy buscando una solución que no implique cargar ningún módulo adicional, por lo tanto, si es posible, debe hacerse solo con edificios incorporados. Y si es posible, debería ser lo más concisos esto, por ejemplo:

my @result = map function @array; 

Answer 1

Usted dice que no quiere un módulo, pero esto es exactamente lo que la función first en List::Util hace. Es un módulo central, por lo que debería estar disponible en todas partes.

use List::Util qw(first); 
my $first = first { some condition } @array; 

Si insiste en no usar un módulo, puede copiar la implementación fuera de List :: Util. Si alguien supiera una forma más rápida de hacerlo, estaría allí. (Tenga en cuenta que List :: Util incluye una implementación XS, por lo que es probablemente más rápido que cualquier enfoque puro de Perl. También tiene una versión Perl pura de first, en List :: Util :: PP.)

Tenga en cuenta que el valor que se está probando se pasa a la subrutina en $_ y no como como parámetro. Esta es una conveniencia cuando usa el formulario first { some condition} @values, pero es algo que debe recordar si está utilizando una subrutina normal. Algunos ejemplos más:

use 5.010; # I want to use 'say'; nothing else here is 5.10 specific 
use List::Util qw(first); 

say first { $_ > 3 } 1 .. 10; # prints 4 

sub wanted { $_ > 4 }; # note we're using $_ not $_[0] 
say first \&wanted, 1 .. 10; # prints 5 

my $want = \&wanted;   # Get a subroutine reference 
say first \&$want, 1 .. 10; # This is how you pass a reference in a scalar 

# someFunc expects a parameter instead of looking at $_ 
say first { someFunc($_) } 1 .. 10; 

Answer 2

No comprobado ya que no tengo Perl en esta máquina, pero:

sub first(\&@) { 
    my $pred = shift; 
    die "First argument to "first" must be a sub" unless ref $pred eq 'CODE'; 
    for my $val (@_) { 
     return $val if $pred->($val); 
    } 
    return undef; 
} 

luego usarlo como:

my $first = first { sub performing test } @list; 

Tenga en cuenta que esto no lo hace distinga entre ninguna coincidencia en la lista y uno de los elementos en la lista es un valor indefinido y tiene esa coincidencia.

Answer 3

Justo ya que no es aquí, una definición de función de Perl primero que localiza $_ de su bloque:

sub first (&@) { 
    my $code = shift; 
    for (@_) {return $_ if $code->()} 
    undef 
} 

my @array = 1 .. 10; 
say first {$_ > 5} @array; # prints 6 

A pesar de que no tendrán ningún problema, no abogan por el uso de esta versión, ya que es un núcleo List::Util módulo (instalado por defecto), y su implementación de first generalmente usará la versión XS (escrita en C) que es mucho más rápida.