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

Autori[ ZADANIE | AKO ZAČAŤ | RIEŠENIE ]
Posledná aktualizácia 4. 9. 2001
back  home  next