From bab1b891995a3f78e194cedbb5dd73dec2b3f6ed Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Tue, 26 Jan 2021 23:52:03 +0900
Subject: Use `zip` function.

---
 blackjack.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/blackjack.lisp b/blackjack.lisp
index 0e0b23c..2792046 100644
--- a/blackjack.lisp
+++ b/blackjack.lisp
@@ -91,7 +91,7 @@
   (declare (xargs :guard (and (natp s)
                               (natp ac))))
   (cond
-   ((zerop ac) s)
+   ((zip ac) s)
    ((<= (+ s 11) 21) (+ s 11 (- ac 1)))
    (t (+ s 1 (- ac 1)))))
 
-- 
cgit v1.2.3