diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-14 17:16:00 +0000 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-14 17:17:43 +0000 |
| commit | 3906be4d590ce740250bac2bd49b45129a32bb2b (patch) | |
| tree | 9609006692c14bc5a2c5fc0b7ddb792ba8d205f4 | |
| parent | 76a70172464f054a3ff3d0d51642a143d76ec31a (diff) | |
| download | cantedraw-3906be4d590ce740250bac2bd49b45129a32bb2b.tar.gz cantedraw-3906be4d590ce740250bac2bd49b45129a32bb2b.tar.bz2 cantedraw-3906be4d590ce740250bac2bd49b45129a32bb2b.zip | |
Adjust rank->int and int->rank for ACE supremacy
Generally, ACE is the best card in Cantedraw in a card-by-card basis
thus it should be the higher when comparing.
| -rw-r--r-- | model.lisp | 20 |
1 files changed, 10 insertions, 10 deletions
@@ -53,19 +53,19 @@ (fn int->rank (n) (-> (int-card) rank) (case (mod n 13) - (0 :Ace) - (10 :Jack) - (11 :Queen) - (12 :King) - (t (+ n 1)))) + (9 :Jack) + (10 :Queen) + (11 :King) + (12 :Ace) + (t (+ n 2)))) (fn rank->int (rank) (-> (rank) (integer 0 12)) (case rank - (:Ace 0) - (:Jack 10) - (:Queen 11) - (:King 12) - (t (- rank 1)))) + (:Jack 9) + (:Queen 10) + (:King 11) + (:Ace 12) + (t (- rank 2)))) (fn int->card (num) (-> (int-card) card) (cons (int->rank num) |