1 files changed, 41 insertions, 0 deletions
diff --git a/model.lisp b/model.lisp
index 7ce8b99..6554e80 100644
--- a/model.lisp
+++ b/model.lisp
@@ -35,3 +35,44 @@
 
 (deftype cardset () `(and list (satisfies cardsetp)))
 
+(fn int->suit (n) (-> (int-card) suit)
+  (case (floor n 13)
+    (0 :Diamonds)
+    (1 :Clubs)
+    (2 :Hearts)
+    (3 :Spades)
+    (t :Joker)))
+
+(fn suit->int (item) (-> (suit) (integer 0 4))
+  (case item
+    (:Diamonds 0)
+    (:Clubs    1)
+    (:Hearts   2)
+    (:Spades   3)
+    (t         4)))
+
+(fn int->rank (n) (-> (int-card) rank)
+  (case (mod n 13)
+    (0  :Ace)
+    (10 :Jack)
+    (11 :Queen)
+    (12 :King)
+    (t  (+ n 1))))
+
+(fn rank->int (rank) (-> (rank) (integer 0 12))
+  (case rank
+    (:Ace    0)
+    (:Jack  10)
+    (:Queen 11)
+    (:King  12)
+    (t      (- rank 1))))
+
+(fn int->card (num) (-> (int-card) card)
+  (cons (int->rank num)
+        (int->suit num)))
+
+(fn card->int (card) (-> (card) int-card)
+  (destructuring-bind (rank . suit) card
+    (->> (suit->int suit)
+         (* 13)
+         (+ (rank->int rank)))))