rock paper scissors

rps.clj

(def rps-rules {"rock" "scissors",
                "paper" "rock",
                "scissors" "paper"})

(defn rps-random []
  (let [comp-choice (int (* (rand) 3))]
    ((into [] (keys rps-rules)) comp-choice)))

(defn rps-winner [choice comp-choice]
  (if (= (rps-rules choice) comp-choice)
      (print "You won!")
      (print "You lost!"))) 

(defn rps [choice]
  (let [comp-choice (rps-random)]
    (if (= comp-choice choice)
      (println "A tie!")
      (println 
         (str (rps-winner choice comp-choice) " The computer chose " comp-choice)))))

(rps "paper")