Поиск позиции элемента в массиве

[ocehb]

1. 
my $i; for ($i = 0; $i < scalar @array; $i++) { last if ($array[$i] == $value); }

2. 
my $i = 0; foreach (@array) { last if ($_ == $value); $i++; }

3. 
my $i = 0; map { $_ == $value ? last : $i++ } @array; }

Проверка:

# perl -MBenchmark=timethese -de0
  DB<1> @array = map { int rand 10240 } 1..10240
  DB<2> $value = 6000
  DB<3> timethese (10_000,{'A' => q|my $i; for ($i = 0; $i < scalar @array; $i++) { last if ($array[$i] == $value); }|,\
                           'B' => q|my $i = 0; foreach (@array) { last if ($_ == $value); $i++; }|,\
                           'C' => q|my $i = 0; map { $_ == $value ? last : $i++ } @array;|})
Benchmark: timing 10000 iterations of A, B, C...
         A: 56 wallclock secs (46.91 usr +  0.02 sys = 46.93 CPU) @ 213.08/s (n=10000)
         B: 36 wallclock secs (31.43 usr +  0.01 sys = 31.44 CPU) @ 318.07/s (n=10000)
         C: 35 wallclock secs (35.03 usr +  0.00 sys = 35.03 CPU) @ 285.47/s (n=10000)

Comments

[alll]

Да ты никак "перл кукбук для гиков" замутить решил? :)

[ocehb]

для ссылок :)

[alll]

вот и я говорю...

Глядя на тайминги

[alll]

То-есть надо быть проще? :)

Re: Глядя на тайминги

[ocehb]

на самом деле там есть засада одна, не все ее увидят.

в одном месте я произвел фурор, когда обернутые в функции данные методы показали в третьем случае -2 секунды :)

Re: Глядя на тайминги

[alll]

Переполнение? Перл небось ещё старый был...

Re: Глядя на тайминги

[ocehb]

нет :)

# perl -MBenchmark=timethese -de0
DB<1> @var1=(2000,6000,9000,12000);

DB<2> timethese (10_000_000,{'A' => q|$i = 0;foreach (@var1) { ++$i; if ($var1[$i-1] == $_) { $nomelem = $i-1 }}|,\
                             'B' => q|$nomelem = 0;map { $_ == 6000 ? last : $nomelem++ } @var1;|})
Benchmark: timing 10000000 iterations of A, B...
A: 40 wallclock secs (38.48 usr + 0.02 sys = 38.50 CPU) @ 259740.26/s (n=10000000)
B: -2 wallclock secs (-2.21 usr + 0.00 sys = -2.21 CPU) @ -4524886.88/s (n=10000000)
(warning: too few iterations for a reliable count)

Re: Глядя на тайминги

[alll]

Так если не переполнение - откуда глюк? Погрешность округления в последних знаках float?

Re: Глядя на тайминги

[ocehb]

нет, в слове last.
Benchmark не крутит B 10_000_000 раз, а сразу выходит из loop'a

Re: Глядя на тайминги

[ocehb]

кстати, неплохой вопрос на собеседовании или экзамене -- "почему так происходит?" :)

Re: Глядя на тайминги

[alll]

Разве что уже решено поставить неуд. Я так и не нашёл отличий в работающем в плюс и в работающем в минус варианте. :) И даже если предположить, что map крутанулся всего один раз - непонятно, откуда такой жирный минус.

Re: Глядя на тайминги

[ocehb]

hint: "warning: too few iterations for a reliable count" :)

самое интересное начнется, если попросить привести работающий в данном тесте код.

Re: Глядя на тайминги

[alll]

Дык для last вполне можно юзать метки - если сомневаешся, для чего именно он last. Хотя раз пошла такая пьянка - тут и goto покатит. :)

Re: Глядя на тайминги

[ocehb]

goto -- test passed :)
а с last -- нет.

Re: Глядя на тайминги

[alll]

Дополнительный блок, оборачивающий map с меткой в его начале и эту метку как параметр last'у скормить - тоже прокатывает? :)

Re: Глядя на тайминги

[ocehb]

угу

Re: Глядя на тайминги

[alll]

То-есть last без параметров выкидывает не из того блока? Типа куда-то за пределы внутреннего цикла timethese?

А в исходном посте квазинормальные результаты только за счёт слишком большой длинны массива, в котором идёт поиск?

Re: Глядя на тайминги

[ocehb]

не, {} в map'е в текущем контексте выполняется

Re: too few iterations

[alll]

Да я просто не знаю, по какой формуле там считается и как реагирует на досрочное завершение. Лень rtfm'ить. :)

Re: too few iterations

[ocehb]

тут не в этом дело, оно может и 0 выдать.
вопрос "почему так различается результат?"

Re: too few iterations

[alll]

Ну так пузомерка, как я понимаю, всё внутри eval пускает или там как-то иначе?

Re: too few iterations

[ocehb]

    if (ref $c eq 'CODE') {
        $subcode = "sub { for (1 .. $n) { local \$_; package $pack; &\$c; } }";
        $subref  = eval $subcode;
    }
    else {
        $subcode = "sub { for (1 .. $n) { local \$_; package $pack; $c;} }";
        $subref  = _doeval($subcode);
    }

Re: too few iterations

[alll]

А! Вот теперь видно. Нехер склеивать plaintext'ом что попало без обёрток. Первейшее дело для хака. :)

Гадая на кофейной гуще

[alll]

Оно там что, первые несколько итераций не засчитывает, чтоб участок разгона пропустить? :)