Pangram.hs

module Pangram where

import Data.Set (Set)
import Data.Set as Set

import Data.Char (toLower, isLetter)

import Data.List as List

isPangram :: [Char] -> Bool
isPangram s = 26 == (Set.size $ Set.fromList $ fmap toLower (List.filter isLetter s))

combinePredicates :: (a -> Bool) -> (a -> Bool) -> (a -> Bool)
combinePredicates f g = \a -> (f a) && (g a)