Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Lisp Написать функцию которая по линейныму списку вида ( . a s w c b) строит сложный список вида (.) a) s) w) c) b) https://www.cyberforum.ru/ lisp/ thread984460.html
Написать функцию которая по линейныму списку вида ( ... a s w c b) строит сложный список вида ((((((...) a) s) w) c) b).
Lisp Задача из раздела "С для начинающих" - списки
Дан текстовый файл, содержащий информацию об игрушках. В каждой строке файла записано название игрушки и цена, которая разделена пробелами. Информация в файл заносилась длительное время, причем...
Lisp Составить программу для вычисления функции OTW
Составить программу для вычисления функции OTW, аргумент которой LST представляет собой список, содержащий три подсписка, в каждом из которых по три элемента. Например, значением...
Lisp Написать функцию которая находит последний атом в списке c подсписка вида (a (b (c (.) d) e) f) Написать функцию которая находит последний атом в списке из подсписка вида (a (b (c (...) d) e) f). https://www.cyberforum.ru/ lisp/ thread983569.html
Lisp Написать функцию которая по линейныму списку вида (a d r g h .) строит сложный список вида (a (d (r (g (h (.) https://www.cyberforum.ru/ lisp/ thread983375.html
Написать функцию которая по линейныму списку вида (a d r g h ...) строит сложный список вида (a (d (r (g (h (...)))))).
Считать содержимое поля ввода и обрамить скобками Lisp
В HomeLisp: При событии _BUT_1_Click считывается содержимое поля ввода _Txt_1 и пишется в x. Затем происходит преобразование из строковой формы в s-выражение (input x) и выполнение функцией...
Используя функцию DEFUN, определить функцию f (a x) Lisp
Используя функцию DEFUN, определить функцию f (a x), где a - s-выражение, a x –список, состоящий из 2-3 элементов, которая подсчитывает количество элементов списка x равных а.
Lisp Для выражения сконструировать λ-вызов и вычислить его значение Для выражения сконструировать λ-вызов и вычислить его значение. Присваивать полученное значение символу не нужно Записать λ-вызов, полученный в задании 1, в эквивалентной форме LET и... https://www.cyberforum.ru/ lisp/ thread981970.html
Lisp Измерение времени выполнения алгоритма https://www.cyberforum.ru/ lisp/ thread981545.html
Подскажите, какие функции нужно использовать (и как их использовать) для замера времени выполнения алгоритма в миллисекундах в LispWorks/HomeLisp? Подробная формулировка задания приведена ниже: ...
Lisp Как прочитать текстовый файл в LispWorks? Если в mulisp это делается довольно просто: (load 'text.txt) ; загрузка файла из каталога с интерпретатором (open-input-file 'text.txt) ; открыть файл для чтения (read 'text.txt) ;... https://www.cyberforum.ru/ lisp/ thread981157.html
1 / 1 / 0
Регистрация: 21.10.2013
Сообщений: 22
04.11.2013, 13:15  [ТС] 0

Есть дерево (ab) (bc) (cd) (ce) (bf) (fg) (fh) (fi) (bj). Составить список висячих вершин

04.11.2013, 13:15. Просмотров 859. Ответов 8
Метки (Все метки)

Ответ

Цитата Сообщение от Catstail Посмотреть сообщение
Lisp
1
2
3
4
5
6
7
8
9
10
(defun task (graph)
  (let ((alist (mapcar 'car graph))
        (blist (mapcar 'cadr graph)))
       (remove-if #'(lambda (x) (member x alist)) blist))) 
 
==> task
 
(task '((a b) (b c) (c d) (c e) (b f) (f g) (f h) (f i) (b j)))
 
==> (d e g h i j)

Можете написать алгоритм этой программы, пожалуйста?

Вернуться к обсуждению:
Есть дерево (ab) (bc) (cd) (ce) (bf) (fg) (fh) (fi) (bj). Составить список висячих вершин
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.11.2013, 13:15
Готовые ответы и решения:

Составить список степеней вершин графа, а также список вершин с одинаковою степенью
здравствуйте, помогите пожалуйста решить следующие задания: 1 Есть граф ((ab) (bc) (bd) (cd)...

Дано дерево (необязательно бинарное) и номер уровня. Вывести список вершин, находящихся на данном уровне
Дано дерево (необязательно бинарное) и номер уровня. Вывести список вершин, находящихся на данном...

Составить список вершин графа с указанием их степеней
Помогите пожалуйста с заданием: Есть неориентированный граф ((a b) (a c) (b f) (b e) (c d))....

Бинарное дерево. Удалить из дерева часть вершин так, чтобы оставшееся дерево стало пирамидой
Дано бинарное дерево. Удалить из дерева часть вершин так, чтобы оставшееся дерево стало пирамидой.

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