Advertisement
cardel

Estructuras

Jan 20th, 2021
3,573
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Racket 0.96 KB | None | 0 0
  1. ;;Estructuras en general
  2. ;;Para definir estructuras usamos define-struct no confundir con el define
  3. (define-struct datos-persona
  4.   (nombre email telefono))
  5.  
  6. ;;Crea la función make-datos-persona: Esta función sirve para crear una nueva estructura del tipo que usted ha indicado
  7. ;;Cuando creas una estructura con un nombre cualquiera, crear la función make-<nombre estructura>
  8. (define datosPersonaA
  9.   (make-datos-persona "Ana" "ana@gmail.com" 123456))
  10.  
  11. ;;Funciones que se van a crear <nombre estructura>-campo sirve para extraer la información
  12. ;;Ene el caso datos-persona se van a crear las siguientes funciones
  13. ;;datos-persona-nombre
  14. ;;datos-persona-email
  15. ;;datos-persona-telefono
  16.  
  17. (datos-persona-nombre datosPersonaA)
  18. (datos-persona-email datosPersonaA)
  19. (datos-persona-telefono datosPersonaA)
  20.  
  21. ;;Ultima función <nombre-estructura>?
  22.  
  23. (datos-persona? 4)
  24. (datos-persona? datosPersonaA)
  25. (datos-persona? (make-datos-persona "Juan" "juan@gmail.com" 23132))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement