Racket madlibs iteration 5

madlibs_iteration_5.rkt

#lang at-exp racket

(define-namespace-anchor a)
(define ns (namespace-anchor->namespace a))

(define tree-story (list
    `@~a{There once was a big @treetype tree in the old forest of @location.
         It was tended by a @job named @name. @name was nearly @count years
         old and she was very tired of tending her @treetype tree."}
    (list `treetype "Type of thing: ")
    (list `location "Location: ")
    (list `job "Job: ")
    (list `name "Name: ")
    (list `count "Number: ")))

(define (run-prompt prompt)
    (display (second prompt))
    (define (eval (first prompt)) (read-line))
    (first prompt))

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

(tell-story tree-story)