Madlibs iteration 7

madlibs_iteration_7.rkt

#lang at-exp racket

(define tree-prompts
  (make-hash (list (cons `treetype (list "Type of thing: " null)) (cons `location (list "Location: " null)))))

(define tree-template (list "There once was a big " `treetype " tree in the " `treetype " old forest of " `location "."))

(define (run-prompt sym prompts)
  (define prompt-info (hash-ref prompts sym null))
  (if (null? (second prompt-info))
      (begin (display (first prompt-info))
      (hash-set! prompts sym (list (first prompt-info) (read-line))))
      null)
  (second (hash-ref prompts sym null)))

(define (tell-story template prompts)
  (string-join 
   (map (lambda (i)
          (if (string? i) i (run-prompt i prompts))
          )
        template) ""))

(tell-story tree-template tree-prompts)