Create First Program
parent
db2be7b9ac
commit
3cba01ec07
@ -0,0 +1,23 @@
|
|||||||
|
toPart :: [Char] -> [Char]
|
||||||
|
toPart recipient = "Dear " ++ recipient ++ ",\n"
|
||||||
|
|
||||||
|
bodyPart :: [Char] -> [Char]
|
||||||
|
bodyPart bookTitle = "Thanks for Purchasing" ++ bookTitle ++ ".\n"
|
||||||
|
|
||||||
|
fromPart :: [Char] -> [Char]
|
||||||
|
fromPart author = "Thanks, \n" ++ author
|
||||||
|
|
||||||
|
createEmail :: [Char] -> [Char] -> [Char] -> [Char]
|
||||||
|
createEmail recipient bookTitle author = toPart recipient ++
|
||||||
|
bodyPart bookTitle ++
|
||||||
|
fromPart author
|
||||||
|
|
||||||
|
main :: IO ()
|
||||||
|
main = do
|
||||||
|
print "Who is the email for?"
|
||||||
|
recipient <- getLine
|
||||||
|
print "What is the Title?"
|
||||||
|
title <- getLine
|
||||||
|
print "Who is the Author?"
|
||||||
|
author <- getLine
|
||||||
|
print (createEmail recipient title author)
|
Loading…
Reference in New Issue