slice   scheme


Defined in:  https://github.com/lambdamusic/extempore-extensions/blob/main/init/init_lisp.xtm

Implementation

;; March 20, 2021
;
;; simpler version of slice, with more natural args order
;; slice index can be in any position
; (slice 2 '(1 2 3 4)) ;; => (1 2)
; (slice 7 '(1 2 3 4)) ;; => (1 2 3 4)
(define slice
   (lambda (arg1 arg2)
        (if (list? arg1)
            (cl:slice-left arg1 arg2 )
            (cl:slice-left arg2 arg1)
            )))


Back to Index

Similar Entries