> 1 <

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

олька

Members


Статус

5 сообщений

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

#4324   2011-05-18 15:06 GMT+3 часа(ов)      
найти максимальный элемент результата
произведение 1<i<n 2*i-1

ander-skirnir

Members


Статус

227 сообщений
http://lisper.ru
Где: Ukraine
Род занятий: `'`,`',`',
Возраст: 30

#4326   2011-05-18 15:10 GMT+3 часа(ов)      
(defun sfold (efn &key (by #'+)
(from 1) to (diff 0.01))
(do* ((el 0 (funcall efn i))
(acc (funcall by)
(funcall by acc el))
(i from (1+ i)))
((or (and to (> i to))
(and (not to) (< el diff)))
acc)))
 
(defun quux (n)
(sfold (lambda (n) (1- (* 2 n)))
:by #'* :to n))
> 1 <


Онлайн :

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