Gibt es etwas, ähnlich wie return-Anweisung von C in Lisp?

Für ein Algol-Programmierer (oder einer der es viele Dialekte wie C, Java, perl, ...) jeder Ausdruck in einer LISP funktioniert wie ein "return Ausdruck". Beispiel:

{
  int x = 10;
  if( x == 10 )
    return 10 * 5;
  else
    return 5 * 19; 
}

In LISP kann dies geschrieben werden wie diese:

;; direct version
(let ((x 10))
  (if (= x 10)
      (* 10 x)
      (* 5 x)))


;; if can be anywhere
(let ((x 10))
  (* x
     (if (= x 10) 
         10 
         5))))

Wie Sie vielleicht bemerkt LISP if ist mehr wie der ternäre operator ( expression ? consequent : alternative ) als ein C if.

BEARBEITEN

Nun, dass Sie Hinzugefügt haben, ein Beispiel usng return in C, die Sie übersetzen möchten, sehe ich, dass Sie nicht mit return um einen Wert zurückzugeben, sondern als goto um die Funktion zu verlassen früh. Da springen ist immer noch schädlich nur mit CL return-from ist nicht immer die richtige Antwort, selbst wenn, dass wäre sicher die beste wörtliche übersetzung.

In jeder LISP-Sie müssen einen Wert zurückgeben, obwohl Sie nicht, es zu benutzen (für die Funktionen genannt, die für Ihre Nebenwirkungen). Wenn Sie nicht gehen, den Wert zu verwenden, können Sie einfach nil:

(if (zerop x)
    nil
    (something-else x))

Wenn du mehr als eine Anweisung (für die Nebenwirkungen), die Sie verwenden let, progn oder switch die ganze Sache zu einem cond:

;; using let to bind as well as implicit progn
(if (zerop x)
    nil
    (let ((tmp (gethash x *h*)))
      (setf (gethash x *h*) (+ x 1))
      (something-else tmp)))

;; using progn
(if (zerop x)
    nil
    (progn
      (setf (gethash x *h*) (+ (gethash x *h*) 1))
      (something-else (gethash x *h*))))

;; using cond
(cond ((zerop x) nil)
      (t
       (setf (gethash x *h*) (+ (gethash x *h*) 1))
       (something-else (gethash x *h*))))

InformationsquelleAutor Sylwester