diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-15 15:04:59 +0000 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-15 15:04:59 +0000 |
| commit | 2323b5e0ed564c215741c869da4b487d56b76502 (patch) | |
| tree | b7ee4b0e3cd4bc61888dd856493c1a3fb75274f7 | |
| parent | 395cd9357e2dbcf3bb0ffcaa45c79492ed4c3317 (diff) | |
| download | cantedraw-2323b5e0ed564c215741c869da4b487d56b76502.tar.gz cantedraw-2323b5e0ed564c215741c869da4b487d56b76502.tar.bz2 cantedraw-2323b5e0ed564c215741c869da4b487d56b76502.zip | |
Small changes
| -rw-r--r-- | src/model.lisp | 4 | ||||
| -rw-r--r-- | tasks.org | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/model.lisp b/src/model.lisp index 7cb1792..ffa1a4a 100644 --- a/src/model.lisp +++ b/src/model.lisp @@ -30,11 +30,11 @@ (deftype int-card () `(integer 0 51)) +(deftype cardset () `(and list (satisfies cardsetp))) + (fn cardsetp (lst) (-> (list) boolean) (every #'(lambda (x) (typep x 'card)) lst)) -(deftype cardset () `(and list (satisfies cardsetp))) - (fn int->suit (n) (-> (int-card) suit) (case (floor n 13) (0 :Diamonds) @@ -9,7 +9,7 @@ We need to deal with folds in rounds (1) and (3). -** TODO MVP: Simulate without financing +** WIP MVP: Simulate without financing ** TODO Financing Each game has: + Small and big blind |