From 9d23e66fe8332abc7a1bbd9022f3e58e1133b3fb Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Fri, 3 Jul 2020 15:49:09 -0400 Subject: name directories like the realm repo. --- chapter13/run.rkt | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 chapter13/run.rkt (limited to 'chapter13/run.rkt') 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))) -- cgit v1.2.3