list-head   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/scheme.xtm

Implementation

(define list-head
   (lambda (lst k)
      (if (< k 1)
    '()
    (cons (car lst) (list-head (cdr lst) (- k 1))))))


Back to Index