Добрый день! Кто-нибудь может подсказать скрипт для разупорядочивания массива, состоящего из целых чисел?
Спасибо!

• Разупорядочивание массива ,madskull, 10:52 , 08-Ноя-05
  • Разупорядочивание массива ,artem, 11:10 , 08-Ноя-05
  • Разупорядочивание массива ,ACCA, 21:43 , 15-Ноя-05
    • Разупорядочивание массива ,nonSmoker, 16:40 , 01-Авг-06

>Добрый день! Кто-нибудь может подсказать скрипт для разупорядочивания массива, состоящего из целых
>чисел?
>Спасибо!
Хм, прикольно...

@a=qw(1 2 3 4 5 6 7 8 9 10);
print join(" ",sort {rand(100)<=>rand(100)} @a);

>Хм, прикольно...
>
>
>@a=qw(1 2 3 4 5 6 7 8 9 10);
>print join(" ",sort {rand(100)<=>rand(100)} @a);

Пасиб!

man perlfaq4

>@a=qw(1 2 3 4 5 6 7 8 9 10);
>print join(" ",sort {rand(100)<=>rand(100)} @a);

Недостаточно хорошо. Нужно чуть сложнее:

           sub fisher_yates_shuffle {
               my $deck = shift;  # $deck is a reference to an array
               my $i = @$deck;
               while ($i--) {
                   my $j = int rand ($i+1);
                   @$deck[$i,$j] = @$deck[$j,$i];
               }
           }

@arr = sort{int(rand(3))-1} @arr;