Ako základ možno použiť schému zobrazenie. Rekurzívne sa prechádzajú oba zoznamy zoz1 a zoz2 a vytvára sa výsledok. Predpokladáme, že zoznamy sú číselné. Pri nerovnakej dĺžke sa použije menší počet prvkov.

(defun sucetz (zoz1 zoz2)
 (cond ((or (null zoz1) (null zoz2)) NIL)
       (T (cons (+ (first zoz1) (first zoz2)) (sucetz (rest zoz1) (rest zoz2))))
 )
)

; Príklady:
(sucetz '(0 2 3) '(1 2 3))   ; -> (1 4 6)
(sucetz '(0 2 3) '(1 2 3 4)) ; -> (1 4 6)

Autori

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