;;estructuras
(define-struct producto(codigo nombre disponibilidad))
(define-struct disponibilidad(precio num-unidad))
(define-struct encontrado (nombre precio num-unidad))
;.
;;nombres: chicas super powr
;;fecha: hoy :v
;;contrato: lista (de estructuras),simbolo -> estructura
;;proposito: esta funcion busca en una lista de estructuras si hay un producto con el codigo ingresado
;;ejemplos:
(define lista1
  (cons (make-producto 'c4rn3 'costilla (make-disponibilidad 3000 7))
        (cons(make-producto 'du1c32 'bombon (make-disponibilidad 250 32))
             (cons (make-producto 'fru742 'manzana (make-disponibilidad 1500 12))
                   (cons (make-producto 'v3rdur42 'zanahoria (make-disponibilidad 500 10))empty)))))

(define (consultar lista codigo)
  (cond
    [(empty? lista)empty]
    [(equal? codigo (producto-codigo (first lista)))(make-encontrado
                                                     (producto-nombre (first lista))
                                                     (disponibilidad-precio (producto-disponibilidad (first lista)))
                                                     (disponibilidad-num-unidad (producto-disponibilidad(first lista))))]
    [else (consultar (rest lista)codigo)]))