Re: Extract sublists

[pjb@informatimago.com (Pascal J. Bourguignon)]

Nordlöw <per.nordlow@gmail.com> writes:

> Is there a function for extracting sublists of lists?
>
> If not here is my suggestion for inclusion in Emacs.
>
> (defun sublist (list from to)
>   "Return a sublist of LIST, from FROM to TO.
> Counting starts at 0. Like `substring' but for lists."
>   (let (rtn (c from))
>     (setq list (nthcdr from list))
>     (while (and list (< c to))
>       (push (pop list) rtn)
>       (setq c (1+ c)))
>     (nreverse rtn)))

(require 'cl)
(list
 (subseq '(a b) 0 0)
 (subseq '(a b) 0 1)
 (subseq '(a b) 1 2)
 (subseq '(a b) 0 2))
--> (nil (a) (b) (a b))


-- 
__Pascal Bourguignon__