堆棧彈出不返回

Question

我想分支並學習lisp。其中一個基本要素就是實現一個簡單的堆棧。一切正常，但我的pop功能。

;Returns and removes the first element of the stack 
(defun my-pop() 
    (let (temp (car *stack*)) 
    (setq *stack* (cdr *stack*)) 
    temp)) 

這正確地刪除堆棧的「頂部」，但不返回它。此前，我有這樣的：

;Returns and removes the first element of the stack 
(defun my-pop() 
    (print (car *stack*) 
    (setq *stack* (cdr *stack*))) 

但我寧願返回頂部。

我在做什麼錯？ （我認爲這與範圍有關...）

Answer 1

與範圍無關，這是一個語法問題。 LET的語法是：

(let ((var1 val1) 
     (var2 val2) 
     ...) 
    body) 

另外，(varN valN)有時簡稱爲只是varN，這相當於(varN nil)。所以你寫的是等價於：

(let ((temp nil)  ; bind TEMP to NIL 
     (car *stack*)) ; bind CAR to value of *STACK* 
    (setq *stack* (cdr *stack*)) 
    temp) 

您需要在您的LET-綁定一個額外的括號：

(let ((temp (car *stack*))) 
    (setq *stack* (cdr *stack*)) 
    temp) 

您還可以使用內置的操作PROG1：

(prog1 
    (car *stack*) 
    (setq *stack* (cdr *stack)))