• Артур
  • Восстановленный участник
  • На форуме с 4 марта 2005г.
  • Сообщений: 64
  • Спасибо: 0

Тема: Сортировка списков

Допустим есть список
(1.1 2.2)  (1.3  3.3) (1.1 2.0) (1.3 1.1)
Как сделать сортировку по убыванию первого значения
  (1.3 3.3) (1.3 1.1) (1.1 2.2) (1.1 2.0)       (второе число тоже должно быть по убыванию)
И точно так второго значения
(1.3 3.3) (1.1 2.2) (1.1 2.0) (1.3 1.1)
Данный вариант действует только на одно значение

(setq  param_list
   (vl-sort
     param_list
     (function
       (lambda (e1 e2)
         (> (car e1) (car e2))
       )
     )
   )
  )

  • che
  • Восстановленный участник
  • На форуме с 22 апреля 2005г.
  • Сообщений: 307
  • Спасибо: 0

Re: Сортировка списков

> Артур
Сделай поиск по слову "сортиров" в названиях тем.

  • Откуда: Москва
  • На форуме с 2 июля 2004г.
  • Сообщений: 2,538
  • Спасибо: 10

Re: Сортировка списков

> Артур
Примерно так:

(setq
  param_list
   (vl-sort
     (vl-sort
       param_list
       (function
     (lambda (e1 e2)
       (>
         (car e1)
         (car e2)
       )
     )
       )
     )
     (function
       (lambda (e1 e2)
     (>
       (car e1)
       (car e2)
     )
       )
     )
   )
)

Надеюсь понятно...

  • Эдуард
  • Восстановленный участник
  • На форуме с 1 ноября 2005г.
  • Сообщений: 2
  • Спасибо: 0

Re: Сортировка списков

(vl-sort lst
       '(lambda (x1 x2)
          (or
        (< (car x1) (car x2))
        (if
          (= (car x1) (car x2))
           (< (cadr x1) (cadr x2))
        )
          )
        )
  )

  • Эдуард
  • Восстановленный участник
  • На форуме с 1 ноября 2005г.
  • Сообщений: 2
  • Спасибо: 0

Re: Сортировка списков

(vl-sort lst
'(lambda (x1 x2)
(or
(< (car x1) (car x2))
(if
(= (car x1) (car x2))
(< (cadr x1) (cadr x2))
)
)
)
)