Advertisement
cardel

FDP ejercio

Jan 20th, 2021
3,331
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Racket 1.65 KB | None | 0 0
  1. (define-struct movie (titulo productor))
  2.  
  3. ;.
  4.  
  5.  
  6. ;;Autor: Adrián Jaramillo, 1866195
  7. ;;Contrato:: crear-pelicula: simbolo, simbolo -> movie
  8. ;;Propósito: Esta función recibe dos simbolos y nos retorna una estructura tipo movie con la información enviada
  9. ;;EJemplos
  10. ;;titulo = 'Jumanji Productor= 'Tarantino (make-movie 'Jumanji 'Tarantino)
  11. ;;titulo = 4 Producto = 'TNT erorr
  12. (define (crear-pelicula titulo productor)
  13.  (cond
  14.    [(and (symbol? titulo) (symbol? productor)) (make-movie titulo productor)]
  15.    [else (error "los datos ingresados no son simbolos")]))
  16.  
  17.  
  18.  
  19. (check-expect (crear-pelicula 'Jumanji 'Tarantino) (make-movie 'Jumanji 'Tarantino))
  20.  
  21.  ;.
  22.  
  23.  
  24. (define-struct boyfriend (name hair eyes phone))
  25.  
  26. (define boyfriend1 (make-boyfriend "Marcelo" "Azules" "Rosados" 231213))
  27.  
  28. ;;Autor: Adrián Jaramillo, 1866195
  29. ;;Contrato: cambiar-nombre-bf: boyfriend, simbolo -> boyfriend
  30. ;;Propósito: Esta función permite cambiar el campo nombre de una estructura tipo boyfriend
  31. ;;Ejemplos
  32. ;;novio = boyfriend1 sim = 'Adrian Retorna (make-boyfriend 'Adrian "Azules" "Rosados" 231213)
  33. ;;novio = 'camilo 'sim = 'Juan error
  34. ;;novio = boyfriend1 sim = 42
  35. (define (cambiar-nombre-bf novio sim)
  36.   (cond
  37.     [(and (symbol? sim) (boyfriend? novio))
  38.      (make-boyfriend
  39.       sim
  40.       (boyfriend-hair novio)
  41.       (boyfriend-eyes novio)
  42.       (boyfriend-phone novio)
  43.       )
  44.      ]
  45.     [else (error "el dato ingresado no es un simbolo")]))
  46.  
  47.  
  48. (check-expect (cambiar-nombre-bf boyfriend1 'Adrian) (make-boyfriend 'Adrian "Azules" "Rosados" 231213))
  49. (check-error (cambiar-nombre-bf 'camilo 'Juan))
  50. (check-error (cambiar-nombre-bf boyfriend1 42))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement