Write the rules of the rock-paper-scissors game

rock_paper_scissors.clj

(ns rock-paper-scissors.core
  (:refer-clojure :exclude [==])
  (:use clojure.core.logic))

(defrel beats hand1 hand2)
(facts beats [[:rock :scissor] [:paper :rock] [:scissor :paper]])

(defn play [hand1 hand2]
  (run* [result]
    (conde
      ((beats hand1 hand2) (== result :victory))
      ((beats hand2 hand1) (== result :loss))
      ((== hand1 hand2) (== result :tie)))))