Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;Autor: Carlos A Delgado
- ;;Fecha: 22 de Febrero de 2021
- ;;Contrato: buscar-numero: numero, lista de numero -> booleano
- ;;Propósito: Indicar si un número está en una lista
- ;;Ejemplos
- ;;listaA = (cons 1 (cons 2 (cons 3 (cons 4 (cons 5 (cons 6 empty))))))
- ;;elemento = 4 retornar #true
- ;;elemento = -5 retorna #false
- (define (buscar-numero num lst)
- (cond
- [(empty? lst) #false]
- [(= (first lst) num) #true]
- [else (buscar-numero num (rest lst))]
- ))
- (define listaA (cons 1 (cons 2 (cons 3 (cons 4 (cons 5 (cons 6 empty)))))))
- (check-expect (buscar-numero 4 listaA) #t)
- (check-expect (buscar-numero -5 listaA) #f)
- ;;buscar-persona-nombre
- (define-struct persona (nombre edad cargo))
- (define listaPersonas
- (cons (make-persona "Juan" 18 "Gerente")
- (cons (make-persona "Diana" 22 "Administradora")
- (cons (make-persona "Pedro" 35 "Oficial")
- (cons (make-persona "María" 20 "Operadora")
- (cons (make-persona "Carlos" 12 "Vendedor") empty))))))
- ;;Autor: Carlos A Delgado
- ;;Fecha: 22 de Feb de 2021
- ;;Contrato: buscar-persona-nombre: lista de personas, string -> booleano
- ;;Propósito: Esta función indica si en una lista de personas, hay al menos una persona con un nombre dado
- ;;Ejemplo
- ;;listaPersonas
- ;;nombre= Pedro #true
- ;;nomber= Abelardo #falso
- (define (buscar-persona-nombre lst nom)
- (cond
- [(empty? lst) #f]
- [(string=? (persona-nombre (first lst)) nom) #t]
- [else (buscar-persona-nombre (rest lst) nom)]
- )
- )
- (check-expect (buscar-persona-nombre listaPersonas "Pedro") #true)
- (check-expect (buscar-persona-nombre listaPersonas "Abelardo") #false)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement