Показать сообщение отдельно

  #10  
Старый 10.10.2007, 01:09
KSURi
Постоянный
Регистрация: 06.06.2006
Сообщений: 515
С нами: 10489346

Репутация: 963


По умолчанию

На сонную голову пришел вариант только с rand =\
Код:
my $rand = 'int rand 0xffffff;';
print eval $rand x rand 0xfff;
По идее повторный вызов rand'a на основе рез-та предыдущего вызова rand должен снизить шансы повтора имхо. Причем чем больше вызовов, тем меньше шанс.
 
Ответить с цитированием