> 1 <

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

JuSa

Members


Статус

1 сообщений

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

#7503   2015-02-11 21:40 GMT+3 часа(ов)      
Здравствуйте! Помогите пожалуйста разобраться с задачей на Common Lisp:
найти сумму списка,содержащего различные символы через рекурсию
(2 3 "c" 4 "f" "a" 5) -к примеру

_sg

Members


Статус

31 сообщений

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

#7504   2015-02-14 23:39 GMT+3 часа(ов)      
(defun count-symbol (w)
(cond ((null w) 0)
((symbolp (car w)) (1+ (count-symbol (cdr w))))
(t (count-symbol (cdr w)))))
 
> (count-symbol '(2 s 3 f 7 f a v))
5

_sg

Members


Статус

31 сообщений

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

#7505   2015-02-14 23:40 GMT+3 часа(ов)      
(defun count-symbol (w)
(if w (+ (if (symbolp (car w)) 1 0) (count-symbol (cdr w))) 0))
 
> (count-symbol '(2 s 3 f 7 f a v))
5
> 1 <


Онлайн :

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




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