PasteRack.org | ||
Paste # 48040 | ||
2016-08-28 08:27:44 | ||
Fork as a new paste. | ||
Paste viewed 96 times. | ||
Tweet | ||
Embed: | ||
#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]