|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Alexander V. Artemyev 2:5020/400 18 Apr 2002 10:07:02 To : Roman =KRoN= Karshiev Subject : Re: Рандомизация массива. --------------------------------------------------------------------------------
> Возникло тут что-то типа соревнованьица на тему как можно более краткого
> варианта случайного перемешивания элементов массива. Вот, думаю, на Perl
> можно слепить в одну строку. Правда у меня что-то больно уж уродски
> выходит :) Есть ли красивые решения? Hа Forth я сделал в одну строку с
> одним циклом с 7 словами в теле цикла.
@shuff=sort{rand(4)-2}@arr;
Есть, конечно, к чему придраться, т.к. коррелляция всё-же довольно сильная.
Hо для простого перемешивания сойдёт.
--
Александр
--- ifmail v.2.15dev5
* Origin: Yartelecom Computer Networks (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/23563f9600e6d.html, оценка из 5, голосов 10
|