dysinger · September 18, 2013 18:34
diff --git a/bryan.hs b/bryan.hs
 main :: IO ()
 main = putStrLn $ show $ solution 3 5 999
  where allNums max'      = [1..(max' :: Int)]
        divisible x y     = y `mod` x == 0
        divisible2 x y    = (\n -> (divisible x n) || (divisible y n))
        solution x y max' = sum $ filter (divisible2 x y) (allNums max')
	main :: IO ()
	main = putStrLn $ show $ solution 3 5 999
	where allNums max' = [1..(max' :: Int)]
	divisible x y = y `mod` x == 0
	divisible2 x y = (\n -> (divisible x n) \|\| (divisible y n))
	solution x y max' = sum $ filter (divisible2 x y) (allNums max')
No results found