haskell: pangram

This commit is contained in:
2021-09-11 12:53:48 -04:00
parent 8d7392977c
commit b1e69d7da9
9 changed files with 278 additions and 0 deletions

View File

@ -0,0 +1,17 @@
name: pangram
dependencies:
- base
- text
library:
exposed-modules: Pangram
source-dirs: src
tests:
test:
main: Tests.hs
source-dirs: test
dependencies:
- pangram
- hspec

View File

@ -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 . (==)