> 1 <

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

олька

Members


Статус

5 сообщений

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

#4316   2011-05-18 13:08 GMT+3 часа(ов)      
(1-1/2)*(1-1/4)*(1-1/6).....(1-1/2n)

ander-skirnir

Members


Статус

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

#4318   2011-05-18 14:08 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 (/ 1 (* 2 n))))
:by #'* :to n))
 
(quux 9)
=> 12155/65536
> 1 <


Онлайн :

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