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/main.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/main.lisp')
| -rw-r--r-- | src/main.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/main.lisp b/src/main.lisp index d8985d0..d75b08b 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -41,7 +41,7 @@ (while (null inp) (format t "Need at least one integer...~%") (force-output) - (setq inp (read-integers))) + (->> (read-integers) (setq inp))) inp)) (fn is-valid-hand-index (n) (-> (fixnum) boolean) @@ -55,7 +55,7 @@ (>= (length inp) 0))) (format t "Need at most 5 integers between 0 and 4...~%") (force-output) - (setq inp (remove-duplicates (read-integers)))) + (->> (read-integers) remove-duplicates (setq inp))) inp)) (fn read-and-confirm-valid-integers (hand) (-> (cardset) list) @@ -97,6 +97,7 @@ (->> (make-deck) alexandria:shuffle (read-redeal-print nil)) + (format t "~C[2J" #\Esc) (format t "Cards remaining: {~a} Final hand: [~a] |