fork(5) download 
  1. let f i = 1.0 / (2.0 ** i)
  2. let rec sum f n  = 
  3.     let x = f n
  4.     if x <= System.Double.Epsilon 
  5.             then 0.0 
  6.             else x + sum f (n + 1.0) 
  7. sum f 0.0 |> printfn "%A"
Success #stdin #stdout 0.18s 26192KB
comments (?)
stdin 
Standard input is empty
stdout 
2.0
https://ideone.com/3XstV2
language:
F# (mono 4.1)
created:
10 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!