AP
Тем, что в Perl из этого будет собран полноценный хеш, а в Ruby символы в конечном итоге на этапе компиляции конвертятся в целые числа.
Не будет
my ($class, %opts) = @_
%opts - какой-то особенный?
Size: a a a
2020 January 15
AK
%opts - какой-то особенный?
AP
Это ты его собрал. Можно и не собирать
AK
Типа самому проходить по списку?
Ну тогда это будут постоянные сравнения строк
Ну тогда это будут постоянные сравнения строк
AP
Хеш вообще всегда про сравнение строк. Но можно и без, хотя извратно
AK
Хеш вообще всегда про сравнение строк. Но можно и без, хотя извратно
Хеш - скорее всё-таки про функцию хеширования и только в случае наличия коллизий в самом примитивном варианте - про прямое сравнение строк
AK
Народ, а какой самый быстрый способ определить общий префикс 2-х строк? Я думал, это вообще просто, есть XS-как, но пока не нахожу.
AK
Нашёл самый короткий конечно в кодгольфе, но мне не нужен короткий, нужен максимально быстрый
В
Народ, а какой самый быстрый способ определить общий префикс 2-х строк? Я думал, это вообще просто, есть XS-как, но пока не нахожу.
Длина префикса известна?
AK
Мне её нужно найти
Что-то вроде fire/fuel - один символ
Я так понимаю, что ничего быстрее посимвольного сравнения слева направо не может быть, разве что сравнивать не по 1 байту, например, а по 4. И явно такую логику можно сделать очень быстрой на Си, но не на perl
Что-то вроде fire/fuel - один символ
Я так понимаю, что ничего быстрее посимвольного сравнения слева направо не может быть, разве что сравнивать не по 1 байту, например, а по 4. И явно такую логику можно сделать очень быстрой на Си, но не на perl
AK
Если сравнивать по 4 байта - делать xor и смотреть, где первый установленный в 1 бит, для чего в обычном Intel Asm'е есть инструкции прямо.
AK
Тут ещё определённый косяк в том, что сравнивать нужно строго ASCII, не UTF (но XS-ка это небось итак бы учла и заюзала бы разные алгоритмы для строк, где только ASCII и остальных).
AK
Нет, не нашёль: оно ищет какие-то крутые штуки типа просто общих подстрок, где бы они ни были
AP
Народ, а какой самый быстрый способ определить общий префикс 2-х строк? Я думал, это вообще просто, есть XS-как, но пока не нахожу.
на счёт быстрого не обещаю, бенчмаркать надо:
$ perl -E '$a="abcdefghijkl"; $b="abcdef01234"; $c = $a ^ $b; say $-[0] if $c =~ m{([^\0])};'
6AK
на счёт быстрого не обещаю, бенчмаркать надо:
$ perl -E '$a="abcdefghijkl"; $b="abcdef01234"; $c = $a ^ $b; say $-[0] if $c =~ m{([^\0])};'
6sub __lcp {
return undef unless @_;
my $i = 0;
use bytes;
my ($L, $R) = ( length($_[0]), length($_[1]) );
my $max_l = $L > $R ? $R : $L;
for (; $i < $max_l; $i++) {
ord(substr $_[0], $i, 1) == ord(substr $_[1], $i, 1) or last
}
no bytes;
$i
}AK
Цикл конечно жесть, если так на мильон символов - всё время потратим тупо на интерпретацию "байт-кода" perl
SZ
sub __lcp {
return undef unless @_;
my $i = 0;
use bytes;
my ($L, $R) = ( length($_[0]), length($_[1]) );
my $max_l = $L > $R ? $R : $L;
for (; $i < $max_l; $i++) {
ord(substr $_[0], $i, 1) == ord(substr $_[1], $i, 1) or last
}
no bytes;
$i
}Щьо за трэш? И это производительный код?? Ффууу
AP
Цикл конечно жесть, если так на мильон символов - всё время потратим тупо на интерпретацию "байт-кода" perl
забенчмаркай
AP
а то так можно и сплитом строки на массивы разбить...