рекурсивные функции

@Attenti_ON · Регистрация: 17.11.2009

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

Здравствуйте, помогите, пожалуйста с написанием рекурсивных функций.

Требуется создать рекурсивную функцию, которая считает сколько в списке атомов и сколько подсписков.

И еще одна: с помощью рекурсивной функции нужно проверить соответствие списков.

Заранее спасибо.

@VH · 30.03.2011, 17:59

1.

Lisp
1
2
3
4
5
6
7
8
(defun F (L)
 (if L
  (mapcar '+
   (F (cdr L))
   (if (atom (car L))
    (list 1 0)
    (list 0 1)))
  (list 0 0)))

Добавлено через 5 минут
2.

Lisp
1
2
3
4
(defun F (L1 L2)
 (cond
  ((null L1) (null L2))
  ((equal (car L1) (car L2)) (F (cdr L1) (cdr L2)))))

@Catstail · 22.03.2013, 22:03

Lisp
1
2
3
4
5
6
7
8
9
10
11
((lambda (f lst)
  (cond ((null lst) '(0 0))
        ((atom (car lst)) (list (+ 1 (car (funcall f f (cdr lst)))) (cadr (funcall f f (cdr lst)))))
        (t (list (car (funcall f f (cdr lst))) (+ 1 (cadr (funcall f f (cdr lst))))))))
'(lambda (f lst)
  (cond ((null lst) '(0 0))
        ((atom (car lst)) (list (+ 1 (car (funcall f f (cdr lst)))) (cadr (funcall f f (cdr lst)))))
        (t (list (car (funcall f f (cdr lst))) (+ 1 (cadr (funcall f f (cdr lst))))))))
'(1 2 (3 4) 5 6))
 
==> (4 1)

@_sg · 22.03.2013, 23:09

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
(defun n-atoms-n-lists (w)
  (values (n-atoms w) (n-lists w)))
 
(defun n-atoms (w)
  (cond ((null w) 0)
        ((atom w) 1)
        ((+ (n-atoms (car w)) (n-atoms (cdr w))))))
 
(defun n-lists (w)
  (cond ((null w) 0)
        ((atom (car w)) (n-lists (cdr w)))
        ((+ 1 (n-lists (car w)) (n-lists (cdr w))))))
 
> (n-atoms-n-lists '((1 2) (3 (4)) 5 ((6))))
6
5

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@Attenti_ON 9 / 9 / 3 Регистрация: 17.11.2009 Сообщений: 51

	рекурсивные функции 30.03.2011, 16:47. Показов 1283. Ответов 3 Метки нет (Все метки) Здравствуйте, помогите, пожалуйста с написанием рекурсивных функций. Требуется создать рекурсивную функцию, которая считает сколько в списке атомов и сколько подсписков. И еще одна: с помощью рекурсивной функции нужно проверить соответствие списков. Заранее спасибо. 0

рекурсивные функции

Решение