list-head
Name
list-head -- Return the head of a list
Synopsis
(list-head inputlist k)
Description
Returns the list that contains the first k elements of inputlist.
Example
(list-head (1 2 3 4) 2) returns (1 2).
Author
Norman Walsh, <ndw@nwalsh.com>
Source Code
(define (list-head inputlist k)
  ;; Return the head of a list
  (let loop ((l inputlist) (count k) (result '()))
    (if (<= count 0)
	result
	(loop (cdr l) (- count 1) (append result (list (car l)))))))