AP
sub bit_flip { my $M = 0b01010101; (($_[0] >> 1) & $M ) | (($_[0] & $M) << 1) }ну вот прямо так непроизводительно?
ну вот прямо так непроизводительно?
Size: a a a
2021 July 05
ну вот прямо так непроизводительно?
2021 July 06
W
perl -e 'my @a = ("q", "w", "e"); while(each @a){ print "\t$a[$_]\n"; last if $a[$_] eq "w" }; while(each @a){ print "$a[$_]\n" }'
Но никогда, никогда, никогда так не делайте.
Но никогда, никогда, никогда так не делайте.
VO
почему?
W
Потому что не сбрасывать внутренний счетчик у AV / HV - к багам.
М
each же будет орать про odd number of elements )
М
Разве нет?
М
На трёх элементах
VO
не будет. с 5.12 он знает что массив -- не хэш
W
Я проверил. На последнем Перле. Тоже думал что в хеш превратит
VO
что? ваще не понял
М
Получается ещё один способ итерации массива добавили?
W
Явно сбросить этот итератор нормального АПИ - нету. Только до конца дойти.
W
Вообще each это немного кривая история, к сожалению. Но - какая есть.
VO
All uses of
"each" are also subject to having the iterator reset by any use
of "keys" or "values" on the same hash or array, or by the hash
(but not array) being referenced in list context.
"each" are also subject to having the iterator reset by any use
of "keys" or "values" on the same hash or array, or by the hash
(but not array) being referenced in list context.
W
Ну да, но это не явно и об этом надо помнить. Из опыта - с этим больше багов чем плюшек
VO
в любом случае меня это устраивает. в данном случае
М
Я его юзаю крайне редко
М
Даже не помню когда юзал
W
Как знаете. Предупреждающая табличка на входе вам была показана. Пистолет подведен к виску. Удачи.
М
Он по идее меньше памяти жрет чем keys