|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Kostiuchenko 2:463/468.5 21 Jun 2001 06:09:06
To : Sergei Boytsov
Subject : Cards mixing
--------------------------------------------------------------------------------
Как-то раз (а точнее 18 Dec 00 в 17:08) Sergei Boytsov писал(а) к Sergey
Averichev:
SB> Hу, я, например, так сделал!
>> ===== Open PIPE [dmonk@relay2> cat /usr/user/bsn/Perl/cards.pl]
>> =====<
SB> #!/usr/bin/perl
SB> my @mcards=(1..52);
SB> srand(time);
^^^^^^^^^^^
а вот это - плохая практика. Зная свои карты и принцип инициализации srand в
данном случае можно узнать и другие карты. Представляешь, чем подобное может
грозить скажем в онлайновом казино...
SB> for (1..52) {
SB> my ($a,$b)=(rand(52),rand(52));
SB> @mcards[$a,$b]=@mcards[$b,$a];
SB> }
--
mailto: random at info.net.ua //Александр
* Origin: useless (2:463/468.5)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
