oreodave/cantedraw
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
Because I assume n is modded already.
This commit is contained in:
Aryadev Chavali
2025-02-14 17:34:31 +00:00
parent e5a53957b3
commit c10b590420
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
model.lisp
View File

@@ -52,12 +52,13 @@
(t 4))) (t 4)))
(fn int->rank (n) (-> (int-card) rank) (fn int->rank (n) (-> (int-card) rank)
(case (mod n 13) (let ((n (mod n 13)))
(9 :Jack) (case n
(10 :Queen) (9 :Jack)
(11 :King) (10 :Queen)
(12 :Ace) (11 :King)
(t (+ n 2)))) (12 :Ace)
(t (+ n 2)))))
(fn rank->int (rank) (-> (rank) (integer 0 12)) (fn rank->int (rank) (-> (rank) (integer 0 12))
(case rank (case rank