SZ
можно теоретически ещё поди как то ускорить
Конечно можно :)
Size: a a a
2021 January 28
YM
12% стоят такого кода?
DF
никогда goatse оператор не видел? :)
В книжке видел, а живьём ни разу :)
SZ
12% стоят такого кода?
Даже 5% этого стоят
YM
а у тебя перл с трэдами собран? )
SZ
можно теоретически ещё поди как то ускорить
Inline::ASM ещё можно заюзать, как минимум
VZ
AP
переделка на
lines += (v & 0xff) == 0x0a; дала 15% вместо 12% ..VG
а где же finally
AP
12% стоят такого кода?
апдейт:
tr 204/s 10387% 5449% 4013% -- -19%
inlinec 252/s 12891% 6774% 4995% 24% --
AP
а что не так с кодом то?
VT
Не самый очевидный
VT
Хотя и не самый страшный
AP
а с тр очевиднее??
2021 January 29
SZ
а что не так с кодом то?
С каким? С инлайн си?
SZ
Обязательность компилятора
SZ
Обязательность readwrite filesystem
VG
необходимость майнтейнить (возможность поломки)
AK
Есть ли подход попроще?
sub check_package_is_loaded {
my $package = $_[0];
no strict;
*s = *{"${package}::"};
%s ? 1 : ''
}AK
Тут ещё косяк в том, что если в пакете нет символов, то результат будет неправильным