A mastermind board game (http://en.m.wikipedia.org/wiki/Mastermind_(board_game)) implementation in clojure...

core.clj

(ns mastermind.core
  (:gen-class))

(defn generate-numbers []
   (let [game [1 2 3 4 5 6]]
     (->> game shuffle (take 4) vec)))

(defn guess [user answer]
   (map #(= %1 %2) user answer))

(defn user-game []
  (print "(mastermind) Do your guess: ")
  (flush)
  (let [u (str "[" (read-line) "]")]
    (->  u read-string)))

(defn play []
  (let [game (generate-numbers)]
    (loop [u (user-game)
           g game]
      (let [result (guess u g)]
        (cond
          (= u "quit") (println "Bye...")
          (every? true?  result) (println "You won!")
          :default 
          (do
            (println result)
            (recur (user-game) g)))))))