Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;Estructuras en general
- ;;Para definir estructuras usamos define-struct no confundir con el define
- (define-struct datos-persona
- (nombre email telefono))
- ;;Crea la función make-datos-persona: Esta función sirve para crear una nueva estructura del tipo que usted ha indicado
- ;;Cuando creas una estructura con un nombre cualquiera, crear la función make-<nombre estructura>
- (define datosPersonaA
- (make-datos-persona "Ana" "ana@gmail.com" 123456))
- ;;Funciones que se van a crear <nombre estructura>-campo sirve para extraer la información
- ;;Ene el caso datos-persona se van a crear las siguientes funciones
- ;;datos-persona-nombre
- ;;datos-persona-email
- ;;datos-persona-telefono
- (datos-persona-nombre datosPersonaA)
- (datos-persona-email datosPersonaA)
- (datos-persona-telefono datosPersonaA)
- ;;Ultima función <nombre-estructura>?
- (datos-persona? 4)
- (datos-persona? datosPersonaA)
- (datos-persona? (make-datos-persona "Juan" "juan@gmail.com" 23132))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement