caddddr   scheme


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

Implementation

;
; (caddddr '(1 2 3 4 5 6 7 8)) ;; => 5
; (nth 5   '(1 2 3 4 5 6 7 8))  ;; => 6  // 0 based!
(define caddddr
   (lambda (l)
      (car (cddddr l))))


Back to Index