0 / 0 / 0
Регистрация: 24.11.2019
Сообщений: 7
1

Задача LISP. Дополнить код программы

24.11.2019, 22:33. Показов 1851. Ответов 3
Метки нет (Все метки)

Определить функцию individuals(t), которая берет в качестве аргумента список t и выдает в результате список всех атомов, которые встречаются в t ровно один раз.
Сам код:
Lisp
1
2
3
4
5
6
7
(defun individuals (lst) 
(cond ((null lst) nil)
((member (car lst) (cdr lst) (individuals (remove (car lst) (cdr lst))))
(t (cons (car lst) (individuals (cdr lst))))))
 
>> (individuals '(1 2 3 4 3 2 (ab)))
>> (1 (ab))
Нужно добавить проверку на атом. Пожалуйста помогите
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2019, 22:33
Ответы с готовыми решениями:

Код программы (График функции). (Нужно дополнить)
Здравствуйте. Нужна небольшая помощь по коду программы. Имеется вот такой код: uses graphABC;...

Как дополнить код программы, чтоб произвести побитно копирование
Как дополнить код программы, чтоб произвести побитно копирование #include <iostream> #include...

Как дополнить код Windows программы, чтобы она отобразила в окне геометрическую фигуру?
Здравствуйте. У меня есть программа, которая выводит пустое Windows окно, что нужно добавить, чтобы...

Линейная задача. Можно просто код программы
Вот собственно задача "В школьном коридоре длиной 56 м нужно выкрасить пол. Выкрасив часть коридора...

3
Модератор
Эксперт функциональных языков программированияЭксперт Python
30429 / 16805 / 3456
Регистрация: 12.02.2012
Сообщений: 28,140
Записей в блоге: 5
25.11.2019, 14:26 2
Lisp
1
2
3
4
5
(defun individuals (lst) 
    (cond ((null lst) nil)
             ((listp (car lst))  (individuals (cdr lst)))
             ((member (car lst) (cdr lst) (individuals (remove (car lst) (cdr lst))))
             (t (cons (car lst) (individuals (cdr lst))))))
0
0 / 0 / 0
Регистрация: 24.11.2019
Сообщений: 7
02.12.2019, 08:30  [ТС] 3
Результат программы можете показать?
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
30429 / 16805 / 3456
Регистрация: 12.02.2012
Сообщений: 28,140
Записей в блоге: 5
02.12.2019, 09:32 4
Lisp
1
2
3
4
5
6
7
8
9
10
(defun individuals (lst) 
    (cond ((null lst) nil)
             ((listp (car lst))  (individuals (cdr lst)))
             ((member (car lst) (cdr lst)) (individuals (remove (car lst) (cdr lst))))
             (t (cons (car lst) (individuals (cdr lst))))))
 
==> INDIVIDUALS
 
(individuals '(1 2 3 4 3 2 (ab)))
==> (1 4)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.12.2019, 09:32

Задача Java. Необходимо написать полный код программы
Условия задачи: Даны координаты точки и радиус круга с центром в начале координат. Определить,...

Задача lisp
дан список lst. Если первый элемент является списком, то вывести новый список, первый элемент...

Задача по Lisp
В научное сообщество входят N человек. Написать программу, которая определяет, сколько существует...

Логическая задача на Lisp
Здравствуйте! Помогите с задачей, пожалуйста! Стол разграфлен на 6 квадратов, в каждом из которых,...


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

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

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