summaryrefslogtreecommitdiffstats
path: root/net
diff options
context:
space:
mode:
authorrsiddharth <s@ricketyspace.net>2020-02-13 21:28:07 -0500
committerrsiddharth <s@ricketyspace.net>2020-02-13 21:28:07 -0500
commit312fe0bfdee48c39419e9eaf1bf6171e4903ded4 (patch)
tree1470026d4eeb552434636ed126b5aac9edf0d237 /net
parent210bc03d7c142f2ec3438f7e11a7f2e70287c3b4 (diff)
net: twelve/source.rkt: Fix won.
Diffstat (limited to 'net')
-rw-r--r--net/ricketyspace/ror/twelve/source.rkt4
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."]))
;
;