给定一个列表,我将如何选择一个新列表,其中包含原始列表的一部分(给定偏移量和元素数量)?
编辑:
到目前为止的好建议。SRFI 中没有指定内容吗?这似乎是一个非常基本的事情,所以我很惊讶我需要在用户领域实现它。
以下代码将执行您想要的操作:
(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)
>
你可以试试这个功能:
subseq 序列开始和可选结束
start参数是您的偏移量。只需添加 start + number-of-elements 即可轻松将 end 参数转换为要抓取的元素数。
一个小的好处是subseq适用于所有序列,这不仅包括列表,还包括字符串和向量。
编辑:似乎并非所有 lisp 实现都有 subseq,但如果你有它,它会很好地完成工作。
(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 '())))
这是我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)
尝试这样的事情:
(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)))
'()))))