我怎样才能得到（功能＆＃39;（a b a a b c））=＆gt; （（a a）（b b））？

Question

我正在学习常见的lisp教程，但我不熟悉它。

我如何获得以下结果？

(function '(a b a a b c)) => ((a a a) (b b))

Answer 1

这很容易。您有remove-if和remove-if-not。他们的工作方式如下：

(remove-if-not (lambda (x) (eq x 'a)) '(a b a a b c)) ; ==> (a a a)
(remove-if (lambda (x) (eq x 'a)) '(a b a a b c)) ; ==> (b b c)

现在，如果你有一个参数并且它不是nil，你可以使用上面的方法来创建结果的第一个元素以及传递给递归的列表。

典型的递归函数：

(defun group (list)
  (if (endp list)
      nil
      (cons <??> (group <??>))))

有更有效的方法可以执行此操作，您可能希望自己创建函数，而不是依赖remove-if(-not)作为练习。