[swkx]

День добрый.

Евгений А. предоставил пример сортировки списка, в котором элементы расположены в порядке возрастания координаты Z.

Код:

[Выделить все]

(setq tab2 (VL-sort table (FUNCTION (lambda (str1 str2 /) (< (cadddr str1) (cadddr str2))))))

где table - список вида ((N1 x1 y1 z1) (N2 x2 y2 z2)...)

Объясните плиз, какая связь между аргументами str1, str2 и элементами списка.
Как выглядела бы подобная функция, если бы потребовалось добавить условие: точки с одинаковой коорд. Z должны располагаться в порядке убывания коорд. X ?

[Дима_]

Сообщение от swkx Объясните плиз, какая связь между аргументами str1, str2 и элементами списка.

Берет поочередно элементы списка и при выполнении условия заданного лямбда функцией функцией возращает их в прямом или обратном порядке.

Сообщение от swkx Как выглядела бы подобная функция, если бы потребовалось добавить условие: точки с одинаковой коорд. Z должны располагаться в порядке убывания коорд. X ?

1. написать функцию которая вначале сравнивает не равны-ли аргументы, если да то смотрит сравнивает координаты x, если нет, то как и в предыдущем посте z.
2. Вначале отсортировать по x (аналогичной функцией), потом по z.

[Do$]

str1 и str2 - это два рядом стоящих члена получаемого списка, для которых функция проверки должна выдавать T.

Сообщение от swkx Как выглядела бы подобная функция, если бы потребовалось добавить условие: точки с одинаковой коорд. Z должны располагаться в порядке убывания коорд. X ?

Примеры списков приведи - то что есть и то что надо получить.

[Дима_]

см. пост 2:

Код:

[Выделить все]

(setq lst '((1 2 3) (4 5 6) (7 8 9) (3 2 1) (6 5 4) (9 8 7) (3 3 3) (4 4 4) (5 5 5) (6 6 6)))
; 1 вариант
(vl-sort 
         (vl-sort
                   lst
                      '(lambda (a b) (> (car a) (car b))))
        '(lambda (a b) (> (caddr a) (caddr b))))
; 2 вариант (теоретически должен работать быстрее т.к. меньше "прогонов")
(vl-sort
          lst
         '(lambda (a b)
         (if (= (caddr a) (caddr b))
            (> (car a) (car b))
            (> (caddr a) (caddr b)))))

[swkx]

Дошло наполовину.

Я правильно понимаю, что у LAMBDA должно быть всегда два аргумента при использовании с VL-SORT и всегда один аргумент при использовании с VL-MEMBER-IF ?
Причем во 2-м случае аргумент - элемент исходного списка ?

[VVA]

Код:

[Выделить все]

;;;Результат (("1" 2 2 2) ("2" 0 2 3) ("3" 1 2 3) ("4" 3 2 3))  
(setq lst '(("3" 1 2 3)("2" 0 2 3)("1" 2 2 2)("4" 3 2 3)))
(vl-sort lst
  '(lambda(x y)
     (or                        ;_Или
       (< (cadddr x)(cadddr y)) ;_Z 1-го элемента меньше Z 2-го элемента
        (and                   ;_Или И
          (equal (cadddr x)(cadddr y) 1e-6) ;_Z 1-го элемента равно Z 2-го элемента
          (< (cadr x)(cadr y))              ;_X 1-го элемента меньше X 2-го элемента
          ))) )

[Дима_]

То VVА - тоже вначале хотел про логику заикнуться - но боюсь запутать основательно.

[VVA]

Дима_,
К посту #4. Мне кажется вариант 1 будет не всегда корректно сортировать, так как вызываются 2 различные сортировки
В варианте 2 нельзя сравнивать вещественные числа с помощью функции =, только equal с допуском

[swkx]

Я так и не услышал ответ на вопрос, который задал в посте #5

[VVA]

Сообщение от swkx Я правильно понимаю, что у LAMBDA должно быть всегда два аргумента при использовании с VL-SORT и всегда один аргумент при использовании с VL-MEMBER-IF ?

Да. Но можно проверить все это экспериментально

Сообщение от swkx Причем во 2-м случае аргумент - элемент исходного списка ?

В первом случае тоже

[swkx]

VVA,

вы правы, вариант 1 поста #4 не работает

Сообщение от VVA Да. Но можно проверить все это экспериментально

Я проверил, мало того, в программе тоже всё работает, но хотелось бы ещё и понять, как именно ОНО работает

[Дима_]

О да - с первым это я загнул - хотел попроще показать - в итоге ошибку "ляпнул".

[swkx]

Конструкции
(function (lambda....))
и
'(lambda....)
полностью идентичны во всех случаях ?

[Кулик Алексей aka kpblc]

http://autolisp.ru/2009/09/13/quote-...on-difference/ ?

[swkx]

Ок, понято.