Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Lisp Определить функцию add_to, которая суммирует первые n натуральных чисел Помогите пожалуйста решить Определить функцию add_to, которая суммирует первые n нату- ральных чисел: (add_to n)=1+2+…+n. https://www.cyberforum.ru/ lisp/ thread1546928.html Можно ли считать список integer без парсинга? Lisp
Нужно считать два списка интов один двуэлементный, второмй максимум 10^7 элементов. Все числа натуральные, максимальный размер числа 10^9. Нужно найти сумму элементов второго списка и вывести количество цыфр в сумме в определенной вторым элементом первого списка системе исчисления. Есть идея ссумировать все числа, и оставить в списке(втором) только этот атом(сумма) затем перевести его в нужную...
Lisp Функция, которая проверяет, являются ли все элементы списка положительными числами Помогите понять, в чем ошибка. Нужно-ли третье условие? Если в списке числа (положительные) то "Истина"? Задачка: а) напишите функцию, которая проверяет, являются ли все элементы списка положительными числами. Функция возвращает NIL, если хотя бы один элемент списка НЕ является числом, или если в списке есть хотя бы один отрицательный элемент. б) определите функцию умножения двух целых... https://www.cyberforum.ru/ lisp/ thread1546530.html Lisp Замена подсписка суммой Подскажите, как с помощью рекурсии решить задание Имеется произвольный список, состоящий из числовых атомов. Преобразовать список по следующему правилу: если элементы некоторого подсписка являются числами, заменить подсписок суммой его элементов. Пример: (1 (2 ( 3 4 5) 6)(7 8 9)) —> (1(2 (12) 6)(24)) https://www.cyberforum.ru/ lisp/ thread1546512.html
Lisp Функция объединения двух списков
Добрый день. Помогите пожалуйста решить такую задачу : Разработать функцию, находящую теоретико-множественное объединение двух списков. Например: Вход: (1 2 3 4 5), (4 5 6 7). Выход: (1 2 3 4 5 6 7). Спасибо за внимание.
Lisp Использование функций lisp https://www.cyberforum.ru/ lisp/ thread1545265.html
Привет всем. Сегодня в xlisp пытался применить следующие функции: sublis,copy-alist,set-exclusive-or ,adjoin ,read-line. Однако на попытку применить функции copy-alist и set-exclusive-or выдало ошибку error: unbound function. Я так понимаю что в xlisp нет этих функций. Скажите можно ли как-нибудь заменить эти функции или подключить модуль какой-нибудь надо ?
Lisp Определить функцию (reduction x), уменьшающую каждый элемент списка x https://www.cyberforum.ru/ lisp/ thread1545107.html
2.Определить функцию reduction(x), которая преобразует список целых чисел x в список, каждый из элементов которого на единицу меньше соответствующего элемента: (reduction NIL) ==> NIL (reduction '(1 2)) ==> (0 1) (reduction '(4 5 6))
Lisp Среднее из трех чисел
1.Предикат сравнения (> x у) истинен, если х больше, чем у. Необходимо задать с помощью предиката > и условного предложения функцию, которая возвращает из трех числовых аргументов значение среднего по величине числа. Например: (среднее 4 7 6) ==> 6
Lisp Дифференцирование и упрощение алгебраических выражений Только начала разбираться с Lisp и вот задание,не могу дописать,помогите,пожалуйста Задание Для алгебраического выражения, заданного в виде предложения естественного языка: - Изобразить его в форме S - выражения; - Предоставить свойства "производная" символов, соответствующих знакам алгебраических операций имена функций дифференцирования; - Описать функции для определения производных... https://www.cyberforum.ru/ lisp/ thread1544946.html Lisp Заменить подсписок на атом https://www.cyberforum.ru/ lisp/ thread1544373.html
Здравствуйте! Подскажите, пожалуйста, как можно рекурсивно решить такую задачу: Дан список произвольной структуры. Каждый подсписок, состоящий из одного атома, заменить на сам атом. Например, (R ((K) M) ((N))) -> (R (K M) N)
Lisp Функция для проверки одинаковых атомов
Открыла впервые Lisp и понятия не имею,как можно реализовать задачу.Подскажите,пожалуйста Задача: Написать функцию,которая проверяет одинаковые ли атомы расположенные в двух S-выражениях на соответствующих местах.
Lisp Какие числовые предикаты есть в lisp'e? https://www.cyberforum.ru/ lisp/ thread1544037.html
есть ли в лиспе еще какие нибудь числовые предикаты, кроме zerop, plusp, minusp?
Модератор
Эксперт функциональных языков программированияЭксперт Python
36578 / 20308 / 4218
Регистрация: 12.02.2012
Сообщений: 33,607
Записей в блоге: 13
10.10.2015, 14:04 0

Найти максимальный уровень вложенности заданного списка - Lisp - Ответ 8175593

10.10.2015, 14:04. Показов 2348. Ответов 3
Метки (Все метки)

Ответ

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
(defun deep (lst)
  (cond ((null lst) 0)
        ((listp (car lst)) (max (+ 1 (deep (car lst))) (deep (cdr lst))))
        (t (deep (cdr lst)))))
          
 
 
==> deep
 
(deep '(1 2 3))
 
==> 0
 
(deep '(1 (2) 3))
 
==> 1
 
(deep '(1 ((2) 3)))
 
==> 2


Вернуться к обсуждению:
Найти максимальный уровень вложенности заданного списка Lisp
2
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2015, 14:04
Готовые ответы и решения:

Подсчитать уровень вложенности списка такого вида ( ​​s ( s ( s ( s ( s ( s ) ) )
Доброго времени суток. Помогите пожалуйста, не могу эти задания решить!) 1. Подсчитать уровень...

Посчитать суму в 2 и 4 уровнях вложенности списка
Дано список с подсписками: ((1, (2, 4, z, 6), 7, ), 9, 8, ... ). Посчитать суму на 2 и 4 уровнях...

Подсчет максимального уровня вложенности сложного списка
Написать функцию которая подсчитывает максимальный уровень вложенности сложного списка вида ((1 (2...

Заданный список произвольного уровня вложенности разбить на четыре списка
Нужно написать на muLisp программу: Заданный список произвольного уровня вложенности разбить на...

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

Удаление каждого третьего элемента списка на всех уровнях вложенности
Здравствуйте, уважаемые! Как-то мне бермутно на душе и не могу: Составить функцию с одним...

Adjacency List - Максимальный уровень вложенности
Здравствуйте! Помогите с парочкой вопросов. Есть таблица смежностей id|parent_id |name|...

Запрос: вернуть максимальный уровень вложенности
Возможно ли сделать такой запрос который вернёнт цифру максимального уровня вложенности в таблице...

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

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