直到Scheme中的第n个元素

Question

如何将第n个元素带入另一个列表？

例如前4;

（首先列出4个新名单）

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

谢谢..

Answer 1

你可以取第一个，然后从第二个中取第（n-1）个。

(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)