caddddr

p

Summary

(car (cdr (cdr (cdr (cdr p)))))

Examples

(caddddr '(#f #f #f #f #t))
#t

Bytecode

Probably only interesting to you if you want to understand more about the Nujel VM or care very much about performance.

(    0 ($get/val 'p))
(    2 ($cdr))
(    3 ($cdr))
(    4 ($cdr))
(    5 ($cdr))
(    6 ($car))
(    7 ($ret))

Related