From 3906be4d590ce740250bac2bd49b45129a32bb2b Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Fri, 14 Feb 2025 17:16:00 +0000
Subject: 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.
---
 model.lisp | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/model.lisp b/model.lisp
index 6554e80..a93cf6e 100644
--- a/model.lisp
+++ b/model.lisp
@@ -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)
-- 
cgit v1.2.3-13-gbd6f