From fba391a6e80db15926db79a3cf889ed096fb7849 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Fri, 14 Feb 2025 17:44:46 +0000
Subject: Refactor Joker generation in make-deck to use mapcar on a range.

This new version is terser while still expressing what I want.
---
 model.lisp | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/model.lisp b/model.lisp
index ccbaa9a..5652b9c 100644
--- a/model.lisp
+++ b/model.lisp
@@ -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)))))
-- 
cgit v1.2.3-13-gbd6f