Vhodná schéma je počítanie prvkov (ľubovolná úroveň).
(defun interval (floor top sv)
(cond ((AND (NUMBERP sv) (OR (< sv floor) (> sv top))) 1)
((ATOM sv) 0)
(T (+ (interval floor top (first sv)) (interval floor top (rest sv))))
)
)
; Príklad:
(interval 2 3 '(0 1 (2 (3 4 (5)) 6))) ; -> 5