casi casi

(define-struct arbol (valor izq der))
(define arbol3 (make-arbol 5
                           (make-arbol 10
                                       (make-arbol 2
                                                   (make-arbol 4
                                                               empty
                                                               empty)
                                                   (make-arbol 8
                                                               empty
                                                               empty))
                                       (make-arbol 6
                                                   (make-arbol 3
                                                               empty
                                                               empty)
                                                   empty))
                           (make-arbol 30
                                       (make-arbol 15
                                                   empty
                                                   empty)
                                       (make-arbol 25
                                                   (make-arbol 1
                                                               empty
                                                               empty)
                                                   (make-arbol 9
                                                               empty
                                                               empty)))

                                                   )
  )


(define arbol1 (make-arbol 20
                           (make-arbol 10
                                       (make-arbol 5 empty
                                                   (make-arbol 7 empty empty)
                                                   )
                                       empty)
                           (make-arbol 24
                                       (make-arbol 22 empty empty)
                                       (make-arbol 30 empty empty))))

(define arbol2 (make-arbol 20
                  (make-arbol 10
                     (make-arbol 5 empty
                         (make-arbol 7 empty empty)
                                                   )
                     empty)
                  (make-arbol 24
                      (make-arbol 22 empty empty)
                      (make-arbol 30 empty empty))))
(define arbol5
  (make-arbol 9
              (make-arbol 8
                          (make-arbol 7
                                      (make-arbol 12
                                                  empty
                                                  empty)
                                      (make-arbol 13
                                                  empty
                                                  empty))
                          (make-arbol 11
                                      (make-arbol 5
                                                  empty
                                                  empty)
                                      (make-arbol 6
                                                  empty
                                                  empty))
                          )

              (make-arbol 10
                          (make-arbol 11
                                      (make-arbol 15
                                                  empty
                                                  empty)
                                      (make-arbol 19
                                                  empty
                                                  empty))
                          (make-arbol 19
                                      (make-arbol 15
                                                  empty
                                                  empty)
                                      (make-arbol 0
                                                  empty
                                                  empty))
                          )
              )
  )


;Autores: Juan Felipe Arango Guzman, 202060066.  Diego Fernando Llanos Mondragón, 202060029. Juan Sebastian Grajales Samudio, 202059897.
;Fecha:
;Contrato: iguales: arbol, arbol -> booleano
;Proposito: identificar si dos arboles tienen los mismos campos
;Definiciones:
(define (iguales arb1 arb2)
    (cond
       [(and (empty? arb1) (empty? arb2)) #T]
       [(or (empty? arb1) (empty? arb2)) #F]
       [(equal? (first arb1)  (first arb2)) (iguales (rest arb1) (rest arb2))]
       [else #F]
   )
)
;Contrato: preorden: arbol-> lista
(define (preorden arbol)
  (cond
    [(empty? arbol) empty]
    [else (append
           (cons (arbol-valor arbol) empty)
           (preorden (arbol-izq arbol))
           (preorden (arbol-der arbol))
           )]))