Раскрутка генератора случайных чисел
Проблема
При каждом запуске программы вы получаете один и тот же набор «случайных» чисел. Требуется
«раскрутить» генератор, чтобы Perl каждый раз генерировал разные числа. Это важно практически для
любых применений случайных чисел, особенно для игр.
Решение
Воспользуйтесь функцией Perl srand:
srand EXPR;
Комментарий
Генерация случайных чисел — непростое дело. Лучшее, на что способен компьютер без специального
оборудования, — генерация псевдослучайных чисел, равномерно распределенных в области своих значений.
Псевдослучайные числа генерируются по математическим формулам, а это означает, что при одинаковом
стартовом значении генератора две программы сгенерируют одни и те же псевдослучайные числа.
Функция srand задает новое стартовое значение для генератора псевдослучайных чисел.
Если она вызывается с аргументом, то указанное число будет использовано в качестве стартового.
При отсутствии аргумента srand использует величину, значение которой трудно предсказать заранее
(относится к Perl 5.004 и более поздним версиям; до этого использовалась функция time, значения
которой совсем не были случайными). Не вызывайте srand в программе более одного раза.
Если вы не вызвали srand сами, Perl версий 5.004 и выше вызывает srand с «хорошим» стартовым
значением при первом запуске
rand. Предыдущие версии этого не делали,
поэтому программы всегда генерировали одну и ту же последовательность чисел. Если вы предпочитаете
именно такое поведение, вызывайте srand с конкретным аргументом:
srand( <STDIN> );
То, что Perl старается выбрать хорошее стартовое значение, еще не гарантирует криптографической
безопасности сгенерированных чисел от усердных попыток взлома.
См. также
Proverte kod v komentariyah gde pro list tam oshibki detskie
Оставить комментарий:
|
|