Rekurzívne (rekurzia s rozšírením) prechádzame obe postupnosti a vytvárame výsledok.

; Predpokladáme postupnosti čísel rovnakej dĺžky.

(defun sum (zoz1 zoz2)
 (cond ((null zoz1) 0)
       (T (+ (* (- (first zoz1) (first zoz2)) (- (first zoz1) (first zoz2))) (sum (rest zoz1) (rest zoz2))))
 )
)

; Príklad:
(sum '(1 2.5) '(1 3)) -> 0.25

Autori

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