Sha256: c40a99430e71349a059c263af3b11dcdd687bd6cc7df8f14d67de0a032999904
Contents?: true
Size: 887 Bytes
Versions: 141
Compression:
Stored size: 887 Bytes
Contents
module Bob
( hey
) where
import Prelude
import Data.String as String
import Data.Either as Either
import Data.String.Regex as Regex
import Data.String.Regex.Flags (noFlags)
import Partial.Unsafe as Partial
hey :: String -> String
hey msg =
if hasLetters msg && allUppercase msg then
"Whoa, chill out!"
else if isQuestion msg then
"Sure."
else if isSilence msg then
"Fine. Be that way!"
else
"Whatever."
allUppercase :: String -> Boolean
allUppercase str =
String.toUpper str == str
isQuestion :: String -> Boolean
isQuestion =
testRegex "\\?$"
hasLetters :: String -> Boolean
hasLetters =
testRegex "[a-zA-Z]"
isSilence :: String -> Boolean
isSilence =
testRegex "^[\\s\\t\\n]*$"
testRegex :: String -> String -> Boolean
testRegex patternStr =
Regex.test
$ Partial.unsafePartial
$ Either.fromRight
$ Regex.regex patternStr noFlags
Version data entries
141 entries across 141 versions & 1 rubygems