> 1 <

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

олька

Members


Статус

5 сообщений

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

#4336   2011-05-20 11:27 GMT+3 часа(ов)      
2<i<n 1-1/i*i

VH

Members


Статус

289 сообщений

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

#4340   2011-05-20 20:08 GMT+3 часа(ов)      
Сумма? Произведение?

ander-skirnir

Members


Статус

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

#4341   2011-05-21 08:30 GMT+3 часа(ов)      
(ql:quickload "series")
(use-package :series)
 
(defun quux (op gen &key from upto (by 1))
(collect-fn 'number op op
(mapping ((i (scan-range :from from
:upto upto
:by by)))
(funcall gen i))))
 
;; сумма, n = 5
(quux #'+ (lambda (i)
(- 1 (/ 1 (* i i))))
:from 3
:upto 4)
 
=> 263/144
 
;; произведение, n = 5
(quux #'* (lambda (i)
(- 1 (/ 1 (* i i))))
:from 3
:upto 4)
=> 5/6

отредактировал(а) ander-skirnir: 2011-05-21 09:03 GMT+3 часа(ов)

ander-skirnir

Members


Статус

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

#4342   2011-05-21 08:39 GMT+3 часа(ов)      
Вот вам инструкция по установке quicklisp, если что:

> 1 <


Онлайн :

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