> 1 <

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

Li

Members


Статус

1 сообщений

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

#3884   2011-01-25 00:25 GMT+3 часа(ов)      
напишите функцию заменяющую Y на число, равное глубине вложения Y в W, например Y=A, W=((A B) A (C (A (A D))))  ((2 B) 1 (C (3 (4 D))));
решить через 2 функции
1) найти глубину вложения
2) заменить

megamanx

Members


Статус

307 сообщений

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

#3885   2011-01-25 02:46 GMT+3 часа(ов)      
(defun foo (L A)
(labels ((ret (L A n)
(cond
((null L) nil)
((listp (car L)) (cons (ret (car L) A (1+ n)) (ret (cdr L) A n)))
((eq (car L) A) (cons n (ret (cdr L) A n)))
(T (cons (car L) (ret (cdr L) A n))))))
(ret L A 1)))
I wish I'd made you angry earlier
> 1 <


Онлайн :

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