Advertisement
PaolaD

Untitled

Aug 13th, 2020
632
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.90 KB | None | 0 0
  1. (define-struct trabajador (cedula nombre edad zona))
  2. (define listaTrabajadores
  3.   (cons (make-trabajador "456" "Mario" "23" "Secretario_Administrativo")
  4.         (cons (make-trabajador "452" "Germán" "56" "Administrativo")
  5.               (cons (make-trabajador "326" "Fernanda" "42" "Ejecutiva")
  6.                     (cons (make-trabajador "296" "Andrea" "20" "Programadora")
  7.                           (cons (make-trabajador "103" "Marilan" "25" "Secretario_Administrativo") empty)
  8.                           )
  9.                     )
  10.               )
  11.         ))
  12.  
  13. (define (Trabajadores Lista cedula)
  14.   (cond
  15.     [(not (list? Lista)) "Ingresa una lista"]
  16.     [(empty? Lista) "La persona con esta cédula, no es un trabajador"]
  17.     [(equal? cedula (trabajador-cedula (first Lista))) (trabajador-zona (first Lista))]
  18.     [else (Trabajadores (rest Lista) cedula)]
  19.     ))
  20. (Trabajadores listaTrabajadores "326")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement