You are viewing a single comment's thread. Return to all comments →
Haskell
module Main where import qualified Data.Set as S import Data.Char (toLower) solve :: String -> String solve = (\x -> if x == 26 then "pangram" else "not pangram") . S.size . S.intersection (S.fromList ['a' .. 'z']) . S.fromList . map toLower main :: IO () main = interact solve
Seems like cookies are disabled on this browser, please enable them to open this website
Pangrams
You are viewing a single comment's thread. Return to all comments →
Haskell