FDP Recursión II

;;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)