guessing_game.clj

(ns game)

(defn- guess
  [current-min current-max n]
  (let [mid (int (/ (+ current-min current-max) 2))
        res (do
              (println (str "Czy twoja liczba to: " mid))
              (read-line))]
    (cond
      (.equals res "<") (guess current-min mid (inc n))
      (.equals res ">") (guess mid current-max (inc n))
      (.equals res "=") '(:success n)
      true '(:exit))))

(defn start
  []
  (let [r (guess 0 100 1)
        x (nth r 0)]
    (cond
      (= x :success) (println "Zgadłeś!") ;; (nth r 1)
      (= x :exit) (println "Sayonara!"))))