1

我正在尝试为方案编写解释器。到目前为止，我实现了定义、if 和一些算术表达式。这是我的解释器的语法：

<s6> -> <expr>
        | <define>

<expr> -> NUMBER
          | IDENT
          | <if>
          | <let>

<define> -> ( define IDENT <expr> )

<if> -> ( if <expr> <expr> <expr> )

<let> -> ( let ( <var_binding_list> ) <expr> )

<var_binding_list> -> ( IDENT <expr> ) <var_binding_list>
                      | ( IDENT <expr> )

这是我到目前为止编写的代码：

(define get-operator (lambda (op-symbol)
(cond
    ((equal? op-symbol '+) +)
    ((equal? op-symbol '-) -)
    ((equal? op-symbol '*) *)
    ((equal? op-symbol '/) /)
    (else (error "s6-interpret: operator not implemented -->" op-symbol)))))

(define let-stmt? (lambda (e)
(and (list? e) (equal? (car e) 'let) (= (length e) 3))))

(define if-stmt? (lambda (e)
(and (list? e) (equal? (car e) 'if) (= (length e) 4))))

(define define-stmt? (lambda (e)
(and (list? e) (equal? (car e) 'define) (symbol? (cadr e)) (= (length e) 3))))


(define get-value (lambda (var env)
(cond
    ((null? env) (error "s6-interpret: unbound variable -->" var))
    ((equal? (caar env) var) (cdar env))
    (else (get-value var (cdr env))))))


(define extend-env (lambda (var val old-env)
(cons (cons var val) old-env)))


(define repl (lambda (env)
(let* (
    (dummy1 (display "cs305> "))
    (expr (read))
    (new-env (if (define-stmt? expr)
                (extend-env (cadr expr) (s6-interpret (caddr expr) env) env)env))
    (val (if (define-stmt? expr)
                (cadr expr)
                (s6-interpret expr env)))
    (dummy2 (display "cs305: "))
    (dummy3 (display val))
    (dummy4 (newline))
    (dummy4 (newline)))
(repl new-env))))


(define s6-interpret (lambda (e env)
(cond
    ((number? e) e)
    ((symbol? e) (get-value e env))
    ((not (list? e)) (error "s6-interpret: cannot evaluate -->" e))
    ((if-stmt? e) (if (eq? (cadr e) 0) ( s6-interpret (cadddr e) env) ( s6-interpret(caddr e) env)))
    ((let-stmt? e) (apply let (map s6-interpret (cdr e))))
    (else
        (let ((operands (map s6-interpret (cdr e) (make-list (length (cdr e)) env)))
                (operator (get-operator (car e))))
            (apply operator operands))))))


(define cs305-interpreter (lambda () (repl '())))

除了“让”之外，我写的所有东西都可以正常工作。让stmt？程序也可以按我的意愿工作，但是 s6-interpret 中的代码部分 ((let-stmt?e) (apply let (map s6-interpret (cdr e)))) 不能正常工作，它给了我一个错误说即“句法关键字不得用作表达式”。任何人都可以帮助我实现语法中给出的“let”语句的解释器吗？

谢谢

4

2 回答 2

4

你不能apply特殊形式let。错误很明显：它不是过程，而是语法（宏）。一种可能的解决方案是在评估器级别实现句法转换，一旦let检测到 a ，将其转换为lambda表达式并评估它。

看一下SICP中的练习 4.6 ，寻找主题“派生表达式”。这里的关键思想是，如果您找到这样的表达式：

(let ((x 1)
      (y 2))
  (+ x y))

您必须将其转换为可以轻松评估的表达式：

((lambda (x y)
   (+ x y))
 1 2)
于 2013-05-23T20:09:17.853 回答
1

它很容易实现let，无需担心lambda，let只需扩展环境并在新扩展的环境中评估身体。如此：

...
((let-stmt? e)
 (let ((names (map car  (cadr e)))
       (inits (map cadr (cadr e))))
   ;; Evaluate inits in env
   (let ((vals (map (lambda (init) (s6-interpret init env)) inits)))
     ;; Extend env with names+vals
     (let ((new-env (append (map cons names vals) env)))
       ;; Eval body in new env
       (s6-interpret (caddr e) new-env)))))   ; assumes 'body' is one form...
...

您还可以避免担心使用这种方法的一般函数调用。

于 2013-05-23T20:26:58.167 回答