Нужно сортировать массив в порядку убывания
При этом числа равные X считались меньше остальных даже если в массиве есть числа<X
Исходный массив
qw(1 2 5 9 20 20 1 3 6 2);
При X==20 нужно получит такой результат
20 20 1 1 2 2 3 5 6 9
Ищется решение на Perl
PS на самом деле массивы имеют примерно такой вид
for(my $i=1; $i<1000; $i++) {
push @array, (1..25);
}
image
image
Регистрация: 14.12.2002, 02:15Offline Активность: 04.11.2003, 21:22