Перейти к содержимому

image

image

Регистрация: 14.12.2002, 02:15
Offline Активность: 04.11.2003, 21:22
-----

В теме: Perl sort

23.12.2002, 01:48:21

Tzar на Perl это так:

@array=sort{if($b==20){1}elsif($a==20){-1}else{$a<=>$b}}@array;

Думаю можно найти способ быстрее Добровольцы поискать есть?:D

В теме: Perl sort

14.12.2002, 02:26:15

Нужно сортировать массив  в порядку убывания
При этом числа равные 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);
}

  1. Все Вместе
  2. → Просмотр профиля: Сообщения: image

Размещение рекламы на сайте     Предложения о сотрудничестве     Служба поддержки пользователей

© 2011-2022 vse.kz. При любом использовании материалов Форума ссылка на vse.kz обязательна.