ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Vitaly N. Akuloff                    2:5093/27.50   21 Jun 2001  14:07:16
 To : Sergei Boytsov
 Subject : Cards mixing
 -------------------------------------------------------------------------------- 
 

 
 20 Июн 01 08:06, Sergei Boytsov -> All:
  SB> Пусть 1..52 означают карты в колоде. Как покрасивее на перле написать
  SB> перемешивание и раздачу всей колоды 4 игрокам?
 
 Я так делал. Создаешь хеш, в цикле $HH{index}=rand();
 
 потом сортируешь его по значению
 
 sort {...} %HH;
 
 потом обычный итератор:
 
 foreach $index (keys %HH){
     print $index,"\n";
 }
 
 получаем "перетусованый" набор индексов.
 
 WBR Vitaly N. Akuloff,  Reply-To: mr_little@pisem.net
 
 --- GoldED+/LNX 1.1.4.3
  * Origin: Trade&Finance company KAMAZ (www.kamaztrade.ru) (2:5093/27.50)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Счетчик   A.Shilov   12 Dec 2000 00:18:35   Счетчик   Konstantin Udakov   12 Dec 2000 15:10:52   Счетчик   Igor V. Slyusarev   14 Dec 2000 17:32:00   Re: Счетчик   Artem Chuprina   15 Dec 2000 20:00:48   Счетчик   Konstantin Udakov   16 Dec 2000 11:06:09   Счетчик   Igor V. Slyusarev   20 Dec 2000 21:04:00   Re: Счетчик   Pavel Zheltouhov   22 Dec 2000 13:30:04   Cards mixing   Sergei Boytsov   18 Dec 2000 12:34:04   Cards mixing   Vitaly N. Akuloff   21 Jun 2001 14:07:16   Re: Счетчик   A.Shilov   13 Dec 2000 23:17:03   Счетчик   Andrey Larushkin   14 Dec 2000 11:42:22   Счетчик   Konstantin Savelyev   19 Dec 2000 00:16:45