summaryrefslogblamecommitdiffstats
path: root/chapter13/run.rkt
blob: b8726ac35ceb8fdc7b6d6c38133539c17fe5e95a (plain) (tree) 
48fb1ff













1
2
3
4
5
6
7
8
9
10
11
12
13













                                                                  
#lang racket

(require 2htdp/universe "client.rkt" "server.rkt")

(define (run)
  (launch-many-worlds (launch-guess-client "Adam" LOCALHOST)
                      (launch-guess-server)
                      (launch-guess-client "Eve" LOCALHOST)))

(define (bad)
  (launch-many-worlds (launch-guess-client "Adam" LOCALHOST)
                      (launch-guess-server)
                      (launch-guess-client "Beatrice" LOCALHOST)))
siddharth ravikumar snafu