diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-07-09 21:31:43 +0100 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-07-10 00:08:23 +0100 |
| commit | cd6ac8930db6ad3b866b4b8398a25b49c3767a5b (patch) | |
| tree | b7d85e0845f1d0aa1b17ee3a0105823190bba4be /src/game.lisp | |
| parent | 062b5f59d74bda9710c3b532648658a4a7910290 (diff) | |
| download | cantedraw-cd6ac8930db6ad3b866b4b8398a25b49c3767a5b.tar.gz cantedraw-cd6ac8930db6ad3b866b4b8398a25b49c3767a5b.tar.bz2 cantedraw-cd6ac8930db6ad3b866b4b8398a25b49c3767a5b.zip | |
Overhaulmaster
Loads of changes, some which I wasn't sure what I was on when doing
them
Diffstat (limited to 'src/game.lisp')
| -rw-r--r-- | src/game.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/game.lisp b/src/game.lisp index e9f234f..47831f4 100644 --- a/src/game.lisp +++ b/src/game.lisp @@ -19,8 +19,8 @@ (in-package :cantedraw.game) -(fn deal-cards (n deck) (-> (fixnum cardset) (cons cardset cardset)) - (destructuring-bind (hand . rest) (split n deck) +(fn deal-cards (n deck) (-> (fixnum cardset) (cons cardset )) + (multiple-value-bind (hand rest) (split n deck) (cons (sort hand #'card<) rest))) (fn deal-hands (n deck) (-> (fixnum cardset) (cons list cardset)) |