Mariya59
1

Заданы три списка. Удалить из первого списка все элементы остальных списков

13.11.2010, 19:39. Показов 5684. Ответов 8
Метки нет (Все метки)

Помогите пожалуйста, мне нужно сессию досрочно сдать( в роддом надо)
а практика только началась, а преподаватель сказал сдать обе задачки ему...помогите решить пожалуйста!!!

Заданы три списка. Удалить из первого списка все элементы остальных списков.
( и если можно объясните что да как)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.11.2010, 19:39
Ответы с готовыми решениями:

Удалить из первого списка все элементы других списков. Списки и их количество должны задаваться с командной строки
Даны несколько списков. Удалить из первого списка все элементы других списков. Списки и их...

Удалить все пустые элементы из списка списков
Дан список списков (List<List<string>>) , из него надо удалить все пустые списки. В простом...

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

Удалить элементы первого списка по номерам второго списка без использования вспомогательных функций
Может кто знает классический вид функции удаление элементов списка по номерам второго списка.Важно...

8
84 / 57 / 8
Регистрация: 07.08.2010
Сообщений: 185
15.11.2010, 03:06 2
В моём примитивном понимании лиспа:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
;;; найти элемент в списке
(defun my-find (elm lst)
  (if (null lst)
      nil
      ;; если найдет вернуть, иначе искать в подсписке
      (if (eql elm (car lst))
      elm
      (my-find elm (cdr lst)))))
 
;;; рекурсивная реализация set-difference (разница между множествами)
(defun my-set-diff-rec (lst rem res)
  ;; находит res = lst \ rem (где \ - операция разности)
 
  (if (null lst)
      res
      (let ((head (car lst)))   ; для всех элементов lst
    (if (my-find head rem)  ; если не найден в rem, добавить к res
        (my-set-diff-rec (cdr lst) rem res)
        (my-set-diff-rec (cdr lst) rem (cons head res))))))
 
;;; удаление элементов из списка lst, присутствующих в rem
(defun my-set-diff (lst rem)
  (my-set-diff-rec lst rem nil))
 
;;; test
(defparameter *baby-names* '(vasya petya natasha vera sasha))
(defparameter *father-doesnt-like* '(sasha natasha))
(defparameter *mother-doesnt-like* '(vera vasya))
 
(defparameter *names-both-like*
  (my-set-diff (my-set-diff *baby-names* *father-doesnt-like*)
           *mother-doesnt-like*))
 
(princ *names-both-like*)
0
4662 / 4358 / 376
Регистрация: 12.05.2012
Сообщений: 3,075
25.12.2012, 00:10 3
Lisp
1
2
3
4
5
6
7
(defun clear-twins (w x z &aux (a (car w)) (d (cdr w)))
  (cond ((null w) nil)
        ((or (member a x) (member a z)) (clear-twins d x z))
        ((cons a (clear-twins d x z)))))
 
> (clear-twins '(a b c) '(b) '(c))
(A)
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
33165 / 18495 / 3896
Регистрация: 12.02.2012
Сообщений: 31,073
Записей в блоге: 12
25.12.2012, 00:13 4
Lisp
1
2
3
4
5
6
7
8
(defun task (a b c)
  (diflist (diflist a b) c))
 
==> task
 
(task '(a b c) '(b) '(c))
 
==> (a)
0
4662 / 4358 / 376
Регистрация: 12.05.2012
Сообщений: 3,075
25.12.2012, 00:18 5
Lisp
1
2
3
4
5
(defun clear-twins (w x z)
  (set-difference w (union x z)))
 
> (clear-twins '(a b c) '(b) '(c))
(A)
1
Модератор
Эксперт функциональных языков программированияЭксперт Python
33165 / 18495 / 3896
Регистрация: 12.02.2012
Сообщений: 31,073
Записей в блоге: 12
25.12.2012, 00:26 6
Lisp
1
2
3
4
5
6
7
8
(defun task (x y z)
  (diflist x (union y z)))
 
==> task
 
(task '(1 2 3 4 5) '(2 4) '(5 6 7))
 
==> (1 3)
1
0 / 0 / 0
Регистрация: 23.03.2021
Сообщений: 5
24.03.2021, 19:08 7
добрый день, у меня также схожая задача. Запустил этот код, выводит ошибку на error: no function definition: UNION
как можно исправить эту ошибку. Спасибо за внимание
0
4662 / 4358 / 376
Регистрация: 12.05.2012
Сообщений: 3,075
24.03.2021, 19:50 8
Lisp
1
2
3
4
5
6
7
8
9
(defun -union (w v)
  (cond ((null w) v)
        ((member (car w) v) (-union (cdr w) v))
        ((cons (car w) (-union (cdr w) v)))))
 
> (union '(1 2 3 4) '(4 5 6 7 8 9))
(1 2 3 4 5 6 7 8 9)
> (-union '(1 2 3 4) '(4 5 6 7 8 9))
(1 2 3 4 5 6 7 8 9)
Добавлено через 1 минуту
Lisp
1
2
3
4
5
6
7
8
(defun -union (x y)
  (cond ((null x) y)
        ((null y) x)
        ((member (car x) y) (-union (cdr x) y))
        (t (-union (cdr x) (cons (car x) y)))))
 
> (-union '(1 2 3 4) '(4 5 6 7 8 9))
(3 2 1 4 5 6 7 8 9)
Добавлено через 1 минуту
Lisp
1
2
3
4
5
6
7
(defun clear-twins (w x z &aux (a (car w)) (d (cdr w)))
  (cond ((null w) nil)
        ((or (member a x) (member a z)) (clear-twins d x z))
        ((cons a (clear-twins d x z)))))
 
> (clear-twins '(a b c) '(b) '(c))
(A)
Добавлено через 2 минуты
Lisp
1
2
3
4
5
6
7
(defun clear-twins (w x z &aux (a (car w)))
  (when w (if (or (member a x) (member a z))
              (clear-twins (cdr w) x z)
              (cons a (clear-twins (cdr w) x z)))))
 
> (clear-twins '(a b c) '(b) '(c))
(A)
Добавлено через 2 минуты
Lisp
1
2
3
4
5
(defun clear-twins (w x z)
  (set-difference (set-difference w x) z))
 
> (clear-twins '(a b c) '(b) '(c))
(A)
Добавлено через 6 минут
Lisp
1
2
3
4
5
6
7
8
9
(defun clear-twins (w &rest v) (clear w v))
 
(defun clear (w v)
  (if v (clear (set-difference w (car v))
               (cdr v))
      w))
 
> (clear-twins '(a b c) '(b) '(c))
(A)
2
4662 / 4358 / 376
Регистрация: 12.05.2012
Сообщений: 3,075
25.03.2021, 08:05 9
Lisp
1
2
3
4
5
6
7
(defun clear-twins (w &rest v)
  (dolist (a v)
    (setf w (set-difference w a)))
  w)
 
> (clear-twins '(a b c) '(b) '(c))
(A)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.03.2021, 08:05
Помогаю со студенческими работами здесь

Удалить из второго списка все вхождения головы первого списка
2. Даны 2 списка. Удалить из второго все вхождения головы первого списка.

Из первого списка удалить все элементы, которых нет во втором
Из первого списка удалить все элементы, которых нет во втором. #include <stdio.h> #include...

Список: Если первый и третий элементы списка равны, то удалить из списка все элементы с четными индексами.
Дан список L, элементы которого являются целыми числами. Если первый и третий элементы списка...

Описать функцию, которая определяет, входят ли все элементы первого списка в состав второго списка.
Описать функцию, которая определяет, входят ли все элементы первого списка в состав второго списка....

Удалить из списка все отрицательные элементы и поместить их в конец списка в обратном порядке
Пожалуста, помогите решить задачку: Составит программу, которая создает список L елементами...

Удалить из списка все парные элементы и поместить их в конец списка в обратном порядке
Доброго времени суток, уважаемие форумчани, помогите Создать список L , элементами которого...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru