|
|
| Другие темы раздела | |
|
Lisp Функция: в неориентированном графе посчитать суммарный вес рёбер (HomeLisp)
https://www.cyberforum.ru/ lisp/ thread2361291.html Добрый день! Помогите, пожалуйста, написать функцию. Задача: в неориентированном графе посчитать суммарный вес рёбер. Граф: (abcde). Рёбра и их вес: ( (ab 3) (ad 4) (ae 3) (bc 2) (dc4) (de 2) ). Один из вариантов решения данной задачи уже был сделан мной, но он для абсолютно любых списков (т.е. может применяться не для графов и их рёбер). (defun sumvr (x) (cond |
Написать программу объединения двух отсортированных списков в один Lisp При этом порядок сортировки в списке-результате должен сохраняться. |
|
Lisp Написать программу сортировки списка методом пузырька
https://www.cyberforum.ru/ lisp/ thread2360475.html С комментариями пожалуйста |
Lisp Выбрать подсписок из многоуровневого списка, который имеет наибольшее значение (среда Home Lisp) В многоуровневом списке требуется выбрать подсписок, который имеет наибольшее значение. В случае, если таких подсписков имеется несколько, вывести их все рассматривать все, что включает в себя список https://www.cyberforum.ru/ lisp/ thread2360428.html |
|
Макросы (Scheme) Lisp Вопрос по макросам в Scheme: В каком случае в определение макроса необходимо включать ключевые слова? Поясните на примере. Приведите примеры образца синтаксического правила для применения макроса к: (а) одному аргументу, (б) одному аргументу — пустому списку, (в) двум аргументам, один из которых является списком, состоящим не менее чем из одного элемента, а второй — списком строго из двух... |
Lisp Определение функций Последерево и Преддерево Выручите, пожалуйста! Разобралась как строить дерево, но с этим застряла Определите функции (ПРЕДДЕРЕВО а дерево) и (ПОСЛЕДЕРЕВО а дерево), которые выделяют в отдельное (упорядоченное) дерево из первоначального дерева все узлы, предшествующие данному элементу а и следующие за ним. дерево задается след образом: (5 (3 (1 nil nil) (4 nil nil)) (7 (6 nil nil) (13 (11 nil nil) (15 nil nil)))) https://www.cyberforum.ru/ lisp/ thread2359190.html |
| Lisp Наибольший общий делитель(многочлены) Пусть P1, P2 и P3 - многочлены. Пусть Q1 является произведением P1 и P2, а Q2 произведением P1 и P3. Нужно написать процедуру, вычисляющую наибольший общий делитель (НОД) Q1 и Q2. Буду благодарен за любую помощь! https://www.cyberforum.ru/ lisp/ thread2359060.html |
Lisp Замена obj1 на obj2 во всех вложениях списка Доброе время суток, пишу функцию замены obj1 на obj2 в списке lst. Примерно понимаю, что от меня требуется, но вот реализовать не получается. Вот что я уже реализовал, но встретилась ошибка stack overflow (defun rep1(lst x y ) (cond ((null lst) nil) ((eql y (car lst)) (cons x (cdr(rep1 lst x y))) ) (t (cons (car lst) (rep1(x y (car lst)))))) ) |
|
Lisp Вычислить значение полинома Эрмита
https://www.cyberforum.ru/ lisp/ thread2358407.html Ребята, помогите написать код по LISP. Задание: Вычислить значение полинома Ермита. Вот решил эту задачку на SWI Prolog, может кому поможет ermit(0, _, 1). ermit(1, X, H) :- H is 2 * X. ermit(N, X, Hn) :- |
Lisp Исключить из данного списка такой элемент, чтобы сумма элементов, которые остались, была равна 10
https://www.cyberforum.ru/ lisp/ thread2358365.html Здравствуйте, не дружу с Лиспом, нужна помощь в решении задачи. Задание: Исключить из данного списка такой элемент, чтобы сумма элементов, которые остались, была равна 10. . Вот есть код SWI Prolog. del_rest(Xs, Sum, X, Ys) :- select1(X, Xs, Ys), sum_list1(Ys, Sum). |
|
Lisp Вычисление интеграла по формуле Симпсона Здравствуйте, Столкнулся с упражнением в книге "Структура и интерпретация компьютерных программ" написать код для вычисления интеграла от x3 по формуле Симпсона: Написал следующий код: ;; процедура, определяющая вычисление интеграла Симпсона (define (simpson f a b n) (define (arg+ x) (+ x (/ (- b a) n))) (define (f x) (cube x)) (* (sum f a arg+ b) (/ (/ (- b a) n) 3))) |
Lisp Поиск в дереве Здравствуйте! Пишу функцию поиска элемента в дереве. Вот что получилось: (defun searh (x lists) (cond ((null lists) nil) ((eql x (car lists)) (car lists)) (t (cond((< x (car lists)) (searh x (cadr lists))) (t (searh x (cddr lists))))) https://www.cyberforum.ru/ lisp/ thread2358148.html |
|
Модератор
  |
||||||
| 30.11.2018, 17:42 | 0 | |||||
Функция: определение высоты бинарного дерева - Lisp - Ответ 1311136530.11.2018, 17:42. Показов 2361. Ответов 1
Метки (Все метки)
 Сообщение было отмечено valik666 как решение
Решение
Вернуться к обсуждению: Функция: определение высоты бинарного дерева Lisp
0
|
||||||
| 30.11.2018, 17:42 | |
|
Готовые ответы и решения:
1
Определение высоты каждой пары элементов данного бинарного дерева Вычисление высоты бинарного дерева Вычисление высоты бинарного дерева поиска на С++ Найти путь максимальной длины между вершинами разной высоты бинарного дерева |
| 30.11.2018, 17:42 | |
| 30.11.2018, 17:42 | |
|
Помогаю со студенческими работами здесь
0
Определение максимальной глубины бинарного дерева Функция обхода бинарного дерева по уровням Функция вывода листьев бинарного дерева
|
Наверх