Skip to content

Instantly share code, notes, and snippets.

@aliafshar

aliafshar/gist:5763209

Created June 12, 2013 06:24
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save aliafshar/5763209 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save aliafshar/5763209 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
main = print $ sum $ filter isEven $ takeWhile (\x -> x < 4000000) fiblist
where fiblist = 0 : 1 : zipWith (+) fiblist (tail fiblist)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment