Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Lisp Требуется определить функцию https://www.cyberforum.ru/ lisp/ thread1000119.html
Требуется определить функцию (PR3 k n), которая печатает числа в виде треугольника: k k+1 .... k+n-1 k+n k+1 k+2 .... k+n ... k+n-1 k+n k+n Например:
Lisp Задания по Лиспу
1) Даны два списка. Список ключей (a b c d...) и список значений (4 3 6 20...). Построить из них ассоциативный список и реализовать процедуру поиска среднего арифметического из всех значений.
Lisp инвертировать список здравствуйте, помогите пожалуйста решить следующие задания: нужно инвертировать список начиная с третьего элемента https://www.cyberforum.ru/ lisp/ thread1000050.html Lisp Перемещение кубиков. Поиск в ширину Нужно переместить кубики из заданного положения в конечное. a => a b => c c => b Осуществить поиск в ширину. (setq l1 (list 'a 'b 'c)) (setq l2(list 'a 'c 'b)) (setq l3 nil) (setq rez nil) https://www.cyberforum.ru/ lisp/ thread1000044.html
Lisp Составить список степеней вершин графа, а также список вершин с одинаковою степенью
здравствуйте, помогите пожалуйста решить следующие задания: 1 Есть граф ((ab) (bc) (bd) (cd) (be) (ef) (fg) (fh) (gh) (fc) (fj) (fk) (ij)).Составить список степеней вершин графа , а также список вершин с одинаковою степенью. 2 Дерево описано ассоциированным списком вида: (a-b a-c b-e b-d c-f c-g e-h e-i d-j d-k g-l g-m ...). Построить список всех его листьев . 3 Дан список двухэлементных...
Lisp достать элемент списка необходимо написать не рекурсивную функцию, которая возвращает n-ный элемент списка 1) начиная отсчет с начала 2)с конца. сделала пока только рекурсивные https://www.cyberforum.ru/ lisp/ thread999872.html
Lisp Переопределить следующую функцию Переопределить следующую функцию, используя DO вместо DOTIMES: >(defun power-of-2 (n) (let ((result 1)) (dotimes (i n result) (incf result result)))) https://www.cyberforum.ru/ lisp/ thread999602.html Lisp Функция: вернуть значение наибольшего четного числа из списка неотрицательных чисел
Определить функцию LARGEST-EVEN, которая возвращает значе- ние наибольшего четного числа из списка неотрицательных чисел. Например, >(LARGEST-EVEN ‘(5 2 4 3)) 4 >(LARGEST-EVEN NIL) 0
Lisp суму двух соседних элементов Определить функцию которая считает суму двух соседних элементов линейного числового списка парной длинны . Например: (1 2 3 4 ...) ==> (3 7 ...).Длина списка не определена. https://www.cyberforum.ru/ lisp/ thread998992.html Lisp Неориентированный граф задан списком вершин (abcdefgh) i списку рёбер (bg) (bc) (be) (gf) (fc) (ed). Найти список изолированных вершин https://www.cyberforum.ru/ lisp/ thread998711.html
Неориентированный граф задан списком вершин (a b c d e f g h) i списку рёбер ((bg) (bc) (be) (gf) (fc) (ed)). Найти список изолированных вершин.
Lisp Список изолированных вершин
Доброго времени суток. Задание: Есть граф g(V,E), где V=(a b c d e f g), E= ((a e)(a g)(a d)(d e)). Составить список изолированных вершин графа.
Lisp Внутренние вершины графа Доброго времени суток. Задание: Дерево описано ассоциативным списком вида (a-b a-c b-e b-d c-f c-g e-h e-i d-j d-k g-l g-m ...). Построить список всех его внутренних вершин. https://www.cyberforum.ru/ lisp/ thread998532.html
Модератор
Эксперт функциональных языков программированияЭксперт Python
37301 / 20735 / 4272
Регистрация: 12.02.2012
Сообщений: 34,124
Записей в блоге: 14
07.11.2013, 17:42 0

Есть граф (a e) (a c) (e c) (e d) (b e) (b d). Доказать, что он уникурсальный - Lisp - Ответ 5300414

07.11.2013, 17:42. Показов 848. Ответов 3
Метки (Все метки)

Ответ

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
(defun isUnic (graph)
  (let ((vlist (setof (apply 'append graph)))) ;; объединяем все вершины графа в единый список
                                                           ;; и оставляем уникальные (setof)
 
   ;; Дальше строим список степеней вершин
 
   (every 'evenp  ;; проверяем, все ли степени четные
     (mapcar #'(lambda (z) (apply '+ z)) ;; сложение всех связей вершины
       ;; пробегаем по списку вершин
       (mapcar #'(lambda (x) 
          ;; для каждой вершины строим список связей (0 или 1)
          (mapcar #'(lambda (y) (if (member x y) 1 0)) graph)) vlist)))))


Вернуться к обсуждению:
Есть граф (a e) (a c) (e c) (e d) (b e) (b d). Доказать, что он уникурсальный Lisp
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.11.2013, 17:42
Готовые ответы и решения:

Доказать, что граф не является Эйлеровым
Подскажите решение. Задание: Дано граф: ((a b) (b e) (e d) (d a) (c a) (c b) (c d) (c e))....

Доказать, что для любого графа или он сам или его дополнение есть связный граф
Доказать, что для любого графа или он сам или его доплнение есть связым графом Подскажите, каким...

Доказать что граф связный
Доказать что граф связный если степень каждой вершины больший равен 50, количество вершин - 100....

Доказать, что граф связный
Добрый день Уважаемые Эксперты Помогите пожалуйста :help: Задание: дан граф, доказать, что он...

3
07.11.2013, 17:42
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.11.2013, 17:42
Помогаю со студенческими работами здесь

Доказать, что граф является не планарным
Например дан граф G. С помощью гомеоморфных проеобрахований я получил подграф(G штрих). Подграф...

Как доказать, что граф не планарный?
Скажите или покажите как доказать что граф не планарный

Как доказать, что граф плоский?
Можете мне подсказать о графах а именно доказательстве того что граф не плоский Я знаю вот способ...

Доказать, что граф не является Эйлеровым
Помогите, пожалуйста, со следующим заданием: Есть гpаф graph(). Доказать, что он не является...

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