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

Small changes

Browse Source
This commit is contained in:
Aryadev Chavali
2025-02-15 15:04:59 +00:00
parent 395cd9357e
commit 2323b5e0ed
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/model.lisp
View File

@@ -30,11 +30,11 @@
(deftype int-card () `(integer 0 51)) (deftype int-card () `(integer 0 51))
(deftype cardset () `(and list (satisfies cardsetp)))
(fn cardsetp (lst) (-> (list) boolean) (fn cardsetp (lst) (-> (list) boolean)
(every #'(lambda (x) (typep x 'card)) lst)) (every #'(lambda (x) (typep x 'card)) lst))
(deftype cardset () `(and list (satisfies cardsetp)))
(fn int->suit (n) (-> (int-card) suit) (fn int->suit (n) (-> (int-card) suit)
(case (floor n 13) (case (floor n 13)
(0 :Diamonds) (0 :Diamonds)

2
tasks.org
View File

@@ -9,7 +9,7 @@
We need to deal with folds in rounds (1) and (3). We need to deal with folds in rounds (1) and (3).
** TODO MVP: Simulate without financing ** WIP MVP: Simulate without financing
** TODO Financing ** TODO Financing
Each game has: Each game has:
+ Small and big blind + Small and big blind