-- Count consonants
-- 

module Codewars.ConsonantCounter where

import Data.Char (toLower, isLetter)

consonantCount :: String -> Int
consonantCount = length . filter (\c -> c `notElem` "aeiou" && isLetter c) . map toLower

 Count consonants
 

module Codewars.ConsonantCounter where

import Data.Char (toLower, isLetter)

consonantCount :: String -> Int
consonantCount = length . filter (\c -> c `notElem` "aeiou" && isLetter c) . map toLower
