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.
22 lines
615 B
22 lines
615 B
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."] |
|
|
|
|