Small changes

2025-02-15 15:04:59 +00:00
parent 395cd9357e
commit 2323b5e0ed
2 changed files with 3 additions and 3 deletions
--- 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)
--- a/tasks.org
+++ b/tasks.org
@@ -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