PasteRack.org
Paste # 55537
2016-06-28 18:13:19

Fork as a new paste.

Paste viewed 150 times.


Embed:

#lang racket
(define (lista-busqueda A dato L)
  (if (not (null? A))
      (cond
       ((< dato (second A)) (lista-busqueda (first A) dato (append L
       ((> dato (second A)) (lista-busqueda (third A) dato (append L

=>

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