list - 从方案中的列表列表中删除空列表

Question

我有一个列表列表，我想从中删除所有空列表。

我的列表是(("O") ("O") ())。

如果我这样做

(remove '() '(("O") ("O") ()))

我得到了正确的输出(("O") ("O"))

但使用 remove* (从文档中删除所有发生的情况)我得到相同的输入列表，即:

(remove* '() '(("O") ("O") ())) 

给我返回

(("O") ("O") ())

我做错了什么？

Answer 1

首先，remove*方案(R5RS、R6RS、R7RS)中不存在。 remove R6RS 中确实存在并且可以执行您想要的操作:

#!r6rs
(import (rnrs))
(remove '() '(() (1) (2) () ())) ;==> ((1) (2))

在方案方言 Racket 中，您同时拥有 remove和remove*看来您正在使用 Racket ，因为它确实按照您描述的方式工作。 remove*获取要删除的项目列表。因此(remove '() lst)在#!R6RS与 (remove* '(()) lst) 相同在#!racket 。 remove*似乎是为了删除所有匹配的元素:

(remove* '(() (2)) '(() (1) (2) () ())) ; ==> ((1))