Skip to content

Instantly share code, notes, and snippets.

@davidgrenier

davidgrenier/Euler02.fsx

Created August 19, 2011 14:07
Show Gist options
  • Save davidgrenier/1156878 to your computer and use it in GitHub Desktop.
Save davidgrenier/1156878 to your computer and use it in GitHub Desktop.
Download ZIP
Project Euler 2
Raw
Euler02.fsx
Seq.unfold (fun (c, n) -> Some(c, (n, c + n))) (1, 2)
|> Seq.takeWhile (fun v -> v <= 4000000)
|> Seq.filter (fun v -> v % 2 = 0)
|> Seq.sum
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment