knock-knock

gistfile1.clj

(clear!)

(defparser
  ["Knock ?knock"])

(defresponse
  (and* (known ["?knock"]) (unknown ["?whosthere"]))
  (fn [?knock]
    (remember! {"?whosthere" true})
    "Who's there?"))

(defparser
  ["?word"]
  (fn [{?word "?word"}]
    (let [?whosthere 
            (first (extract-knowledge "?whosthere"))
          ?who
            (first (extract-knowledge "?who"))
          ?askedwho
            (first (extract-knowledge "?askedwho"))
          ?punchlined
            (first (extract-knowledge "?punchlined"))]
      (cond 
        (and ?whosthere (not ?who)) 
          (remember! {"?who" ?word})
        (and ?askedwho (not ?punchlined))
          (remember! {"?punchlined" true})))))

(defresponse
  (and* (known ["?who"]) (unknown ["?askedwho"]))
  (fn [?who]
    (remember! {"?askedwho" true})
    "?who who?"))

(defresponse
  (known ["?punchlined"])
  (fn [?punchlined]
    "Hahaha!"))

(start-conversation!)