[mamuk]

доброго времени суток!! подскажите как сравнить два списка вида '((10 . x y) (10 . x y) (10 . x y)....) и '((10 . x y z) (10 . x y z) (10 . x y z)....) при том два списка не равны по количеству содержимого. Задача найти одинаковые по значениям x и y и сформировать новый список в котором будут ( 10 . x y z)?

[nolte]

ежли сравниваешь примитивы поищи "хеш сумма" - это сумма списка entget примитива.

[VVA]

Посмотри у Lee Mac'a еще функции :
List Box Functions
List Difference
List Intersection
List Symmetric Difference
List Union

[skkkk]

Сообщение от nolte ежли сравниваешь примитивы поищи "хеш сумма" - это сумма списка entget примитива.

nolte, нашел тему Lisp. Выделение нового в чертеже. С первого взгляда не понял, как определить такую сумму у отдельно взятого примитива, а разбираться и копать глубоко не охота... И есть подозрения, что это не самый быстродейственный вариант. Всё же списки обрабатывать, на мой взгляд, - менее ресурсоемкое занятие.
VVA, спасибо, Володь! В который раз выручаешь, когда уже не осталось надежд.
Я так понимаю, что из этих функций более всего подходят List Difference (если вернет ноль элементов, значит, списки равны) или List Intersection (если вернет все элементы одного списка, значит они равны). То, что надо.

[gomer]

Сообщение от Дима_ сравниваешь размеры, если равны берешь первый и проверяешь есть ли такой элемент во втором.

сначала нужно отсортировать примитивы, преобразовав в набор список. не факт, что в двух наборах одни и те же примитивы будут в том же порядке

[Дима_]

читай внимательней - проверяешь есть-ли такой во втором (то есть пробегаешься по всему списку до совпадения)

[skkkk]

Сообщение от gomer не факт, что в двух наборах одни и те же примитивы будут в том же порядке

Я так понял, что Дима_ предлагает проверять второй список на наличие 1-го примитива первого списка, затем на наличие 2-го примитива первого списка и т.д. В таком случае порядок не важен.
А если отсортировать, то можно просто попарно сравнивать n-ные примитивы каждого списка.
В первом случае имеем nxn итераций, во втором - сортировку и просто n итераций. Правильно я понимаю?
Только вот как сортировать? vl-sort? Какую тогда брать тест-функцию? Или в лоб, acad_strlsort?

[nolte]

С первого взгляда не понял, как определить такую сумму у отдельно взятого примитива, а разбираться и копать глубоко не охота... И есть подозрения, что это не самый быстродейственный вариант. Всё же списки обрабатывать, на мой взгляд, - менее ресурсоемкое занятие.

полностью поддерживаю, сразу видно, что способ будет заторможенным

[skkkk]

Пока писал, отвлекался, Дима_ сам ответил

----- добавлено через ~1 мин. -----
nolte, спасибо за участие

[gomer]

Как вариант использовать связку ssmemb и ssdel. если рекурсивно, то быстродействие останется на втором плане