Erstellen einer Methode in Common Lisp

Question

Hallo Ich mache eine Bedingung, die ich nur eine Methode aufrufen möchte, wenn die Bedingung wahr ist, das Problem ist, ich kann die Syntax nicht finden, wie eine Methode in C-Lisp ich bin neu mit Diese Sprache ist hier der Code.

/* I want to create a method here which i can all anytime in my condition but I am having problem with a syntax 

(void method() 
    (print "Invalid") 
) 

*/ 

(print "Enter number") 
(setq number(read()) 
(cond((< 1 number) (print "Okay")) 
    ((> 1 number) /*I want to call a method here (the invalid one)*/) 
) 

Answer 1

Um eine Funktion in Common Lisp legen Sie den defun Operator verwenden:

(defun signal-error (msg) 
    (error msg)) 

Jetzt können Sie es nennen wie so:

(signal-error "This message will be signalled as the error message") 

Dann können Sie es einfügen in Ihrem Code wie folgt:

(print "Enter number") 
(setq number (read)) ;; <- note that you made a syntax error here. 
(cond ((< 1 number) (print "Okay")) 
     ((> 1 number) (signal-error "Number is smaller than 1.")))) 

In Ihrer Frage fragen Sie nach einem method. Methoden arbeiten mit Klassen. Zum Beispiel vorstellen, Sie haben zwei Klassen human und dog:

(defclass human()()) 
(defclass dog()()) 

Um eine Methode spezifisch für jede Klasse erstellen Sie defmethod verwenden:

(defmethod greet ((thing human)) 
    (print "Hi human!")) 

(defmethod greet ((thing dog)) 
    (print "Wolf-wolf dog!")) 

Lassen Sie uns für jede Klasse zwei Instanzen erstellen:

(defparameter Anna (make-instance 'human)) 
(defparameter Rex (make-instance 'dog)) 

Jetzt können wir jedes Lebewesen mit der gleichen Methode begrüßen:

(greet Anna) ;; => "Hi human" 
(greet Rex) ;; => "Wolf-wolf dog!" 

Der Prozess der gemeinsamen Lisp zu wissen, welche Methode ausgeführt wird, heißt "Dynamic Dispatch". Im Grunde entspricht es den Klassen des gegebenen Arguments den defmethod Definitionen.

Aber ich habe keine Ahnung, warum Sie Methoden in Ihrem Codebeispiel benötigen.

Hier ist, wie ich den Code schreiben, wenn ich Sie war:

;; Let's wrap the code in a function so we can call it 
;; as much as we want 
(defun get-number-from-user() 
    (print "Enter number: ") 
    ;; wrapping the number in a lexical scope is a good 
    ;; programming style. The number variable is not 
    ;; needed outside the function. 
    (let ((number (read))) 
    ;; Here we check if the number satisfies our condition and 
    ;; call this function again if not. 
    (cond ((< number 1) (print "Number is less than 1") 
         (get-number-from-user)) 
      ((> number 1) (print "Ok."))))) 

Ich würde vorschlagen, dass Sie „das Land des Lisp“ lesen. Es ist ein tolles Buch für Anfänger.