Estoy usando el Dr. raqueta, el lenguaje bastante grandes, y yo estoy tratando de hacer un simple árbol binario de búsqueda en? método, que devolverá si un valor está en el árbol de búsqueda binaria o no. Tiene que ser general, de aceptar cualquier tipo de árbol de búsqueda (si contiene cadenas, enteros, etc.), pero estoy corriendo en este mensaje de error que me está volviendo loco. Cualquier ayuda se agradece, aquí está el código:
EDITADO :: Funciona ahora, pero no con cualquier cosa, pero los números (o al menos no funciona con cuerdas) .. Nuevo número:
(define (bstsearch tree value)
(cond
((null? tree) #f)
((< value (car tree))
(bstsearch (cadr tree) value))
((> value (car tree))
(bstsearch (caddr tree) value))
((= value (car tree))
#t)
))
El error que estoy recibiendo dice:
<: expects type <real number> as 1st argument, given: horse; other arguments were: horse
Cuando usas:
(bstsearch '(horse (cow () (dog () ())) (zebra (yak ()()) ())) horse)
como entrada.
