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

(defun zdvoj (zoz)
 (cond ((null zoz) NIL)
       (T (cons (first zoz) (cons (first zoz) (zdvoj (rest zoz)))))
 )
)

; Príklad:
(zdvoj '(1 X 2)) ; -> (1 1 X X 2 2)

Autori

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