FDP ejercio

(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))