Thomas Friedman AI

friedman.clj

(ns friedman)

;; Inspired by ``A Grammar for a Subset of English'', PAIP by Norvig pp. 35-36

(defn one-of [lst]
  (nth lst (rand-int (count lst))))

(defn common-occupation []
  (one-of '("barber" "cab driver" "teacher" "fisherman" "doctor")))

(defn capital-of-developing-country []
  (one-of '("Lagos" "Minsk" "Kuala Lumpur" "Cairo" "Caracas")))

(defn anecdote []
  (one-of '("about how they bought apples from Spain via a cell-phone"
            "that the playing field is level"
            "there are unemployed bankers")))

(defn unsupported-conclusion []
  (one-of '("the world is flat." "the sky is green." "the moon is made of cheese.")))

(defn friedman []
  (str "One " (common-occupation) " in " (capital-of-developing-country)
       " told me " (anecdote) ", then I realized " (unsupported-conclusion)))