diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-14 17:01:12 +0000 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-14 17:17:43 +0000 |
| commit | 76a70172464f054a3ff3d0d51642a143d76ec31a (patch) | |
| tree | 3886fb4d75b45431f9bfb27a097c0b42a295a7de /packages.lisp | |
| parent | f4b43031adf1094d007ce9e44b191255909d178c (diff) | |
| download | cantedraw-76a70172464f054a3ff3d0d51642a143d76ec31a.tar.gz cantedraw-76a70172464f054a3ff3d0d51642a143d76ec31a.tar.bz2 cantedraw-76a70172464f054a3ff3d0d51642a143d76ec31a.zip | |
Implement some simple converters for custom types to/from integers
Given n in 0..51, certainly there exists r, s s.t. `n = 13s + r`
where r in 0..12 and s in 0..3. `r` is the rank, and `s` is the suit.
ranks are ordered Ace, 2, 3, ..., Queen, King and suits are ordered
Diamond, Club, Heart, Spade.
Therefore there is a 1-1 correspondence between 0..51 and any card in
the deck.
Jokers are a bit less straightforward; for now I'll define them as an
outlier which doesn't exist in the same bounds (which is why they're
the default return for suit in int->suit). Likely I'll go for -1
representing a Joker.
Diffstat (limited to 'packages.lisp')
| -rw-r--r-- | packages.lisp | 8 |
1 files changed, 7 insertions, 1 deletions
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) |