Madlibs Iteration 4

madlibs_iter_4.rkt

#lang racket

(define cat-story (list
    "There once was a cat named ~a who lived in ~a"
    "Name: "
    "Location: "))

(define pirate-story (list
    "A pirate named ~a roamed the high seas of ~a in ~a ship. It was a ~a day when suddenly there came ~a from a distance."
    "Name: "
    "Location: "
    "Pronoun: "
    "Adjective: "
    "Noun: "))

(define (run-prompt prompt)
    (display prompt)
    (read-line))

(define (print-story template answers)
    (apply printf template answers))

(define (tell-story story)
    (print-story
     (first story)
     (for/list ([prompt (rest story)])
       (run-prompt prompt))
     )
  )

(tell-story cat-story)
(tell-story pirate-story)