PROSAGA码农传奇-lisp-Common Lisp - 从数字列表构建更多，更小或等于给定数字的列表的函数

<div class =“post-text”itemprop =“text”>
  
    首先，您发布的功能与您声称的方式不同。
第一次调用返回
     <code>
 (12 12 12 . 0)
 </code>
     （因为你回来了
     <code>
 0
 </code>
     代替
     <code>
 nil
 </code>
     在第1
    <a href="http://clhs.lisp.se/Body/m_cond.htm" rel="nofollow noreferrer">
       <code>
 cond
 </code>
    </A>
     条款）
第二次调用引发异常
  
  <BLOCKQUOTE>
    
      COND：变量CONS没有值
    
  </BLOCKQUOTE>
  
    因为你有
     <code>
 cond
 </code>
     语法错了。
  
  
    第二，问题摘要，问题文本和尝试
实施，指定
    的
      
        三
      
    </强>
     不同的问题。
  
  
    这是对你的代码的修复（我替换了

<a href="http://clhs.lisp.se/Body/f_car_c.htm" rel="nofollow noreferrer">
       <code>
 car
 </code>
       和
       <code>
 cdr
 </code>
    </A>
     同

<a href="http://clhs.lisp.se/Body/f_firstc.htm" rel="nofollow noreferrer">
       <code>
 first
 </code>
    </A>
     和

<a href="http://clhs.lisp.se/Body/f_rest.htm" rel="nofollow noreferrer">
       <code>
 rest
 </code>
    </A>
     出于教学原因）：
  
   <pre>
 <code>
 (defun inf (n l)
 (cond
 ((not l) ()) ; return empty list
 ((>= n (first l))
 (cons n (inf n (rest l))))
 (t
 (cons (first l) (inf n (rest l))))))

</code>
 </pre>
  
    事实上，如果这是你想要的，你可以实现更多
惯用方式：
  
   <pre>
 <code>
 (defun inf-1 (n l)
 (and l (cons (max n (first l)) (inf-1 n (rest l)))))

</code>
 </pre>
  
    甚至
  
   <pre>
 <code>
 (defun inf-2 (n l)
 (mapcar (lambda (x) (max n x)) l))

</code>
 </pre>
  
    如果您确实希望数字列表小于给定的数字，那么您
可以使用
    <a href="http://clhs.lisp.se/Body/f_rm_rm.htm" rel="nofollow noreferrer">
       <code>
 remove
 </code>
    </A>
    ：
  
   <pre>
 <code>
 (remove 12 '(12 5 3 100) :test #'<=)
==> (5 3)

</code>
 </pre>
</DIV>