Ejercicio 25 de Junio (Profesor)

; Profesor puede ser 3 tipos: Titular: nombre
; y salario. Asistente: nombre, horas, salario,
; Auxiliar: nombre, horas, supervisor, salario
;

(define-struct profesor-titular (nombre sal))
(define-struct profesor-asistente
                (nombre hor sal))
(define-struct profesor-auxiliar (nombre
                  horas sup sal))

;;Autor: Carlos A DElgado
;;Fecha: 25 de Junio de 2019
;;Contrato: Calcular-salario: profesor -> numero

(define (calcular-salario pro)
     (cond
       [(profesor-titular? pro)
                (profesor-titular-sal pro)]
       [(profesor-asistente? pro)
            (*   (profesor-asistente-horas pro)
                 (profesor-asistente-sal pro)
            )]
       [(profesor-auxiliar? pro)
        (*   (profesor-auxiliar-horas pro)
                 (profesor-auxiliar-sal pro)
            )]
       [else (error "Debe ingresarse un
                       profesor")]
       )
)