diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-14 17:34:31 +0000 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-14 17:34:31 +0000 |
| commit | c10b59042064184103695710fd8b20d80dd22e37 (patch) | |
| tree | a894b5e059d426650fc6f9856b917eaee9cbc0e5 | |
| parent | e5a53957b3c91510d1f06ed54121231e3c94a86b (diff) | |
| download | cantedraw-c10b59042064184103695710fd8b20d80dd22e37.tar.gz cantedraw-c10b59042064184103695710fd8b20d80dd22e37.tar.bz2 cantedraw-c10b59042064184103695710fd8b20d80dd22e37.zip | |
Fixed bug in int->rank where n >= 13 leads to error
Because I assume n is modded already.
| -rw-r--r-- | model.lisp | 13 |
1 files changed, 7 insertions, 6 deletions
@@ -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 |