Ako základ možno použiť schému zobrazenie.


(defun nasobs (c zoz)
 (cond ((null zoz) NIL)
       (T (cons (* c (first zoz)) (nasobs c (rest zoz))))
 )
)

; Príklad:
(nasobs 2 '(1 2 3)) ; -> (2 4 6)

 


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