fork(4) download
copy 
  1. (define series_sum
  2.  ( lambda (n)
  3.   (if (= n 0) 0 
  4.     (+ (/ 1 (* n (+ n 1))) (series_sum(- n 1)))
  5.   ) ) )
  6. (writeln (series_sum 10))
  7. (writeln (series_sum 100))
  8. (writeln (series_sum 1000))
  9. (writeln (series_sum 10000))
  10.  
  11.  
Success #stdin #stdout 0.22s 59892KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
10/11
100/101
1000/1001
10000/10001
https://ideone.com/jlVJpy
language:
Racket (racket 7.0)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!