Euler 2 : Simple Fibonacci I'm just starting to experiment with F# (from a C# background).  I think I'm starting to get into the right way of thinking, but this code still seems pretty awkward.  Is there a better (more terse) way to accoAny comments appreciated.  (BTW, this is supposed to sum all even fibonacci numbers up to 4,000,000)

let rec fib x y max acc =
    let z = x + y
    if z &lt; max then
        if z%2=0 then
            fib y z max (z + acc)
        else
            fib y z max acc
    else
        acc


let result = fib 1 2 4000000 2

printfn "%d" result
I think the solution reads better if you separate concerns a bit more instead of rolling it all into one mega function.

For instance, with these helper functions (that each do one—and only one—thing):

let fib =
  Seq.unfold
    (fun (cur, next) -&gt; Some(cur, (next, cur + next)))
    (0I, 1I)

let isEven n = n % 2I = 0I


you can express the solution at a high level (almost at the level you would explain it in words!):

fib                                        //given the set of fibonacci numbers
|&gt; Seq.filter isEven                       //take those that are even
|&gt; Seq.takeWhile (fun n -&gt; n &lt;= 4000000I)  //not exceeding 4,000,000
|&gt; Seq.sum                                 //and sum them