Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 02.12.2013
Сообщений: 14
1

Определить функцию (разность х у), результатом которой является список атомов, представляющих множество элементов, входящих в х и не входящих в у

20.01.2014, 19:46. Просмотров 859. Ответов 1
Метки нет (Все метки)

Объясните пожалуйста работу функции MINUS. Определить функцию (разность х у), результатом которой является список атомов, представляющих множество элементов, входящих в х и не входящих в у.
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
> (defun ap (x y)
(cond ((eq x nil) y)
(t (cons (car x) (ap (cdr x) y)))))
==>AP
> (defun vur (x)
(cond ((eq x nil) nil)
((atom (car x)) (cons (car x) (vur (cdr x))))
(t (ap (vur (car x)) (vur (cdr x))))))
==>VUR
> (defun prov (x a)
(cond ((eq x nil) nil)
((eq (car x) a) t)
(t (prov (cdr x) a))))
==>PROV
> (defun ydalit (x)
(cond ((eq x nil) nil)
((eq (car x) a ) t)
(t (prov (cdr x) a))))
==>YDALIT
> (defun minus (x y)
(if (eq x nil) x
(if (not (prov y (car x)))
(cons (car x) (minus (cdr x) y))
(minus (cdr x) y))))
==>MINUS
> (setq x '((1 2) 3))
==>((1 2) 3)
 > (setq y '(2 (3 5)))
==>(2 (3 5))
> (разность (ydalit (vur x)) (ydalit (vur y)))
==>(1)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2014, 19:46
Ответы с готовыми решениями:

Рекурсия: получить список атомов, представляющих множество элементов, входящих в X и не входящих в Y
Определить функцию (разность х у), результатом которой является список атомов, представляющих...

Написать функцию, возвращающую список частот атомов, входящих в исходный список
Ребят, и еще одна задачка на написание функции. Написать функцию, возвращающую для заданного...

Множество атомов, входящих только в первый из двух списков
Здравствуйте, помогите пожалуйста решить задачу и нужно привести набор тестовых вызовов описанной...

Образовать множество из нечетных цифр, входящих в дробную часть числа и не входящих в целую
С клавиатуры в режиме диалога вводится вещественное число. Образовать множество из нечетных цифр,...

1
Модератор
Эксперт Python
28007 / 14962 / 2949
Регистрация: 12.02.2012
Сообщений: 24,521
Записей в блоге: 4
20.01.2014, 19:56 2
Уже не в первый раз:

Lisp
1
2
3
4
5
(defun minus (x y)
    (if (eq x nil) x ;; x пуст - возвратим x
                    (if (not (prov y (car x))) ;; если голова y не входит в x
                        (cons (car x) (minus (cdr x) y)) ;; прицепляем голову к рек. вызову minus на хвосте x
                        (minus (cdr x) y)))) ;; иначе пропускаем голову x
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.01.2014, 19:56

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

Найти сумму элементов, входящих как в множество А, так и в множество В
Задано множества А и В, состоящие из двузначных чисел. Найти сумму тех элементов, входящих как в...

Сформировать очередь из элементов, входящих в одну из очередей Queue1 и Queue2, но не входящих в другую из них
описать процедуру которая формирует очередь Queue,включив в неё по одному разу элементы ,которые...

Написать функцию, аргументом которой является список атомов, которая выдает значение ИСТИННА(Т), если в списке есть три и более одинаковых атома
Написать функцию, аргументом которой является список атомов, которая выдает значение ИСТИННА(Т),...

Определить и вывести на экран множество символов входящих в диапазон '0'.'9'
Определить и вывести на экран множество символов входящих в диапазон '0'..'9' и не входящих в...

Определить и вывести на экран множество символов входящих одновременно в обе строки
Ввести две строки g и f. Определить и вывести на экран множество символов входящих одновременно в...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.