Advertisement
cardel

FDP Recursión II

Feb 22nd, 2021
3,489
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Racket 0.71 KB | None | 0 0
  1. ;;Autor: Carlos A Delgado
  2. ;;Fecha: 22 de Feb de 2021
  3. ;;Contrato: buscar-simbolo: lista de símbolos, simbolo -> booleano
  4. ;;Propósito: ilustrar la recursión en listas
  5. ;;Ejemplo
  6. ;;lista = (cons 'a (cons 'b (cons 'c (cons 'd (cons 'e empty)))))
  7. ;;simbolo = 'd  --> True
  8. ;;simbolo = 'j  --> False
  9. (define (buscar-simbolo lst sim)
  10.   (cond
  11.     [(empty? lst) #f]  ;;Condición de parada siempre que se llegue a empty
  12.     [(symbol=? (first lst) sim) #t] ;;Pregunta con el primer elemento
  13.     [else (buscar-simbolo (rest lst) sim)] ;;Llamado recursivo
  14.     ))
  15.  
  16. (define listaA (cons 'a (cons 'b (cons 'c (cons 'd (cons 'e empty))))))
  17. (check-expect (buscar-simbolo listaA 'd) #t)
  18. (check-expect (buscar-simbolo listaA 'j) #f)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement