Быстрая проверка на вхождение скаляра в массив

perl -wE 'my @numbers = (19, 42, 23, 4, 10, 23); my $number = 42; say «in array» if $number ~~ \@numbers;'

Оно работает, но

Smartmatch is experimental at -e line 1.

Да, зависит от версии интерпретатора.

perl -we 'my @numbers = (19, 42, 23, 4, 10, 23); my $number = 42; print «in array» if grep {$_ == $number} @numbers'

Может лучше так:

#!/usr/bin/env perl
use strict;
use warnings;

my @numbers = (19, 42, 23, 4, 10, 23);
my $number = 42;

my %numhash = map { $_, $_ } @numbers;

print "in array\n" if exists $numhash{$number};

«может», запросто, оба варианта вполне perlish. Надо решить что важней, процессор или память, выяснить насколько большой массив. Почти всегда хватает смарт-матчинга или фильтрации массива.

Вообще говоря, если основная операция - это проверка вхождения значения, то массив - это неправильно выбранная структура данных.

или timsort + бинарный поиск.

Все варианты в PP жрут немерянно ОЗУ. Если и брать массив чисел от 100 тыс. и более, то только через XS: Bit::Vector, Tie::IntegerArray и т.п. Конечно, пример у ТС даже оптимизировать не надо.

Именно так.

Массив, примерно, на 5000 элементов

Все варианты в PP жрут немерянно ОЗУ

PP - это polny pizdets, или PAR::Packer?

Pure Perl

У вас в перле что, сетов нет?

Поскольку задача поставлена в общем виде, то можно использовать любой вариант выше (~~, grep, hash/map). Если нужно будет скорости, глянь Memoize. И если совсем приспичит, то Bit::Vector.

P.S. grep может работать и с операторами, а не только с рекспами, например, grep { $_ == 42 } @numbers.

Ну и делать \@ не нужно. $number ~~ @numbers вполне работает

http://perldoc.perl.org/List/Util.html
any
Приятная библиотека.

А оно не будет копировать массив?

Нет

http://search.cpan.org/~jhi/Set-Scalar-1.25/lib/Set/Scalar.pm