Problem 2 in F#

Post date: Aug 27, 2009 1:35:29 PM

let problem2 =

let rec fib n =

match n with

| 0 -> 0

| 1 | 2 -> 1

| n -> (fib (n - 1)) + (fib (n - 2))

{1..35} |> Seq.map (fun x -> fib x)

|> Seq.filter ( fun z -> (z < 1000000 && z % 2 = 0))

|> Seq.sumByInt(fun y -> y)