ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sergey Averichev                     2:5000/26.79   18 Dec 2000  15:17:48
 To : Sergei Boytsov
 Subject : Cards mixing
 -------------------------------------------------------------------------------- 
 

 
 Monday December 18 2000 02:51, you wrote to All:
 
  SB> Пусть 1..52 означают карты в колоде. Как покрасивее на перле написать
  SB> перемешивание и раздачу всей колоды 4 игрокам?
 
   @randlist=(1..52);
   foreach $count(0..51)
   {
     $rnd=int(rand(@randlist));
     $x[$count]=$randlist[$rnd];
     splice (@randlist,$rnd,1);
   }
 
 В конце процедуры @x содержит перетасованную колоду, осталось только раздать.
 Если перл ниже 5.004 - не забыть перед перетасовкой раскрутить генератор с.ч.
 
 Может кто покороче сделает? Самому интересно.
 
 CULater, Seraver.                             [Team СТАРОПОЙHТЫ]
 
 ... Хочется жить не вмеру, а вволю.
 --- Две крайности - +0 и -0.
  * Origin: Hyperbola Station: "Powered by ТЭЦ-3" (2:5000/26.79)
 
 

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

Тема:    Автор:    Дата:    Cards mixing   Sergei Boytsov   18 Dec 2000 03:51:43   Cards mixing   Sergey Averichev   18 Dec 2000 15:17:48   Cards mixing   Maxim Y. Zinyakov   18 Dec 2000 17:42:00   Cards mixing   Sergey Averichev   19 Dec 2000 00:17:38   Re: Cards mixing   Ruslan Bondarev   18 Dec 2000 23:03:37   Re: Cards mixing   Artur Penttinen   21 Dec 2000 21:39:11   Cards mixing   Sergei Boytsov   18 Dec 2000 18:08:18   Cards mixing   Alexander Kostiuchenko   21 Jun 2001 06:09:06   Cards mixing   Marat Gizatullin   30 Dec 2000 18:52:21