kkirsanov · May 29, 2012 12:50
diff --git a/euler1.hs b/euler1.hs
 --If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23.
 --Find the sum of all the multiples of 3 or 5 below 1000.

 mapf fs x = map ($ x) fs
 mod' x = (0==) . flip mod x

 mods = [3, 5] 
 lst = [1..999]

 flt = filter f lst where 
    f x = or $ mapf (map mod' mods) x

 s = sum flt
	--If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23.
	--Find the sum of all the multiples of 3 or 5 below 1000.

	mapf fs x = map ($ x) fs
	mod' x = (0==) . flip mod x

	mods = [3, 5]
	lst = [1..999]

	flt = filter f lst where
	f x = or $ mapf (map mod' mods) x

	s = sum flt
No results found