blob: 176c4297af3f972150be1bf9bd304ad6182fbf31 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#lang racket
(provide
UPPER
LOWER
PLAYER
GUESSER
client-msg
client-msg?
client-msg-type
client-msg-clue
client-msg-guess
client-msg-action
client-msg-done
server-msg
server-msg?
server-msg-type
server-msg-action
server-msg-data)
(define UPPER 100)
(define LOWER 0)
(define PLAYER 0)
(define GUESSER 1)
(struct client-msg (type clue guess action done) #:prefab)
(struct server-msg (type action data) #:prefab)
|
