blob: 176c4297af3f972150be1bf9bd304ad6182fbf31 (
plain) (
tree)
|
|
#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)
|