PasteRack.org
Paste # 48040
2016-08-28 08:27:44

Fork as a new paste.

Paste viewed 96 times.


Embed:

Guess 4

#lang racket
(define (start n m)
	(set! lower (min n m))
	(set! upper (max n m))
	(guess))
(define lower 1)
(define upper 100)
(define (guess)
	(quotient (+ lower upper) 2))
(guess)
(define (smaller)
	(set! upper (max lower (sub1 guess))))
	(guess))
(define (bigger)
	(set! lower (max lower (add1 guess))))
	(guess))
(start 1 100)

=>

prog:13:15: read: unexpected `)'
  context...:
   /home/pasterack/racket66/collects/syntax/module-reader.rkt:189:25: loop
   /home/pasterack/racket66/collects/syntax/module-reader.rkt:182:2: wrap-internal
   /home/pasterack/racket66/collects/racket/../syntax/module-reader.rkt:64:9: lang:read-syntax
   /home/pasterack/racket66/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:112:0: get-tokens
   /home/pasterack/racket66/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:56:0: typeset-code15
   /home/pasterack/pasterack/tmp/48040/48040code.scrbl: [running body]