Построить список, состоящий из элементов нескольких заданных списков, которые не являются общими для них

@behappy1 · Регистрация: 04.06.2018

Студворк — интернет-сервис помощи студентам

Тяжела для моего понимания структура LISP'a. Возможно, преподаватель изначально подал неверный подход к построению кода.
Как пример, могу привести код, где объединяются списки, без повторений элементов.

Lisp
1
2
3
4
5
6
7
8
9
10
(defun  COMB  (SP)
    (setq  L  (length  SP))
    (setq  RESULT  ())
    (foreach  SPC  SP
        (foreach  EL  SPC
            (if  (not  (member  EL  RESULT))  (setq  RESULT  (cons  EL  RESULT)))
        )
    )
    (reverse  RESULT)
)

Результат:
_$ (COMB '((1 2 3 4)(2 3 4 5 6)))
(1 2 3 4 5 6)

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

@_sg · 05.04.2020, 12:23

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
(defun our-set-exclusive-or (w v)
  (nconc (unique w v) (unique v w)))
 
(defun unique (w v &optional ac &aux (a (car w)))
  (cond ((null w) (nreverse ac))
        ((or (member a v) (member a ac)) (unique (cdr w) v ac ))
        ((unique (cdr w) v (cons a ac)))))
 
> (our-set-exclusive-or '(a b) '(b c))
(A C)
> (our-set-exclusive-or '(a b) '(b))
(A)
> (our-set-exclusive-or '(a b) '())
(A B)
> (our-set-exclusive-or '(a b) '(c))
(A B C)

Добавлено через 18 секунд

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(defun our-set-exclusive-or (w v)
  (nconc (unique w v) (unique v w)))
 
(defun unique (w v &optional ac)
  (if w (if (or (member (car w) v) (member (car w) ac))
            (unique (cdr w) v ac)
            (unique (cdr w) v (cons (car w) ac)))
      (nreverse ac)))
 
> (our-set-exclusive-or '(a b) '(b c))
(A C)
> (our-set-exclusive-or '(a b) '(b))
(A)
> (our-set-exclusive-or '(a b) '())
(A B)
> (our-set-exclusive-or '(a b) '(c))
(A B C)

Добавлено через 15 секунд

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(defun our-set-exclusive-or (w v)
  (nconc (unique w v) (unique v w)))
 
(defun unique (w v &optional ac &aux (a (car w)) (d (cdr w)))
  (if w (if (or (member a v) (member a  ac))
            (unique d v ac)
            (unique d v (cons a ac)))
      (nreverse ac)))
 
> (our-set-exclusive-or '(a b) '(b c))
(A C)
> (our-set-exclusive-or '(a b) '(b))
(A)
> (our-set-exclusive-or '(a b) '())
(A B)
> (our-set-exclusive-or '(a b) '(c))
(A B C)

Добавлено через 14 секунд

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(defun our-set-exclusive-or (w v)
  (nconc (unique w v) (unique v w)))
 
(defun unique (w v)
  (loop for a in (remove-duplicates w)
        unless (member a v) collect a))
 
> (our-set-exclusive-or '(a b) '(b c))
(A C)
> (our-set-exclusive-or '(a b) '(b))
(A)
> (our-set-exclusive-or '(a b) '())
(A B)
> (our-set-exclusive-or '(a b) '(c))
(A B C)

@helter · 05.04.2020, 12:28

Если это автолисп, то лучше бы запостить в соответствующем разделе.

@_sg · 05.04.2020, 12:32

несколько:

Lisp
1
2
3
4
5
(defun set-exclusive-or-long (w)
  (reduce #'set-exclusive-or w))
 
> (set-exclusive-or-long '((1 2 3) (3 4 5) (5 6 7))) 
(1 2 4 6 7)

Добавлено через 3 минуты

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
(defun set-exclusive-or-long (w)
  (reduce #'our-set-exclusive-or w))
 
(defun our-set-exclusive-or (w v)
  (nconc (unique w v) (unique v w)))
 
(defun unique (w v &optional ac &aux (a (car w)))
  (cond ((null w) (nreverse ac))
        ((or (member a v) (member a ac)) (unique (cdr w) v ac ))
        ((unique (cdr w) v (cons a ac)))))
 
> (set-exclusive-or-long '((1 2 3) (3 4 5) (5 6 7))) 
(1 2 4 6 7)

@behappy1 · 05.04.2020, 12:58 **[ТС]**

Извиняюсь, задам вопрос в нужном разделе.

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@helter 4528 / 3522 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	05.04.2020, 12:28
	Если это автолисп, то лучше бы запостить в соответствующем разделе. 2

@behappy1 0 / 0 / 0 Регистрация: 04.06.2018 Сообщений: 7
	05.04.2020, 12:58 [ТС]
	Извиняюсь, задам вопрос в нужном разделе. 0

Построить список, состоящий из элементов нескольких заданных списков, которые не являются общими для них

Решение