Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → LISP → сортировка списка
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Есть следующий список:
((J207-2 2 45.3) (J207-3 3 47.5) (J207-1 0 41.2) (J205-1 3 38.9) (J205-2 2 42.3))
Каждый элемент списка состоит из 3-х элементов.
Первый элемент -строковый
Второй элемент - целое число
Третий элемент - вещественное число.
Как упорядочить этот список по строковому параметру, чтобы получилась следующая последовательность:
((J205-1 3 38.9) (J205-2 2 42.3) (J207-1 0 41.2) (J207-2 2 45.3) (J207-3 3 47.5))
Так например
(defun sorting (lst / testf res)
(defun testf (a b)
(> (car a) (car b))
)
(setq index (vl-sort-i lst 'testf))
(while index
(setq res (cons (nth (car index) lst) res))
(setq index (cdr index))
)
res
)
(vl-load-com)Проверим
_$ (sorting '(("J207-2" 2 45.3) ("J207-3" 3 47.5) ("J207-1" 0 41.2) ("J205-1" 3 38.9) ("J205-2" 2 42.3)))
(("J205-1" 3 38.9) ("J205-2" 2 42.3) ("J207-1" 0 41.2) ("J207-2" 2 45.3) ("J207-3" 3 47.5))
_$ Спасибо!
Убедительная победа!
Не стреляйте, переменную index забыл локализовать. Первая строка такая:
(defun sorting (lst / testf res index )
Можно и так :
(setq sort_list (vl-sort lst '(lambda (i j) (< (car i)(car j)))))
(Пример из хэлпа)
~'O'~
Можно. Только не надо забывать что
Duplicate elements may be eliminated from the list.
... из того же хелпа :(((
> VK
Спасибо, я и не обращал внимания
Тогда :
(setq sort_list (vl-sort-i lst '(lambda (i j)
(< (car i)(car j)))))
? Duplicate elements will be retained in the result...
Дупеля возвращаются
А если список сосотоит из трехмерных точек? Нужно отсортировать по возростанию координат X и Y одновременно.
Т.е. снизу-вверх-слева-направо.
Помему я уже придумал сам :))
нужно сортировать по сумме X и Y.
проверить тока надо.
> Сергей
не совсем правильно, отсортировал по сумме X и квадрату Y.вроде работает. Эх, говорила мама учи математику :)
нисего что я тут сам с собой разговариваю?
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → LISP → сортировка списка
Форум работает на PunBB, при поддержке Informer Technologies, Inc
