From 0f072be231d0bd875d1c87ff127834e60979263a Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Fri, 3 Jul 2020 15:47:02 -0400 Subject: net/ricketyspace/ror -> ./ --- thirteen/run.rkt | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 thirteen/run.rkt (limited to 'thirteen/run.rkt') diff --git a/thirteen/run.rkt b/thirteen/run.rkt new file mode 100644 index 0000000..b8726ac --- /dev/null +++ b/thirteen/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