diff options
| -rw-r--r-- | model.lisp | 41 | ||||
| -rw-r--r-- | packages.lisp | 8 |
2 files changed, 48 insertions, 1 deletions
@@ -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))))) diff --git a/packages.lisp b/packages.lisp index cd99262..386abe1 100644 --- a/packages.lisp +++ b/packages.lisp @@ -34,7 +34,13 @@ (defpackage cantedraw.model (:use :cl :cantedraw.lib.macros :cantedraw.lib.functions) - (:export :int-card :rank :suit :card :cardset)) + (:export + ;; Types + :int-card :rank :suit :card :cardset + ;; Converters + :int->suit :int->rank :int->card + :suit->int :rank->int :card->int + )) (defpackage cantedraw.main (:use :cl :cantedraw.lib.macros :cantedraw.lib.functions) |