K druhému číslu pripočítame rekurzívne jednotku toľko krát, aká je hodnota prvého čísla.


; Predpokladám, že čísla sú kladné

(defun sucet (c1 c2)
 (cond ((= c1 0) c2)
       (T (+ 1 (sucet (- c1 1) c2)))
 )
)

; Príklad:
(sucet 7 3) -> 10

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