Advertisement
Cardona1204

Untitled

Jul 31st, 2020
244
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 1.21 KB | None | 0 0
  1. (define-struct pelicula(titulo productor))
  2. (define pelicula1
  3.   (make-pelicula "buscando-a-nemo" "tarantino"))
  4. (define pelicula2
  5.   (make-pelicula "la-morgue" "dracula"))
  6. (define pelicula3
  7.   (make-pelicula "fast-and-furious" "piolin"))
  8.  
  9. (pelicula-titulo pelicula1)
  10. (pelicula-productor pelicula2)
  11. (pelicula-titulo pelicula3)
  12.  
  13.  
  14.  
  15. (define-struct amigo(nombre edad color-ojos color-pelo ))
  16. (define amigo1
  17.   (make-amigo "Jorge" 17 "verdes" "negro")
  18.   )
  19. (define amigo2
  20.   (make-amigo "Sofia" 18 "rojos" "amarillo")
  21.   )
  22. (define amigo3
  23.   (make-amigo "Camilo" 22 "azul" "cafe")
  24.   )
  25.  
  26. (amigo-nombre amigo1)
  27. (amigo-edad amigo2)
  28. (amigo-color-ojos amigo3)
  29.  
  30. (define-struct carro(marca color costo))
  31. (define carro1
  32.   (make-carro "toyota" "verde" 20000000)
  33.   )
  34. (define carro2
  35.   (make-carro "BMW" "azul" 40000000)
  36.   )
  37. (define carro3
  38.   (make-carro "chevrolet" "rojo" 10000000)
  39.   )
  40. (carro-color carro1)
  41. (carro-costo carro2)
  42. (carro-marca carro3)
  43.  
  44. (define-struct anime(nombre genero))
  45. (define anime1
  46.   (make-anime "naruto" "comedia")
  47.   )
  48. (define anime2
  49.   (make-anime "boruto" "romance")
  50.   )
  51. (define anime3
  52.   (make-anime "death-note" "miedo")
  53.   )
  54.  
  55. (anime-nombre anime1)
  56. (anime-nombre anime2)
  57. (anime-genero anime3)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement