Guest User

Untitled

a guest
Dec 7th, 2011
98
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. module Main where
  2.  
  3. multipleOf3or5 x
  4.     | mod x 5 == 0 = x
  5.     | mod x 3 == 0 = x
  6.     | otherwise    = 0
  7.  
  8. euler1 = sum $ map multipleOf3or5 $ [1..999]
  9.  
RAW Paste Data