Prejdeme tabuľku, pričom vyberáme len kľúče. Ide o filter.


(defun kluce (tab)
 (cond ((null tab) NIL)
       (T (cons (first (first tab)) (kluce (rest tab))))
 )
)

; Príklad:
(kluce '((k1 . a)(x . b)(k3 . c))) -> (k1 x k3)

 


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