Common Lisp odpowiednik C enum

Question

Próbuję nauczyć się ostatnio Lisp (Common Lisp) i zastanawiam się, czy istnieje sposób na podawanie liczb stałych tak, jak można to zrobić w C poprzez wyliczenia.

Nie potrzebuję pełnego zestawu funkcji wyliczeniowych. W końcu chcę mieć szybki czytelny kod i.

Próbowałem już globałów i niewielkich funkcji, ale zawsze było to związane z pogorszeniem wydajności. Po prostu podłączenie liczb do kodu było zawsze szybsze.

Answer 1

normalny sposób zrobić wyliczeń w Lisp jest użycie symboli . Symbole zostają internowane (zastąpione wskaźnikami do ich pozycji w tabeli symboli), więc są tak szybkie, jak liczby całkowite i czytelne jako stałe wyliczone w innych językach.

Więc gdzie w C można napisać:

 
enum { 
    apple, 
    orange, 
    banana, 
}; 

W Lisp można po prostu użyć 'apple i 'banana, 'orange bezpośrednio.

Jeśli potrzebujesz wyliczone typ, można określić jedną z deftype:

(deftype fruit() '(member apple orange banana))

a następnie można użyć typu fruit w declare, typep, typecase i tak dalej, i można pisz standardowe funkcje, które specjalizują się w tym typie:.

Answer 2

wyliczenia są zbędne dla Lisp, Wynika to z faktu, że wszystkie symbole są własnej tożsamości, więc może po prostu użyć tych, na przykład:

[dsm@localhost:~]$ clisp -q 
[1]> (setf x 'some) ;' 
SOME 
[2]> (eq x 'some) ;' 
T 
[3]> 

Answer 3

Na przykład chcesz wymienić rozmiary czcionek:

(defconstant +large+ 3) 
(defconstant +medium+ 2) 
(defconstant +small+ 1) 

Mogłeś napisać makro, aby to krótsze.

Powyższe definicje stałe są zazwyczaj TYLKO napisane, gdy liczby te należy przekazać do zewnętrznego kodu innego niż Lisp.

W przeciwnym razie wystarczy użyć symboli słów kluczowych:: duży,: średni i: mały.

Możesz je przetestować za pomocą EQ i wszystkiego, co używa jakiegoś testu dla równości.

(let ((size :medium)) 
    (ecase size 
    (:small ...) 
    (:medium ...) 
    (:large ...))) 

Można również napisać metod IT:

(defmethod draw-string (message x y (size (eql :large))) ...) 

Jak wspomniano można zdefiniować typ zestawie:

(deftype size() '(member :small :medium :large)) 

Następnie można sprawdzić, czy coś jest jedną z tych:

(let ((my-size :medium)) 
    (check-type my-size size)) 

Powyżej zasygnalizować błąd, jeśli mój rozmiar nie jest jednym z: small,: medium or: large.

Można również użyć typu w formie defclass:

(defclass vehicle() 
    ((width :type size :initarg :width))) 

Teraz można utworzyć obiektów jak tutaj:

(make-instance 'vehicle :width :large) 

Niektóre wspólne implementacje Lisp sprawdzi kiedy ustawić gniazdo do niektórych nielegalna wartość.

Jeśli teraz tworzysz obiekty klasy pojazdu, gniazda będą następujące: duży,: średni lub: mały. Jeśli spojrzysz na obiekt w debugerze, inspektorze lub jakimś innym narzędziu, zobaczysz nazwy symboliczne, a nie 1, 2 lub 3 (lub jakiekolwiek wartości, których normalnie używasz).

Jest to część stylu Lisp: w miarę możliwości używaj nazw symbolicznych. Używaj symboli z wartościami liczbowymi tylko w kodzie interfejsu dla obcych funkcji (np. Wywoływanie zewnętrznego kodu C, który używa enums).