| {-# LANGUAGE BlockArguments #-}
|
| {-# LANGUAGE NondecreasingIndentation #-}
|
| potatoFunction :: String -> String
|
| potatoFunction x =
|
| case x of
|
| "1" -> "tacos"
|
| "2" -> "enchiladas"
|
| "3" -> "burritos"
|
|
|
| gameOne :: String -> Bool
|
| gameOne "yes" = True
|
| gameOne "no" = False
|
|
|
| endGameQuestion :: (a, b) -> String
|
| endGameQuestion (x, y) =
|
| ("yes", True) "Alright. Lets play!"
|
| ("no" , False) "Understandable. Have a good day!"
|
|
|
| questionOne :: String -> String
|
| questionOne x =
|
| case x of
|
| "good" -> "Thats Great! wanna play a game?"
|
| "bad" -> "aww. I'm sorry! maybe a game will help. wanna play?"
|
| "okay" -> "I see. Maybe a game will make you feel better! wanna play?"
|
| otherwise -> "decide with good, bad, or okay."
|
|
|
| main :: IO ()
|
| main = do
|
| putStrLn "Please enter your name."
|
| name <- getLine
|
| putStrLn $ "Helloooo " ++ name ++ "! How are you?"
|
| answerOne <- getLine
|
| putStrLn $ questionOne answerOne
|