diff options
| -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))))) |