> 1 <

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

Graboid

Members


Статус

7 сообщений

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

#3208   2010-10-18 02:40 GMT+3 часа(ов)      
Помогите реализовать цикл вот такой последовательности:
S= 2/3 + 3/8 + ... (/(+ n 1)(*(+ n 2)n))

misha

Moderators


Статус

1275 сообщений
http://racket-lang.org/
Где: Yemen
Род занятий:
Возраст:

#3215   2010-10-18 13:49 GMT+3 часа(ов)      
#lang racket
 
((lambda (x)
(if (x . >= . 1)
(let next ([n 1] [result 0])
(if (n . > . x)
result
(next (add1 n)
(result . + .((add1 n). / .((n . + . 2). * . n))))))
(error "Oops!")))
4)
 
(build-list 4
(lambda (k)
((lambda (x)
(let next ([n 1] [result 0])
(if (n . > . x)
result
(next (add1 n)
(result . + .((add1 n). / .((n . + . 2). * . n)))))))
(add1 k))))
> 1 <


Онлайн :

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