PROSAGA码农传奇-lisp-Lisp：如何使用递归来定义给定非负整数N的函数，生成从1到包括N的所有整数的列表？

<div class =“post-text”itemprop =“text”>
  
    的
      IF通常具有通用语法，但也有例外
    </强>
  
  
    通常在Lisps中使用Common Lisp
     <code>
 if
 </code>
     运算符允许以下语法：
  
   <pre>
 <code>
 IF test-form then-form [else-form]

</code>
 </pre>
  
    这意味着在Lisp中通常为零或一
    
      其他形式
    
     被允许。一个例子是
     <code>
 if
 </code>
     在Common Lisp中。
  
  
    在Emacs Lisp中
    
      否则，形式
    
     被允许。 Emacs Lisp具有以下语法：
  
   <pre>
 <code>
 IF test-form then-form else-form*

</code>
 </pre>
  
    这意味着在Emacs中Lisp为零或更多
    
      否则，形式
    
     被允许。
  
  
    的
      从而
    </强>
    ：重要的是要提到你实际使用的是哪种语言和方言。
  
  
    的
      你的代码
    </强>
  
  
    a）假设您使用Common Lisp
    
      如果
    
     句法。
  
  
    你的代码：
  
   <pre>
 <code>
 (defun numbers (N) 
 (if (<= N 0)
 nil
 (cons N nil)
 (numbers (- N 1)))

</code>
 </pre>
  
    您的代码存在问题，即有多个else子句。您需要编写一个具有单个else子句的版本。
  
  
    b）假设您使用Emacs Lisp
    
      如果
    
     具有多个else表单的语法。
  
  
    你的代码：
  
   <pre>
 <code>
 (defun numbers (N) 
 (if (<= N 0)
 nil
 (cons N nil)
 (numbers (- N 1)))

</code>
 </pre>
  
    在这里
     <code>
 (cons N nil)
 </code>
     表格是允许的，但没有效果。它的返回值没有使用，也没有副作用。你可以删除它，它没有任何区别。再说一遍：您需要如何将其效果与表单相结合
     <code>
 (numbers (- N 1))
 </code>
    。
  
  
    的
      语法错误：缺少右括号
    </强>
  
  
    您的代码中还有另一个问题。 s表达式不完整 - ＆gt;缺少右括号：
  
   <pre>
 <code>
 (defun numbers (N) 
 (if (<= N 0)
 nil
 (cons N nil)
 (numbers (- N 1)))

</code>
 </pre>
  
    如您所见，最后缺少一个右括号。
  
  
    因此，Lisp无法读取您的代码。
  
  
    通常有两种方法可以避免这个问题：
  
  <UL>
    <LI>
      计算括号并相应地设置它们
    </LI>
    <LI>
      使用编辑器计算括号
    </LI>
  </UL>
  
    大多数人更喜欢后者。
  
</DIV>