Форум программистов, компьютерный форум, киберфорум
Наши страницы

Lisp

Войти
Регистрация
Восстановить пароль
 
innnochka
5 / 5 / 0
Регистрация: 04.10.2015
Сообщений: 26
#1

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

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

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

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

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

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

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

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

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

3
Catstail
Модератор
23040 / 11407 / 1859
Регистрация: 12.02.2012
Сообщений: 18,667
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
Сообщений: 26
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
Модератор
23040 / 11407 / 1859
Регистрация: 12.02.2012
Сообщений: 18,667
11.10.2015, 12:00 #4
innnochka, тоже вариант
0
11.10.2015, 12:00
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.10.2015, 12:00
Привет! Вот еще темы с ответами:

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

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

Максимальный элемент списка, содержащего подсписки - Lisp
Имею код, которые находит максимальный элемент списка из атомов ( defun findMax(List) (cond ((null List) nil) ((null (cdr List))...

Удалить из заданного списка пустые списки - Lisp
Помогите, пожалуйста, на Scheme: удалить из заданного списка пустые списки


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

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

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