SMALLTALK K1ex127-.45ex51275ahler/Bothner

120 6 Einsatz von Basis-Methoden
|summe zaehler|
zaehler := 1.
summe := 0.
[zaehler < 6] whileTrue: [summe := summe + (zaehler * zaehler).
zaehler := zaehler + 1].
summe
Da es in bestimmten Fällen sinnvoll sein kann, die Wiederholung einer Block-
Ausführung davon abhängig zu machen, daß eine Bedingung zu einem bestimmten
Zeitpunkt nicht mehr zutrifft, steht neben “whileTrue:” zusätzlich die Basis-
Methode “whileFalse:” zur Verfügung, die wie folgt verwendet werden muß:
ˆ [] whileFalse:
Im Hinblick auf die Ausführung dieser Methode ist folgendes festzustellen:
ˆ “whileFalse:”:
Das Empfänger-Objekt der Message “whileFalse:” muß ein logischer Block
sein.
Ist das Ergebnis-Objekt, das aus der erstmaligen Ausführung des logischen
Blockes resultiert, gleich der Pseudovariablen “true”, so wird der Argument-
Block, d.h. der Block, der als Argument des Selektors “whileFalse:” angegeben
ist, nicht ausgeführt.
Ergibt sich dagegen die Pseudovariable “false” als Ergebnis-Objekt, so erfolgt
die erstmalige Ausführung des Argument-Blockes. Anschließend wird
der logische Block erneut ausgewertet. Je nachdem, welche Pseudovariable als
Ergebnis-Objekt resultiert, wird die Wiederholung beendet oder fortgesetzt.
Die Ausführung des Argument-Blockes wird solange wiederholt, bis die Pseudovariable
“true” als Ergebnis-Objekt des logischen Blockes erhalten wird.
Als Ergebnis-Objekt der Message “whileFalse:” ist die Pseudovariable “nil”
festgelegt.
Unter Einsatz der Methode “whileFalse:” kann die oben angegebene Berechnung
des Summenwertes wie folgt modifiziert werden:
|summe zaehler|
zaehler := 1.
summe := 0.
[zaehler > 5] whileFalse: [summe := summe + (zaehler * zaehler).
zaehler := zaehler + 1].
summe
Hinweis: Als Alternative läßt sich die Berechnung des Summenwertes auch in der Form
VarBag := Bag new. VarBag add: 1; add: 2; add: 3; add: 4; add: 5.
VarBag inject:0 into:[:summe :eineZahl|summe + (eineZahl * eineZahl)]
durch den Einsatz der Basis-Methode “inject:into:” ermitteln.