в Perl? Чтобы без хардварных генераторов, только софтом.
чем не устраивает /dev/urandom + sha256 ?
Crypt::OpenSSL::Random
Одна из моих любимых картинок.
Петросян может гордиться тобой:)
Ну вообще это одна из старейших шуток, так что это уже классика.
Ты сначала докажи что это не рандом
Cлучайность переменчива: my $max = 10; my $noConsecutiveChange = 0; my $last = undef; my $current = undef; for my $n (1..$max){ $last = ($n > 1)?($current):(getRandomNumber); $current = getRandomNumber; ($last != $current)?($noCnsecutiveChange = 0):(++$noConsecutiveChange); } print ($noConsecutiveChange == $max)?('RANDOM'):('STATIC'), "\n";
ты же не знаешь, откуда он эту четверку достал
Как это не знаю? return 4 всегда возвращает одно и то е
Обсуждают сегодня