diff options
| -rw-r--r-- | net/ricketyspace/ror/twelve/source.rkt | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/net/ricketyspace/ror/twelve/source.rkt b/net/ricketyspace/ror/twelve/source.rkt index cc6c366..dc37e87 100644 --- a/net/ricketyspace/ror/twelve/source.rkt +++ b/net/ricketyspace/ror/twelve/source.rkt @@ -291,7 +291,9 @@ ;; Which player has won the game -- eager is for N human players (define (won board) (define-values (best-score w) (winners board)) - (if (cons? (rest w)) "It's a tie." "You won.")) + (cond [(cons? (rest w)) "It's a tie."] + [(= (car w) AI) "AI won."] + [else "You won."])) ; ; |