PasteRack.org
Paste # 30522
2019-01-12 05:25:40

Forked from paste # 1054.

Fork as a new paste.

Paste viewed 241 times.


Embed:

Realm of racket chap 2

#lang racket


(define lower 1)
(define upper 100)
( define (guess)
  (quotient (+ lower upper) 2 ))

(define (smaller)
  (set! upper (max lower (sub1 (guess))))
  
  (guess)

=>

prog:9:0: read: expected a `)' to close `('
  context...:
   /home/pasterack/racket68/collects/syntax/module-reader.rkt:186:17: body
   /home/pasterack/racket68/collects/syntax/module-reader.rkt:183:2: wrap-internal
   /home/pasterack/racket68/collects/racket/../syntax/module-reader.rkt:65:9: lang:read-syntax
   /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:112:0: get-tokens
   /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:56:0: typeset-code15
   /home/pasterack/pasterack/tmp/30522/30522code.scrbl: [running body]
   loop
   ...cket/cmdline.rkt:179:51
   /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/run.rkt: [running body]