list - 取到 Scheme 中的第 n 个元素

Question

我怎样才能将第 n 个元素放入另一个列表中？

例如前 4 个；

（取前 4 名新名单）

列表：'（1 2 3 4 5 6）新列表：'（1 2 3 4）

谢谢..

Answer 1

您可以通过取第一个然后从其余部分中取第 (n-1) 个来取第 n 个。

(define (taking-first n list)
  (if (or (null? list) (= 0 n))
      '()
      (cons (car list) (taking-first (- n 1) (cdr list)))))

Answer 2

看看你的口译员是否提供了take程序，它已经做了你需要的：

(take '(1 2 3 4 5 6) 4)
=> '(1 2 3 4)