✅ haskell: pangram

2021-09-11 12:53:48 -04:00
parent 8d7392977c
commit b1e69d7da9
9 changed files with 278 additions and 0 deletions
--- a/haskell/pangram/examples/success-text/src/Pangram.hs
+++ b/haskell/pangram/examples/success-text/src/Pangram.hs
@ -0,0 +1,8 @@
+module Pangram (isPangram) where
+
+import           Data.Text (Text)
+import qualified Data.Text as T
+
+isPangram :: Text -> Bool
+isPangram s = all (`member` T.toLower s) ['a'..'z']
+  where member = T.any . (==)