> 1 <

Автор Сообщение

Anneta

Members


Статус

3 сообщений
http://girldeveloper.ru
Где: Russia
Род занятий:
Возраст:

#3696   2010-12-15 14:05 GMT+3 часа(ов)      
Пожалуйста помогите решить задачи:

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

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

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

Anneta

Members


Статус

3 сообщений
http://girldeveloper.ru
Где: Russia
Род занятий:
Возраст:

#3697   2010-12-15 22:12 GMT+3 часа(ов)      
Решение первой задачи есть:

(defun sublists-count (list)
(cond ((null list)
0)
((atom (car list))
(sublists-count (cdr list)))
(t
(+ (sublists-count (car list))
(sublists-count (cdr list))
1))))

Помогите пожалуйста со второй...

megamanx

Members


Статус

307 сообщений

Где: Russia
Род занятий:
Возраст:

#3700   2010-12-16 01:41 GMT+3 часа(ов)      
(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)) и т.п.
I wish I'd made you angry earlier

Anneta

Members


Статус

3 сообщений
http://girldeveloper.ru
Где: Russia
Род занятий:
Возраст:

#3702   2010-12-16 03:07 GMT+3 часа(ов)      
Большое спасибо)))
я тоже заметила схожую формулировку и по нику догадываюсь кто это могла быть!
=)метеоритный дождь закончился ... завтра в институте обязательно спрошу.
> 1 <


Онлайн :

0 пользователь(ей), 41 гость(ей) :