diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-14 17:44:46 +0000 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-14 17:44:46 +0000 |
| commit | fba391a6e80db15926db79a3cf889ed096fb7849 (patch) | |
| tree | 7fc284b836aba2bd0c0eacb5b9a3b8411558f049 | |
| parent | 955e921f8056b4cc858ea9798a14b91486cf9036 (diff) | |
| download | cantedraw-fba391a6e80db15926db79a3cf889ed096fb7849.tar.gz cantedraw-fba391a6e80db15926db79a3cf889ed096fb7849.tar.bz2 cantedraw-fba391a6e80db15926db79a3cf889ed096fb7849.zip | |
Refactor Joker generation in make-deck to use mapcar on a range.
This new version is terser while still expressing what I want.
| -rw-r--r-- | model.lisp | 9 |
1 files changed, 3 insertions, 6 deletions
@@ -124,11 +124,8 @@ (fn make-deck (&optional (n 1)) (-> (&optional fixnum) cardset) (append - (loop :for i :from 1 :to n + (loop :for _ :from 1 :to n :nconc (loop :for j :from 1 :to 52 collect (int->card (1- j)))) - (loop :for i :from 1 :to n - :collect (->> i - 1- - int->rank - make-joker)))) + (mapcar ($ int->rank make-joker) + (range 0 (* 2 n))))) |