Список с подсписками

@nevidima · Регистрация: 21.10.2013

Студворк — интернет-сервис помощи студентам

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

@_sg · 29.10.2013, 22:22

Lisp
1
2
3
4
5
6
7
8
9
10
(defun dive-count (n w &aux (a (car w)) (d (cdr w)))
   (cond ((null w) 0)
         ((= n 0) (count-if #'atom w))
         ((atom a) (dive-count n d))
         ((+ (dive-count (1- n) a) (dive-count n d)))))
 
> (dive-count 2 '(a(b(c 1)d e)f((2(g))3)))
3
> (dive-count 3 '(a(b(c 1)d e)f((2(g))3)))
1

@Catstail · 29.10.2013, 22:39

На любом:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(defun num-lv (lst n)
  (cond ((= n 0) (apply '+ (mapcar #'(lambda (x) (if (atom x) 1 0)) lst)))
        ((null lst) 0)
        ((atom (car lst)) (num-lv (cdr lst) n))
        (t (+ (num-lv (car lst) (- n 1)) (num-lv (cdr lst) n)))))
 
==> num-lv
 
(num-lv '((1 (2 4 z 6) 7) 9 8) 0)
 
==> 2
 
(num-lv '((1 (2 4 z 6) 7) 9 8) 1)
 
==> 2
 
(num-lv '((1 (2 4 z 6) 7) 9 8) 2)
 
==> 4
 
(num-lv '((1 (2 4 z 6) 7) 9 8) 3)
 
==> 0

@nevidima · 29.10.2013, 23:26 **[ТС]**

спасибо большое за помощь!)

@Lambdik · 29.10.2013, 23:48

Lisp
1
2
3
4
5
6
7
8
9
10
11
(defun F (lst n)
  (if (zerop n)
      (count-if #'atom lst)
      (F (reduce #'nconc (remove-if #'atom lst)) (1- n))))
 
> (F '(a (b (c 1) d e) f ((2 (g)) 3)) 2)
3
> (F '(a (b (c 1) d e) f ((2 (g)) 3)) 3)
1
> (F '((1 (2 4 z 6) 7) 9 8) 2)
4

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@nevidima 0 / 0 / 0 Регистрация: 21.10.2013 Сообщений: 9

	Список с подсписками 29.10.2013, 21:04. Показов 1492. Ответов 4 Метки нет (Все метки) Дан список с подсписками вида ((1 (2 4 z 6) 7) 9 8 ... ). Подсчитать количество элементов, которые расположены на втором и на третем уровне вложености. 0

@nevidima 0 / 0 / 0 Регистрация: 21.10.2013 Сообщений: 9
	29.10.2013, 23:26 [ТС]
	спасибо большое за помощь!) 0

Список с подсписками

Решение

Решение

Решение