如何在方案中获取一个列表（A子列表）？

Question

给定一个列表，我如何选择一个包含原始列表切片的新列表（给定偏移量和元素数量）？

编辑：

到目前为止的好建议。 SRFI的其中一个没有指定的东西吗？这似乎是一个非常基本的事情，所以我很惊讶我需要在用户土地上实现它。

Answer 1

以下代码将执行您想要的操作：

(define get-n-items
    (lambda (lst num)
        (if (> num 0)
            (cons (car lst) (get-n-items (cdr lst) (- num 1)))
            '()))) ;'

(define slice
    (lambda (lst start count)
        (if (> start 1)
            (slice (cdr lst) (- start 1) count)
            (get-n-items lst count))))

示例：

> (define l '(2 3 4 5 6 7 8 9)) ;'
()
> l
(2 3 4 5 6 7 8 9)
> (slice l 2 4)
(3 4 5 6)
> 

Answer 2

奇怪的是， SRFI-不提供 slice 1 但您可以使用SRFI-1的 < code> take 和 drop ：

(define (slice l offset n)
  (take (drop l offset) n))

我认为我在Scheme中使用的扩展程序之一，如PLT Scheme库或Swindle，会有这种内置功能，但似乎并非如此。它甚至没有在新的R6RS库中定义。

Answer 3

您可以尝试此功能：

  

子搜索 序列开始和可选结束

start 参数是您的偏移量。只需添加start + number-of-elements，就可以轻松将 end 参数转换为要抓取的元素数。

一个小小的好处是 subseq 适用于所有序列，这不仅包括列表，还包括字符串和向量。

编辑：似乎并非所有的lisp实现都有subseq，但是如果你有它，它会很好地完成工作。

Answer 4

(define (sublist list start number)
  (cond ((> start 0) (sublist (cdr list) (- start 1) number))
        ((> number 0) (cons (car list)
                      (sublist (cdr list) 0 (- number 1))))
        (else '())))

Answer 5

这是我使用正确尾部调用的 slice 的实现

(define (slice a b xs (ys null))
  (cond ((> a 0) (slice (- a 1) b (cdr xs) ys))
        ((> b 0) (slice a (- b 1) (cdr xs) (cons (car xs) ys)))
        (else (reverse ys))))

(slice 0 3 '(A B C D E F G)) ;=> '(A B C)
(slice 2 4 '(A B C D E F G)) ;=> '(C D E F)

Answer 6

尝试这样的事情：

    (define (slice l offset length)
      (if (null? l)
        l
        (if (> offset 0)
            (slice (cdr l) (- offset 1) length)
            (if (> length 0)
                (cons (car l) (slice (cdr l) 0 (- length 1)))
                '()))))