Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define-struct movie (titulo productor))
- ;.
- ;;Autor: Adrián Jaramillo, 1866195
- ;;Contrato:: crear-pelicula: simbolo, simbolo -> movie
- ;;Propósito: Esta función recibe dos simbolos y nos retorna una estructura tipo movie con la información enviada
- ;;EJemplos
- ;;titulo = 'Jumanji Productor= 'Tarantino (make-movie 'Jumanji 'Tarantino)
- ;;titulo = 4 Producto = 'TNT erorr
- (define (crear-pelicula titulo productor)
- (cond
- [(and (symbol? titulo) (symbol? productor)) (make-movie titulo productor)]
- [else (error "los datos ingresados no son simbolos")]))
- (check-expect (crear-pelicula 'Jumanji 'Tarantino) (make-movie 'Jumanji 'Tarantino))
- ;.
- (define-struct boyfriend (name hair eyes phone))
- (define boyfriend1 (make-boyfriend "Marcelo" "Azules" "Rosados" 231213))
- ;;Autor: Adrián Jaramillo, 1866195
- ;;Contrato: cambiar-nombre-bf: boyfriend, simbolo -> boyfriend
- ;;Propósito: Esta función permite cambiar el campo nombre de una estructura tipo boyfriend
- ;;Ejemplos
- ;;novio = boyfriend1 sim = 'Adrian Retorna (make-boyfriend 'Adrian "Azules" "Rosados" 231213)
- ;;novio = 'camilo 'sim = 'Juan error
- ;;novio = boyfriend1 sim = 42
- (define (cambiar-nombre-bf novio sim)
- (cond
- [(and (symbol? sim) (boyfriend? novio))
- (make-boyfriend
- sim
- (boyfriend-hair novio)
- (boyfriend-eyes novio)
- (boyfriend-phone novio)
- )
- ]
- [else (error "el dato ingresado no es un simbolo")]))
- (check-expect (cambiar-nombre-bf boyfriend1 'Adrian) (make-boyfriend 'Adrian "Azules" "Rosados" 231213))
- (check-error (cambiar-nombre-bf 'camilo 'Juan))
- (check-error (cambiar-nombre-bf boyfriend1 42))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement