recursion - 以下递归函数的非递归函数是什么？

Question

(defun filter-numbers-rec (inlist)
  "This function filters out non-numbers from its input list and returns
the result, a list of numbers"
  (cond
    ((not (listp inlist))
     (princ "Argument must be a list")
     (terpri)
     ())
    ((null inlist)
     ())
    ((not (numberp (car inlist)))
     (filter-numbers-rec (cdr inlist)))
    (t
     (cons (car inlist)
           (filter-numbers-rec (cdr inlist))))))

Answer 1

嗯，函数的描述是你想删除列表中的每一个东西如果它不是号码，所以这里的一个很好的候选人是 remove-if-not ，您将按如下方式使用:

(remove-if-not 'numberp '(1 a 2 b 3 c #\x (y 4)))
;=> (1 2 3)

如果出于某种原因，您想以(可能)不使用递归的方式编写此代码，则可以使用 do :

(do ((list '(1 a 2 b 3 c #\x (y 4)) (rest list))
     (result '()))
    ((endp list) (nreverse result))
  (when (numberp (car list))
    (push (car list) result)))
;=> (1 2 3)

如果你不喜欢do的冗长，你可以使用loop:

(loop :for x :in '(1 a 2 b 3 c #\x (y 4))
   :when (numberp x)
   :collect x)
;=> (1 2 3)