MG
похоже на то что нужно:)
Size: a a a
2021 July 18
AS
Нужно сделать бенчмарк. Мне тут выше объяснили, что я использовал самые неподходящие операции
AS
Кстати, спустя 2053 операции цикл чисел повторится. Если нужно, чтобы не повторялось, то можно выбрать другие породающие (переменная $gen).
Порождающий - это такое число, что минимальная степень в которой он будет равен 1, равно 2053 - 1 = 2052.
В универе какие-то теоремки были, но я уже их все забыл, как их находить.
Можно просто перебор всех порождающих написать.
Порождающий - это такое число, что минимальная степень в которой он будет равен 1, равно 2053 - 1 = 2052.
В универе какие-то теоремки были, но я уже их все забыл, как их находить.
Можно просто перебор всех порождающих написать.
AS
Я вот так нашёл 1501:
my $MOD = 2053;Т.е. можно last убрать и цикл сделать от 2
for my $i (1500 .. 2052) {
my $count = 1;
my $r = $i;
while ($r != 1) {
$r = ($r * $i) % $MOD;
++$count;
}
if ($count >= 2052) { say $i; last; }
}
MG
учитывая, что придется постоянно искать ещё "порождающие", ест ли смысл вообще что-то такое пробовать, или брать обычный random, и не морочить голову, хз
AS
Почему-то кажется, что все операции в перле будут выполнятся медленно. Я бы бенчмарк написал вначале)
Потом бы думал, подходит ли мне эта скорость.
Потом бы думал, подходит ли мне эта скорость.
b
если вас не устраивает скорость рандома в перле, я бы сказал, что у вас проблемы с подходом или архитектурой
AP
деление на 2048 - не деление
VO
я уже не помню, но для псч надо делить кажется на что-то другое
AS
У меня там простое число, а не степень двойки
R
Переписывали как-то модуль рандомной выборки на XS. С целью совместимости результатов и непереписывания тестов выбрали тот же алгоритм rand48. Разница в генераторе рандома нулевая, выйгрыш только в обработке своих данных. И да, это достаточно быстрый алгоритм.
AS
А вот деление на умножение переделал:
perl -E 'sub fast_mod { my $n = shift; return $n - (($n * 2142253537) >> 42) * 2053; } for $i (2 .. 3_000_000) { if (fast_mod($i) != $i % 2053) { say $i; last; } }'AP
рандомострадания блин
AS
Ага, но я поупражнялся. Спасибо))
MG
Спасибо вам и от меня:)
a
Ну, во-первых шелл-то тоже ограниченный + есть еще меры. Ну и цель то в том, что бы взломать систему было не так тривиально (хотя бы что бы минут 10 надо было повозиться в условиях, когда все логгируется и мониторится). КМК с докером, настроенным без каких-то хитростей, неавторизованный доступ к памяти производится за десяток секунд.
VK
можно, например, сделать deprecated фичи, которые тормозят, и редко используются
Ведь по факту в языке используется некоторое его подмножетсво, возможно легаси и не используется
Ведь по факту в языке используется некоторое его подмножетсво, возможно легаси и не используется
2021 July 19
VO
а всякие use strict; получаются локальные для модуля? т.е. если в модуле use strict нет то никогад и никак стрикта там не будет?
SZ
VO
а всякие require? а если package в файле нет?