Veľmi jednoducho s použitím APPEND. Alebo bez APPEND funkciou, ktorá vytvára zo zadaného zoznamu nový a keď je na konci pôvodného zoznamu, pridá ešte prvok a zoznam uzavrie.

; S použitím append.

(defun pripoj_a (p zoz)
 (append zoz (cons p NIL))
)

; Bez použitia append.

(defun pripoj_b (p zoz)
 (cond ((null zoz) (cons p NIL))
       (T (cons (first zoz) (pripoj_b p (rest zoz))))
 )
)

; Príklady:
(pripoj_a 'x '(a b c)) ; -> (a b c x)
(pripoj_b 'x '(a c)) ; -> (a c x)

Autori

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