challenge-269/asherbhs/haskell/ch-1.hs


1
2
3
4
5
6
7
8

bitwiseOr :: [Int] -> Bool
bitwiseOr = (>= 2) . length . filter (\x -> mod x 2 == 0)

main :: IO ()
main = do
    print $ bitwiseOr [1, 2, 3, 4, 5]
    print $ bitwiseOr [2, 3, 8, 16]
    print $ bitwiseOr [1, 2, 5, 7, 9]