PasteRack.org
Paste # 92124
2016-08-28 07:54:00

Fork as a new paste.

Paste viewed 86 times.


Embed:

Guess2

#lang racket
(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))

=>

prog:9: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/92124/92124code.scrbl: [running body]