> 1 <

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

tevez1715

Members


Статус

4 сообщений

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

#7754   2016-10-15 20:06 GMT+3 часа(ов)      
defun СУМА_ДОБУТОК (x)
(list
(РЕДУКЦИЯ x #'* 1)
(РЕДУКЦИЯ x #'+ 0)
))

(defun РЕДУКЦИЯ (x g a)
(reduce g x :initial-value a)
)

(СУМА_ДОБУТОК '(2 3))
> 1 <


Онлайн :

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




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