Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define-struct pelicula(titulo productor))
- (define pelicula1
- (make-pelicula "buscando-a-nemo" "tarantino"))
- (define pelicula2
- (make-pelicula "la-morgue" "dracula"))
- (define pelicula3
- (make-pelicula "fast-and-furious" "piolin"))
- (pelicula-titulo pelicula1)
- (pelicula-productor pelicula2)
- (pelicula-titulo pelicula3)
- (define-struct amigo(nombre edad color-ojos color-pelo ))
- (define amigo1
- (make-amigo "Jorge" 17 "verdes" "negro")
- )
- (define amigo2
- (make-amigo "Sofia" 18 "rojos" "amarillo")
- )
- (define amigo3
- (make-amigo "Camilo" 22 "azul" "cafe")
- )
- (amigo-nombre amigo1)
- (amigo-edad amigo2)
- (amigo-color-ojos amigo3)
- (define-struct carro(marca color costo))
- (define carro1
- (make-carro "toyota" "verde" 20000000)
- )
- (define carro2
- (make-carro "BMW" "azul" 40000000)
- )
- (define carro3
- (make-carro "chevrolet" "rojo" 10000000)
- )
- (carro-color carro1)
- (carro-costo carro2)
- (carro-marca carro3)
- (define-struct anime(nombre genero))
- (define anime1
- (make-anime "naruto" "comedia")
- )
- (define anime2
- (make-anime "boruto" "romance")
- )
- (define anime3
- (make-anime "death-note" "miedo")
- )
- (anime-nombre anime1)
- (anime-nombre anime2)
- (anime-genero anime3)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement