是否有任何内置函数可以从 Scheme 中的列表中提取元素？

Question

有什么函数可以转换

'((0 0 0) (4 0 0) (2 7 0)) 变成 '(0 0 0 4 0 0 2 7 0)

Answer 1

Standard Scheme（对于 n 的某些定义是 RnRS）没有提供这样的功能，但是您想要做的通常称为flatten并且在许多 Scheme 库中都可以使用。 如果这是作业，我不会提供代码，但这里有一个框架可以让你开始：

(define (flatten xs)
  (cond ((null? xs) ...)
        ((pair? xs)
          (append (flatten ...)
                  (flatten ...)))
        (else ...)))

Answer 2

您正在寻找的操作称为flatten ，无论嵌套级别如何，它都会展平所有子列表：

(flatten '((0 0 0) (4 0 0) (2 7 0)))

如果您的解释器不支持它，实现它的常用方法（对于一层嵌套）是：

(apply append '((0 0 0) (4 0 0) (2 7 0)))

或者像这样，对于任意嵌套的列表（这就是内置flatten工作方式）：

(define (flatten lst)
  (cond ((null? lst) '())
        ((pair? lst)
         (append (flatten (car lst)) (flatten (cdr lst))))
        (else (list lst))))

无论如何，它按预期工作：

'(0 0 0 4 0 0 2 7 0)

Answer 3

你是对的，我必须实施它。 这个适用于示例

(define (extract lista)
   (if (equal? lista empty) '() (append (car lista) (extract(cdrlista)))))