Skip to content

Instantly share code, notes, and snippets.

@kkpoon

kkpoon/iPhone.hs

Created September 9, 2016 10:33
Show Gist options
  • Save kkpoon/b097d22263a1a2968486c4233378c6a4 to your computer and use it in GitHub Desktop.
Save kkpoon/b097d22263a1a2968486c4233378c6a4 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
iPhone.hs
iPhone :: String -> String
iPhone "7" = "就是七"
iPhone _ = "Poor guy"
main = do
putStrLn "What is your iPhone model?"
model <- getLine
putStrLn $ iPhone model
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment