fork(5) download
copy 
  1. (define series_sum_1
  2.  ( lambda (n)
  3.   (if (= n 0) 0 
  4.     (+ (/ 1.0 (* (+ n 1.0 )(+ n 2.0))) (series_sum_1(- n 1.0)))
  5.   ) ) )
  6. (writeln (series_sum_1 10))
  7. (writeln (series_sum_1 100))
  8. (writeln (series_sum_1 1000))
  9. (writeln (series_sum_1 10000))
  10. (writeln (series_sum_1 100000))
  11. (writeln (series_sum_1 1000000))
  12.  
Success #stdin #stdout 0.52s 274048KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0.41666666666666663
0.49019607843137253
0.4990019960079833
0.4999000199960005
0.49999000019998724
0.4999990000019941
https://ideone.com/ZZJ8W7
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!