(defun win-against (x) (let ((tmp (mod (+ 2 x) 3))) (if (= tmp 0) 3 tmp)))
(defun lose-against (x) (+ 1 (mod x 3)))

(defun lose-against (x) (let ((tmp (mod (+ 2 x) 3))) (if (= tmp 0) 3 tmp)))
(defun win-against (x) (+ 1 (mod x 3)))

(defun check-win (opp me) (= (win-against me) opp))
(defun check-loss (opp me) (= (lose-against me) opp))

(defun check-win (opp me) (= (lose-against me) opp))
(defun check-loss (opp me) (= (win-against me) opp))