diff options
| -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 |