Skip to content

Instantly share code, notes, and snippets.

@MiyamonY

MiyamonY/27-180423.hs

Created February 27, 2015 09:07
Show Gist options
  • Save MiyamonY/ffb329ff841289bc8cc7 to your computer and use it in GitHub Desktop.
Save MiyamonY/ffb329ff841289bc8cc7 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
27-180423.hs
import Data.Char
main :: IO ()
main = do
putStrLn "What's your first name?"
firstName <- getLine
putStrLn "What's your last name?"
lastName <- getLine
let bigFirstName = map toUpper firstName
bigLastName = map toUpper lastName
putStrLn $ "hey, " ++ bigFirstName ++ " " ++ bigLastName ++ ", how are you?"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment