Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;Autor: Carlos A Delgado
- ;;Fecha: 22 de Feb de 2021
- ;;Contrato: buscar-simbolo: lista de símbolos, simbolo -> booleano
- ;;Propósito: ilustrar la recursión en listas
- ;;Ejemplo
- ;;lista = (cons 'a (cons 'b (cons 'c (cons 'd (cons 'e empty)))))
- ;;simbolo = 'd --> True
- ;;simbolo = 'j --> False
- (define (buscar-simbolo lst sim)
- (cond
- [(empty? lst) #f] ;;Condición de parada siempre que se llegue a empty
- [(symbol=? (first lst) sim) #t] ;;Pregunta con el primer elemento
- [else (buscar-simbolo (rest lst) sim)] ;;Llamado recursivo
- ))
- (define listaA (cons 'a (cons 'b (cons 'c (cons 'd (cons 'e empty))))))
- (check-expect (buscar-simbolo listaA 'd) #t)
- (check-expect (buscar-simbolo listaA 'j) #f)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement