> 1 <

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

JuSa

Members


Статус

1 сообщений

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

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

_sg

Members


Статус

42 сообщений

Где: 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


Статус

42 сообщений

Где: 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 пользователь(ей), 37 гость(ей) :