Пожалуйста помогите решить задачи:

1. Определить функцию, подсчитывающую количество подсписков (на всех уровнях) указанного списка.

2. Определить функцию, выполняющую для каждой группы из бинарного дерева вида "РебенокЛевый"<-Родитель->РебенокПравый" следующее: поменять местами значения детей.

Заранее большое спасибо)

(defun incbb (L)

  (cond

    ((null L) nil)

	((listp (car L)) (cons (incbb (car L)) (incbb (cdr L))))

	(T (cons (cdr L) (car L)))))

Там сокурсница (судя по формулировке заданий) ваша спрашивала что-то подобное. У вас институт из-за погоды закрыт (подозреваю, метеоритный дождь), но вы как-нибудь организуйтесь и спросите у препода, в каком виде представлять штуку (ребёнок<-родитель->ребёнок). Представленное решение - опять же, для дерева типа (1 . 2) или ((1 . 2) . (3 . 4)) и т.п.