mirror of
https://github.com/correl/elm.git
synced 2024-11-24 19:19:53 +00:00
use isAlpha definition from the upcoming elm-lang core
This commit is contained in:
parent
ab69147dd9
commit
d82d346afe
1 changed files with 4 additions and 4 deletions
|
@ -5,16 +5,16 @@ import List
|
||||||
import Char
|
import Char
|
||||||
|
|
||||||
|
|
||||||
isLetter : Char -> Bool
|
isAlpha : Char -> Bool
|
||||||
isLetter c =
|
isAlpha char =
|
||||||
Char.isHexDigit c && (not <| Char.isDigit c)
|
Char.isUpper char || Char.isLower char
|
||||||
|
|
||||||
|
|
||||||
isIsogram : String -> Bool
|
isIsogram : String -> Bool
|
||||||
isIsogram sentence =
|
isIsogram sentence =
|
||||||
let
|
let
|
||||||
sanitized =
|
sanitized =
|
||||||
String.filter isLetter sentence
|
String.filter isAlpha sentence
|
||||||
|> String.toLower
|
|> String.toLower
|
||||||
|> String.toList
|
|> String.toList
|
||||||
|> List.sort
|
|> List.sort
|
||||||
|
|
Loading…
Reference in a new issue