Ejercicio 10 de Junio FLP

#lang eopl

;.

;;Autor: Carlos A Delgado
;;Fecha: 10 de Junio 2019

;;Interfaz
(define empty-env
  (lambda () '()))

(define extend-env
  (lambda (id val env)
    (list id val env)))


(define apply-env
  (lambda (val env)
    (cond
      [(null? env) (eopl:error "No está la variable")]
      [else
       (let
           (
            (id (car env))
            (val-e (cadr env))
            (env-e (caddr env))
            )
         (if (equal? val id)
             val-e
             (apply-env val env-e)
             )
         )
       ]
      )
    )
  )

;;Area del programador

(define e
  (extend-env 'd 6
              (extend-env 'y 8
                      (extend-env 'x 7
                                  (extend-env 'y 14
                                              (empty-env)
                                              )))))
;;Procedimientos

#lang eopl

;;Autor: Carlos A Delgado
;;Fecha: 10 de Junio de 2019

(define empty-env
  (lambda ()
    (lambda (search-var)
      (eopl:error "No me encontraste, busca en tu tinieble")
      )
    )
  )

(define extend-env
  (lambda (var val env-e)
    (lambda (search-var)
      (if (equal? search-var var) val
          (apply-env search-var env-e)
          )
      )
    )
  )

(define apply-env
  (lambda (search-var env)
    (env search-var)))

;;Area del programador

(define e
  (extend-env 'd 6
              (extend-env 'y 8
                      (extend-env 'x 7
                                  (extend-env 'y 14
                                              (empty-env)
                                              )))))
;;;Ejercicio
<arbol-b>   :: =(arbol-bhoja) <int>
            ::=(arbol-bnodo)<symbol> <arbol-b> <arbol-b>



(define arbolitoNavidad
      (arbol-bnodo 'x
           (arbol-bnodo 'y
                   (arbol-bhoja 2)
                   (arbol-bhoja 3)
            )x|
           (arbol-bhoja 4)
)
(sumarNodos);;Interfaz