aboutsummaryrefslogtreecommitdiff
path: root/Math.hs
blob: 98c7d8cd6ea638c1548e3fcf81a119d549f265a6 (plain)
1
2
3
4
5
6
7
8
9
10
module Math where

isPrime :: Int -> Bool
isPrime n = (length [ x | x <- [2..(ceiling $ sqrt $ fromIntegral 2)],
                                n `mod` x == 0]) == 0
factors :: Int -> [Int]
factors n = [x | x <- [1..(n `div` 2)], n `mod` x == 0] ++ [n]

intersect' :: [Int] -> [Int] -> [Int]
intersect' a b = [x | x <- a, x `elem` b]