Merge pull request #165 from anuragsoni/isograms

use isAlpha definition from the upcoming elm-lang core
This commit is contained in:
Erik Simmler 2017-10-14 19:43:38 -04:00 committed by GitHub
commit 3f35e2ac0b

View file

@ -5,16 +5,16 @@ import List
import Char
isLetter : Char -> Bool
isLetter c =
Char.isHexDigit c && (not <| Char.isDigit c)
isAlpha : Char -> Bool
isAlpha char =
Char.isUpper char || Char.isLower char
isIsogram : String -> Bool
isIsogram sentence =
let
sanitized =
String.filter isLetter sentence
String.filter isAlpha sentence
|> String.toLower
|> String.toList
|> List.sort