Ako základ možno použiť schému zobrazenie. Pri zobrazovaní zoznamu treba rozlišovať, či prvok ktorý chceme práve zobraziť je číslo, alebo nie.

(defun map (c zoz)
 (cond ((null zoz) NIL)
       ((AND (NUMBERP (first zoz)) (= c (first zoz))) (cons 1 (map c (rest zoz))))
       (T (cons 0 (map c (rest zoz))))
 )
)

; Príklad:
(map 7 '(1 2 (7) 7 2 7)) ; -> (0 0 0 1 0 1)

Autori

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