递归时优先粘合列表——单点返回

Question

警告：绝对 Lisp n00b。我非常精通 Java，对 C 也有一定程度的了解。Lisp……到目前为止还不是我最喜欢的。 （但它比序言更好......）

我想迭代一个列表并优先返回该列表的子集。

我已经成功编写了代码，该代码将使用 (append ) 函数在堆栈展开时拆分列表并重建它。然而，当我尝试加入条件时，我遇到了很大的麻烦。

(defun split-then-rebuild-list (row value llist)
   (cond ((not (eq llist nil))
          (let ((item (first llist))
                (rval nil))
            (print llist)
            (print "Entering next recursion level")
            (setf rval (split-then-rebuild-list row value (cdr llist)))
            (print "Left recursion")
            (print "Current item: ")
            (princ item)
            (print "Received: ")
            (Princ rval)
            (print "Appended:")
            (setf x (first(first item)))
            (and (eq row x) (eq value (nth 2 (first item)))
                 (print "gluing: ")
                 (princ rval)
                 (princ item)
                 (setf rval (append rval item )))))))

当 NIL 展开时，它会不断地从堆栈中返回。我不明白的是为什么当我输入 (set tmp (list ABC) ) 然后 (append tmp nil) 它返回 (ABC) 但不在我这里的代码中。对我来说，我会以这样的方式阅读这篇文章：“在所有情况下都返回 nil，但在这些条件下返回一个列表。如果两个列表项满足条件，它们将被附加，否则它应该只返回上一个递归级别的列表.

[编辑]提供更多信息。
我原来的函数可以很好地分解和重建：

(defun splitThenRebuildList( llist )
        (cond(
        (not (eq llist nil ))
        (let(
        (item (first llist))
        (rval)
        );end let decl
        (print llist )
        (setf rval (splitThenRebuildList( cdr llist )))
        (print "item: ")(princ item)
        (print "Received: ") (Princ rval)
        (append rval item )
        );end let
        ));end cond
)

由于第一个发布的代码是一个流产，有什么建议可以修改它以获得我需要的东西吗？

Answer 1

在对您的问题的评论中，我建议remove-if-not。这是一个使用它的示例，我猜您自己的函数也尝试这样做。这是你有意还是无意的？

(defun filter-by-row-and-value (row value seq)
  (remove-if-not (lambda (x)
                   (and (eql row (first x))
                        (eql value (third x))))
                 seq
                 :key #'first))

正如其他人已经指出的，您自己的代码不符合您的预期的原因可能是您将调试输出语句放入 and 表单中。对于该特定情况，我建议使用

(when (and conditions...)
  debugging-output
  return-value)

而不是

(and conditions...
     debugging-output
     return-value)

Answer 2

真的很难说出你想做什么。以下是您可能尝试执行的操作的示例。

这是一个函数，它接受一个值和一个列表，并返回列表的子集，其元素是 cons 对，其 car 是 eq 到 3。如果您愿意，您可以使测试变得更复杂。

(defun do-something-to-list (value list)
  (cond ((null list)
     nil)
    ((eq value (first (first list)))
     (cons (first list)
       (do-something-to-list value (rest list))))
    (t
     (do-something-to-list value (rest list)))))

实际应用：

(do-something-to-list 3 '((3 9) (a b c) (47 3) (3 zztop) (blah)))
((3 9) (3 zztop))

注意：使用 common-lisp 中的内置例程有多种方法可以完成此类操作，但看起来您只是想学习如何理解递归。

Answer 3

如果从代码中删除 (princ rval) 和 (princ item)，该函数就可以工作。

(split-then-rebuild-list :a 4 '(((:a nil 4))((:b nil 5))))

=>
((:A NIL 4))

要在递归展开时重建列表，请在匹配项的测试为 false 时返回一个值。