> 1 <

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

lynx

Members


Статус

2 сообщений

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

#7262   2014-02-04 15:22 GMT+3 часа(ов)      
Добрый день. например для варианта '(a a b a) ответ 3

(defun f(x)
(cond ((null x) 0)
((eq (car x)(car (cdr x)))(+ 1 (f (cdr x))))
((f (cdr x)))
))
 

CL-USER> (f '(d d s r e))
1
CL-USER> (f '(f t f f))
1


По моему коду не получается

VH

Members


Статус

289 сообщений

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

#7263   2014-02-04 21:05 GMT+3 часа(ов)      
(defun F (L)
(cond
((null L) 0)
((null (cdr L)) 1)
((eq (car L) (cadr L)) (1+ (F (cons (car L) (cddr L)))))
(T (F (cons (car L) (cddr L))))))

lynx

Members


Статус

2 сообщений

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

#7264   2014-02-05 14:34 GMT+3 часа(ов)      
Спасибо, огромное ))
> 1 <


Онлайн :

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




Реклама на сайте: