Demonstrate returning values from functions
parent
faa1ff3941
commit
e677c12cdd
@ -0,0 +1,29 @@
|
||||
sfOffice :: ([Char], [Char]) -> [Char]
|
||||
sfOffice name = if surname < "L"
|
||||
then nameText ++ " - PO Box 1234 - San Francisco, CA, 94111"
|
||||
else nameText ++ " - PO Box 1010 - San Francisco, CA, 94109"
|
||||
where surname = snd name
|
||||
nameText = fst name ++ " " ++ surname
|
||||
|
||||
|
||||
nyOffice :: ([Char], [Char]) -> [Char]
|
||||
nyOffice name = nameText ++ ": PO Box 789 - New York, NY, 10013"
|
||||
where nameText = fst name ++ " " ++ snd name
|
||||
|
||||
|
||||
renoOffice :: (a, [Char]) -> [Char]
|
||||
renoOffice name = nameText ++ " - PO Box 456 - Reno, NV 89523"
|
||||
where nameText = snd name
|
||||
|
||||
|
||||
getLocation :: [Char] -> ([Char], [Char]) -> [Char]
|
||||
getLocation location = case location of
|
||||
"ny" -> nyOffice
|
||||
"sf" -> sfOffice
|
||||
"reno" -> renoOffice
|
||||
_ -> (\name -> fst name ++ " " ++ snd name)
|
||||
|
||||
|
||||
addressLetter :: ([Char], [Char]) -> [Char] -> [Char]
|
||||
addressLetter name location = locationFunction name
|
||||
where locationFunction = getLocation location
|
Loading…
Reference in New Issue