Können Sie mehrere Anweisungen in einer "if" -Anweisung ausführen?

Dies ist meine Funktion:

(defun MyFunction(input)
  (let ((NEWNUM (find input num)))
    (if (find input num)              //if this 
      (setq num NEWNUM) (FUNCT2)      //then execute both of these
    (list 'not found))))              //else output this

So, nachdem die if Aussage möchte ich ausführen zu können (setq num NEWNUM) gefolgt von (FUNCT2) um eine neue variable und dann eine Funktion aufrufen. Irgendwelche Ideen auf, wie dies zu tun?

InformationsquelleAutor der Frage Jack Null | 2010-05-17

  1. 37

    Um verschiedene Dinge zu tun in der Reihenfolge, die Sie wollen progn.

    (defun MyFunction(input)
  (let ((NEWNUM (find input num)))
    (if (find input num)              //if this 
      (progn 
        (setq num NEWNUM)
        (FUNCT2))      //then execute both of these
    (list 'not found))))              //else output this

    InformationsquelleAutor der Antwort Chuck

  2. 12

    Wenn Ihr if ist "one-armed", wie Sie es nennen, (daß ist, es enthält keine else branch), ist es in der Regel einfacher und mehr Redewendungen zu verwenden when und unless: http://www.cs.cmu.edu/Groups/AI/html/hyperspec/HyperSpec/Body/mac_whencm_unless.html

    Beim Aufruf (when pred x y ... z) ist, wird es nur bewerten x y z nacheinander, wenn pred wahr ist. unless verhält sich ähnlich, wenn pred ist NULL. x y z darstellen kann eine beliebige Anzahl von Aussagen, die von einem nach oben. Also:

    (when pred (thunk))

    ist genau das gleiche wie 

    (if pred (thunk))

    Einige Leute sagen when und unless sollte immer benutzt werden, 'one-armed-ifs" wegen der Klarheit.

    Edit: Dein thread brachte mich auf die Idee. Dieses makro:

    (defmacro if/seq (cond then else)
  `(if ,cond (progn ,@then) (progn ,@else)))

    sollte, aktivieren Sie diese:

    (if/seq (find input num)              //if this 
      ((setq num NEWNUM) (FUNCT2))      //then execute both of these
    ((list 'not found)))))

    So das Allgemeine format ist:

    (if/seq *condition* (x y ... z) (a b ... c))

    Je nach Zustand, es wertet alle Unterformulare in der ersten oder zweiten, sondern gibt nur die Letzte.

    InformationsquelleAutor der Antwort Zorf

  3. 6

    Sie nicht verwenden können, mehrere Anweisungen mit ifaußer mit progn wie oben gepostet. Aber es ist die cond form,

    (cond
 ((find input num)     // if this 
  (setq num NEWNUM)    // then execute both of these
  (FUNCT2))

 (t
  (list 'not found)))  // else output this

    InformationsquelleAutor der Antwort JohnMaraist

  4. 1

    Nur hinzuzufügen, können Sie auch das (beginnen BSP1 bsp2...) - syntax zu bewerten, mehr als einen Ausdruck in Lisp nacheinander. Mit dieser auf ein, wenn der ast hat den gleichen Effekt wie die Verwendung von mehreren Anweisungen.

    InformationsquelleAutor der Antwort Hrishi

Schreibe einen Kommentar