Skip to content

Instantly share code, notes, and snippets.

@fbiville

fbiville/Euler_5.hs

Created January 3, 2015 10:48
Show Gist options
  • Save fbiville/f22f51e0bbc66e54173c to your computer and use it in GitHub Desktop.
Save fbiville/f22f51e0bbc66e54173c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Euler_5.hs
20 * (1+length (takeWhile (/= True) (map (foldl (&&) True) (map (\n -> (map (\m -> n `mod` m == 0) [1..20])) [20,40..]))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment