yahtzee.clj

(defn throw-die [] (inc (rand-int 6)))

(defn throw-dice [] (repeatedly throw-die))

(defn yahtzee? [numbers] (apply = numbers))

(defn printlnrt [v] (do  (println v) v))

(defn throw-yahtzee [] (while (not (yahtzee? (printlnrt (take 14 (throw-dice)))))))

(throw-yahtzee)