Napíšte vlastnú verziu funkcie GET (MY-GET). Použite funkciu SYMBOL-PLIST.

Príklady:

(setf (get 'symb 'ATRIBUT1) 'HODNOTA1)
(setf (get 'symb 7) 'HODNOTA2)
(symbol-plist 'symb)  ; -> (7 HODNOTA2 ATRIBUT1 HODNOTA1)

(get 'symb 'ATRIBUT1) ; -> HODNOTA1
(get 'symb 7)         ; -> HODNOTA2

(my-get 'symb 'ATRIBUT1) ; -> HODNOTA1
(my-get 'symb 7)         ; -> HODNOTA2

Autori

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