Поиск количества элементов по массиву

incount e array = if length array == 1 then if array == [e] then 1 else 0 else if (head array) == e then (incount e (tail array)) + 1 else incount e (tail array)
 
main = incount 2 [77, 40, 16, 98, 10, 30, 80, 44, 22, 1, 76, 2, 0, 51, 38, 27, 70, 23, 73, 8, 8, 33, 32, 73, 89, 81, 65, 92, 9, 69, 92, 98, 10, 3, 34, 84, 68, 74, 68, 9, 4, 27, 26, 49, 96, 55, 1, 48, 34, 48, 64, 62, 7, 89, 59, 43, 7, 43, 8, 29, 65, 87, 34, 53, 8, 78, 92, 96, 16, 53, 59, 95, 54, 63, 4, 81, 7, 83, 76, 33, 79, 16, 58, 61, 4, 30, 90, 20, 44, 90, 77, 25, 65, 38, 43, 16, 92, 73, 41, 17, 62, 4, 31, 80, 89, 68, 7, 43, 84, 78, 35, 24, 66, 74, 50, 48, 29, 73, 48, 78, 87, 72, 52, 26, 75, 33, 30, 16, 19, 88, 88, 34, 41, 59, 71, 74, 84, 77, 72, 36, 23, 47, 35, 65, 55, 53, 58, 90, 88, 95, 87, 19, 24, 63, 29, 90, 52, 5, 5, 55, 37, 91, 23, 96, 89, 1, 82, 7, 3, 75, 64, 51, 1, 11, 54, 40, 36, 86, 70, 22, 75, 39, 27, 24, 0, 69, 9, 78, 29, 80, 22, 78, 72, 16, 98, 32, 23, 39, 76, 54, 70, 51, 86, 13, 30, 35, 18, 12, 8, 89, 54, 65, 35, 82, 80, 98, 63, 99, 95, 20, 91, 4, 77, 23, 53, 85, 79, 84, 13, 22, 17, 96, 10, 16, 52, 23, 53, 13, 93, 65, 51, 97, 69, 40, 25, 56, 43, 89, 36, 0, 68, 24, 44, 55, 62, 65, 73, 63, 60, 45, 56, 33, 99, 86, 71, 57, 55, 18, 30, 56, 44, 49, 5, 30, 69, 94, 35, 37, 97, 96, 42, 89, 47, 12, 53, 92, 52, 55, 54,  95, 85, 33, 72, 95, 80, 59, 91, 7, 54, 94, 92, 40, 71, 2, 3, 26, 62, 29, 21, 50, 19, 33, 90, 47, 21, 94, 26, 21, 35, 8, 99, 20, 38, 46, 82, 54, 11, 74, 2, 70, 84, 71, 86, 75, 25, 24, 65, 35, 81, 13, 81, 68, 15, 93, 76, 52, 42, 24, 74, 85, 32, 70, 71, 46, 94]

incount :: Eq a => a -> [a] -> Int
incount e [] = 0 
incount e (x:xs)
        | e == x     = 1 + incount e xs
        | otherwise = incount e xs

incount :: Eq a => a -> [a] -> Int
incount e = foldl add 0
    where add acc i = acc + if e == i then 1 else 0