diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2021-01-26 23:52:03 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2021-01-26 23:52:03 +0900 |
| commit | bab1b891995a3f78e194cedbb5dd73dec2b3f6ed (patch) | |
| tree | f3db26967924b23fe4a5aca27e08c1d53b670c70 | |
| parent | 60143c0e574d00a1571bd0750ca7186cdc4d04dc (diff) | |
Use `zip` function.
| -rw-r--r-- | blackjack.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
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))))) |