如何在計劃中添加到嵌入式列表？

Question

我試圖在計劃中生成一個符號表，我卡在集合符號函數。 該編號對應代碼的塊級別或「範圍」。

First symbol it reads in 
((c class 0)) 
Next symbols 
(((c class 0) (a int 0) (b float 0))) 
We read a bracket and read the next variables to a new scope. 
(((a char 1) (d int 1)) ((c class 0) (a int 0) (b float 0))) 
We leave that scope and "pop the stack". 
(((c class 0) (a int 0) (b float 0))) 

我如何總是添加到範圍中的第一個列表最深的列表？

Answer 1

我懷疑你最好使用不同的表示法。其中很多會是：

(define (make-symbol-table parent alist) 
    `(SYMBOL-TABLE ,parent ,@alist)) 
(define symbol-table-parent cadr) 
(define symbol-table-alist cddr) 

(define (symbol-table-depth table) 
    (let ((parent (symbol-table-parent table))) 
    (if (not parent) 
     1 
     (+ 1 (symbol-table-depth parent)))) 

(define (symbol-table-lookup table name) 
    (cond ((assoc name (symbol-table-alist table)) => cdr) 
     (else (let ((parent (symbol-table-parent table))) 
       (and parent (symbol-table-lookup parent name))))))