Advertisement
PaolaD

Untitled

Aug 10th, 2020
848
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.94 KB | None | 0 0
  1. (define-struct estudiante (nombre código asignatura))
  2. (define-struct asignatura (nombre dictada nota))
  3. (define-struct nota (parcial1 parcial2 talleres))
  4.  
  5. (define estudiante1
  6.   (make-estudiante 'Emilio 201674589 (cons (make-asignatura 'Cálculo 2016 (make-nota 2.5 4.0 3.2))
  7.                                         (cons (make-asignatura 'Inglés 2016 (make-nota 2.0 3.5 5))
  8.                                               (cons (make-asignatura 'Fundamentos 2016 (make-nota 4.5 3.5 5))
  9.                                                     (cons (make-asignatura 'Ética 2016 (make-nota 1.0 4.5 3.6))
  10.                                                           (cons (make-asignatura 'ITI 2016 (make-nota 5.0 2.5 4.2))
  11.                                                                 empty)
  12.                                                           )
  13.                                                     )
  14.                                               ))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement