我對計劃的表示有好奇心

Question

我想爲使用BNF符號定義的下面的語言做一個函數。

expr：='['op expr expr']'|號碼

op：='+'| ' - '| ''| 「/」 *

例如，假設函數名是本功能，然後

(funct '(+ 1 3)) => 4 
(funct '(+ (- 3 1) 4) => 6 

請給我一個提示或示例代碼

Answer 1

你是否在想這樣的事情？

(define (ev exp) 
    (cond 
    ((number? exp)  exp) 
    ((not (list? exp)) (error "not a list")) 
    ((< (length exp) 2) (error "list too short")) 
    (else 
    (apply (case (car exp) 
       ((+) +) 
       ((-) -) 
       ((*) *) 
       ((/) /)) 
      (map ev (cdr exp)))))) 

然後

> (ev '(+ 1 3)) 
4 
> (ev '(+ (- 3 1) 4)) 
6 

Answer 2

在拍這個作品開箱的：

[+ 2 3] 
=> 5 

檢查你的口譯員，你可能不需要做爲此工作。