Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define-struct trabajador (cedula nombre edad zona))
- (define listaTrabajadores
- (cons (make-trabajador "456" "Mario" "23" "Secretario_Administrativo")
- (cons (make-trabajador "452" "Germán" "56" "Administrativo")
- (cons (make-trabajador "326" "Fernanda" "42" "Ejecutiva")
- (cons (make-trabajador "296" "Andrea" "20" "Programadora")
- (cons (make-trabajador "103" "Marilan" "25" "Secretario_Administrativo") empty)
- )
- )
- )
- ))
- (define (Trabajadores Lista cedula)
- (cond
- [(not (list? Lista)) "Ingresa una lista"]
- [(empty? Lista) "La persona con esta cédula, no es un trabajador"]
- [(equal? cedula (trabajador-cedula (first Lista))) (trabajador-zona (first Lista))]
- [else (Trabajadores (rest Lista) cedula)]
- ))
- (Trabajadores listaTrabajadores "326")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement