---

Hallo,

ich suche eine Möglichkeit wie ich z.B. aus einer Schleife wie "dotimes" vorzeitig wiedr raus komme.
Blödes Beispiel.
Es will das eine Zahl erraten wird, wenn die Zahl stimmt so beendet werden. Bis jetzt läuft das Programm aber immer durch.
Gibt es da eine Möglichkeit?

Für Hilfe wäre ich dankbar.

------------------
Gruß Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

dotimes verwendet man üblicherweise, wenn man einen festen Bereich durchlaufen will. Bei einer bedingten Schleife bietet sich eher loop an. Beispiel:

Code:

---

  (loop while (some-condition) do (do-this) (do-that))

---

Oder

Code:

---

  (loop do (do-this) (do-that) until (some-condition))

---

Siehe auch http://cl-cookbook.sourceforge.net/loop.html

Wenn es aber wirklich unbedingt dotimes sein muss (der Beschreibung nach zu urteilen würde ich eher abraten):

Code:

---

  (dotimes (i 100)
    (do-something-with i)
    (when (= i 42) (return 42)))

---

Siehe http://www.lispworks.com/documentation/HyperSpec/Body/m_dotime.htm

------------------
CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/ - Blog: http://www.clausbrod.de/Blog

[Diese Nachricht wurde von clausb am 18. Feb. 2016 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo claus,

musste noch etwas wo anders spicken, aber danke für den Hinweis mit dem loop:

Code:

---

(loop for Nummer1 from Nummer to ENDENummer
when (NOT (sd-db-element-exists  :identifier (list (format nil "8-0289900-~A" Nummer1) "-") :Database-type :model ))
return (display (format nil "Die erste freie Nummer lautet: 8-0289900-~A" Nummer1))
)

---

Etwas komisch das es so garnicht mit den klammern wie sonst bearbeitet ist.

------------------
Gruß Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

im grunde hat mir das return gefehlt, weil so mit dem dotimes geht es auch:

Code:

---

(dotimes (i (- ENDENummer Nummer))
(WHEN
(NOT (sd-db-element-exists  :identifier (list (format nil "8-0289900-~A" Nummer) "-") :Database-type :model ))
(return (display (format nil "Die erste freie Nummer lautet: 8-0289900-~A" Nummer)))
)
(setq Nummer (+ Nummer 1))
)

---

------------------
Gruß Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP