Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lisp
Войти
Регистрация
Восстановить пароль
 
innnochka
5 / 5 / 0
Регистрация: 04.10.2015
Сообщений: 30
#1

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

10.10.2015, 13:03. Просмотров 522. Ответов 3
Метки нет (Все метки)

Помогите написать программу, которая находит максимальный уровень вложенности заданного списка.
Заранее спасибо ^^
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.10.2015, 13:03
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти максимальный уровень вложенности заданного списка (Lisp):

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

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

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

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

Функция, вычисляющая максимальный уровень вложения подсписков в списке
Напишите функцию: • вычисляющую максимальный уровень вложения подсписков в...

Найти произведение всех ненулевых чисел из заданного сложного списка с использованием lambda
Помогите пожалуйста. У нас есть код который находит произведение всех ненулевых...

3
Catstail
Модератор
23525 / 11633 / 2034
Регистрация: 12.02.2012
Сообщений: 18,973
10.10.2015, 14:04 #2
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
2
innnochka
5 / 5 / 0
Регистрация: 04.10.2015
Сообщений: 30
11.10.2015, 09:10  [ТС] #3
Lisp
1
2
3
4
5
6
7
8
(defun depth (lst)
  (cond
  ((atom lst) 0)
  ((null lst) 0)
    (T (max
    (+ 1 (depth (car lst)))
    (depth (cdr lst))
    ))))
2
Catstail
Модератор
23525 / 11633 / 2034
Регистрация: 12.02.2012
Сообщений: 18,973
11.10.2015, 12:00 #4
innnochka, тоже вариант
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.10.2015, 12:00
Привет! Вот еще темы с решениями:

Дерево задано с использованием вложенных списков Определить максимальный уровень вершины
Как лучше реализовать данную задачу

В списке найти сумму чисел стоящих на чётных местах и только в подсписках в нечётных степенях вложенности
В списке чисел найти сумму чисел стоящих на чётных местах и только в подсписках...

Максимальный элемент списка, содержащего подсписки
Имею код, которые находит максимальный элемент списка из атомов ( defun...

Удалить из заданного списка все нули
Удалить из заданного списка все нули. помогите плиз!!!


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

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

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