> 1 <
Автор | Сообщение |
tevez1715
4 сообщений |
#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 <