Fixed bug in int->rank where n >= 13 leads to error

Because I assume n is modded already.
2025-02-14 17:34:31 +00:00
parent e5a53957b3
commit c10b590420
1 changed files with 7 additions and 6 deletions
--- 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