Lisp.Ru - Форумы - Cсумма списка через рекурсию

> 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
	Решение задач на языке программирования Лисп. - 2016 - 1080 с.
_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
	Решение задач на языке программирования Лисп. - 2016 - 1080 с.

> 1 <

JuSa