martes, 27 de junio de 2017

DrRacket: Ir a clases dependiendo del día usando define-struct

En esta ocasión les traemos el siguiente ejercicio en el idioma DrRacket:
Ir a clases dependiendo del día usando define-struct


Requerimientos: El programa debe pedir el día actual y true o false si hay o no bloqueo y dependiendo de ello si el día actual es igual a miércoles o sábado y no hay bloqueo el usuario si ira a clases de cálculo,  lo contrario no hay clase de cálculo.


Toma de pantalla del código:



Código:


 ;programa que me permita saber si vamos a Clase de Calculo, 
;Si hoy es miércoles o sábado y no hay bloqueo 

(define-struct Clase (dia bloqueo))
(define-struct Dia (nombre))


(define Dia1 (make-Dia 'Domingo ))
(define Dia2 (make-Dia 'Lunes ))
(define Dia3 (make-Dia 'Martes ))
(define Dia4 (make-Dia 'Miercoles ))
(define Dia5 (make-Dia 'Jueves ))
(define Dia6 (make-Dia 'Viernes ))
(define Dia7 (make-Dia 'Sabado ))

(define (IrClaseCalculo dias bloqueo)
  (cond 
    [ ( and (boolean=? bloqueo false) 
            (or (symbol=? dias (Dia-nombre Dia4) )  (symbol=? dias (Dia-nombre Dia7))))
      "hay clase hoy"
    ]
[else "Hoy no hay clase de Calculo"])
)

;prueba
(IrClaseCalculo 'Sabado false)
(IrClaseCalculo 'Viernes true)
(IrClaseCalculo 'Viernes false)
(IrClaseCalculo 'Sabado true)

0 comentarios:

Publicar un comentario

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Affiliate Network Reviews