From c10b59042064184103695710fd8b20d80dd22e37 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Fri, 14 Feb 2025 17:34:31 +0000
Subject: Fixed bug in int->rank where n >= 13 leads to error

Because I assume n is modded already.
---
 model.lisp | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/model.lisp b/model.lisp
index 019e881..d17d130 100644
--- a/model.lisp
+++ b/model.lisp
@@ -52,12 +52,13 @@
     (t         4)))
 
 (fn int->rank (n) (-> (int-card) rank)
-  (case (mod n 13)
-    (9 :Jack)
-    (10 :Queen)
-    (11 :King)
-    (12  :Ace)
-    (t  (+ n 2))))
+  (let ((n (mod n 13)))
+    (case n
+      (9 :Jack)
+      (10 :Queen)
+      (11 :King)
+      (12  :Ace)
+      (t  (+ n 2)))))
 
 (fn rank->int (rank) (-> (rank) (integer 0 12))
   (case rank
-- 
cgit v1.2.3-13-gbd6f