堆栈弹出不返回

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)))