Number guessing game

guess.clj

(defonce secret-number (atom 0))

(defn reset-game
  "Reset the secret-number atom to an integer between 0 and the highest-number"
  [highest-number]
  (when (reset! secret-number (rand-int (inc highest-number)))
    (println (str "I am thinking of a number between 0 and " highest-number ))))

(defn guess
  "Make a guess at the secret number."
  [number]
  (cond
    (> number @secret-number) "⬇ Guess lower"
    (< number @secret-number) "⬆ Guess higher"
    (= number @secret-number) (str "You win! The secret number was " @secret-number)))