(define-struct arbol (raiz hizq hd))

;Arbol
(define arbol1 (make-arbol 20

                           (make-arbol 10 empty



                                       (make-arbol 5 empty

                                                   (make-arbol 7 empty empty)))

                           (make-arbol 24

                                       (make-arbol 22 empty empty)

                                       (make-arbol 30 empty empty)

                                       )
                           )
  )


;Arbol 2
(define arbol2 (make-arbol 21

                           (make-arbol 12 empty



                                       (make-arbol 8 empty

                                                   (make-arbol 7 empty empty)))

                           (make-arbol 24

                                       (make-arbol 32 empty empty)

                                       (make-arbol 30 empty empty)

                                       )
                           )
  )

;Recorrido Preorden
(define (recorrido-preorden arbol)

  (cond

    [(null? arbol)'()]


    [else

     (append

      (list(arbol-raiz arbol))
      (recorrido-preorden (arbol-hizq arbol))
      (recorrido-preorden (arbol-hd arbol))

      )
     ]
    )
  )



(recorrido-preorden arbol1)



;Recorrido Inorden


(define (recorrido-inorden arbol)


  (cond


    [(null? arbol)'()]

    [else

     (append


      (recorrido-inorden (arbol-hizq arbol))
      (list(arbol-raiz arbol))
      (recorrido-inorden (arbol-hd arbol))
      )
     ]
    )
  )


(recorrido-inorden arbol2)



;Recorrido Posorden

(define (recorrido-posorden arbol)


  (cond


    [(null? arbol)'()]

    [else

     (append


        (recorrido-posorden(arbol-hizq arbol))
        (recorrido-posorden(arbol-hd arbol))
        (list(arbol-raiz arbol))

        )
     ]
    )
  )

(recorrido-posorden arbol1)