You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
615 B
23 lines
615 B
7 years ago
|
module Madness where
|
||
|
|
|
||
|
|
import Data.Monoid
|
||
|
|
|
||
|
|
type Verb = String
|
||
|
|
type Adjective = String
|
||
|
|
type Adverb = String
|
||
|
|
type Noun = String
|
||
|
|
type Exclamation = String
|
||
|
|
|
||
|
|
madlibbin' :: Exclamation -> Adverb -> Noun -> Adjective -> String
|
||
|
|
madlibbin' e adv noun adj =
|
||
|
|
e <> "! he said " <>
|
||
|
|
adv <> " as he jumped into his car " <>
|
||
|
|
noun <> " and drove off with his " <>
|
||
|
|
adj <> " wife."
|
||
|
|
|
||
|
|
madlibbinBetter' :: Exclamation -> Adverb -> Noun -> Adjective -> String
|
||
|
|
madlibbinBetter' e adv noun adj =
|
||
|
|
mconcat [e, "! he said ", adv, " as he jumped into his car ",
|
||
|
|
noun, " and drove off with his ", adj, " wife."]
|
||
|
|
|