slice.ss

Scheme

Public Domain

Get a sublist of a list

Download (right click, save as, rename as appropriate)

Embed

1
2
3
4
; Returns a list of `l' elements of `li' starting at `s':
(define (slice li s l)
 ((lambda (li) (reverse (list-tail (reverse li) (- (length li) l))))
  (list-tail li s)))