diff options
Diffstat (limited to 'chapter13/run.rkt')
-rw-r--r-- | chapter13/run.rkt | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/chapter13/run.rkt b/chapter13/run.rkt new file mode 100644 index 0000000..b8726ac --- /dev/null +++ b/chapter13/run.rkt @@ -0,0 +1,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))) |