SMALLTALK K1ex127-.45ex51275ahler/Bothner

15.1 Prüfung von Direktverbindungen 309
verbindungIter: ankunft
| nachfolgerSammler |
nachfolgerSammler := OrderedCollection new.
nachfolgerSammler add: self.
self verbindung: nachfolgerSammler iter: ankunft
bzw. wie folgt:
verbindung: nachfolgerSammler iter: ankunft
| varSammler erfolg |
varSammler := nachfolgerSammler.
erfolg := false.
[ (erfolg == false) and: [varSammler isEmpty not] ]
whileTrue: [(varSammler includes: ankunft)
ifTrue: [erfolg := true]
ifFalse:[varSammler := self alleNachfolger: varSammler]].
erfolg ifTrue: [Transcript cr; show:’IC-Verb existiert’]
ifFalse:[Transcript cr; show:’keine IC-Verb’]
Hinweis: Da das Argument “nachfolgerSammler” der Methode “verbindung:iter:” nicht
auf der linken Seite einer Zuweisung auftreten darf, müssen wir den jeweils aktuellen
Nachfolger-Sammler der temporären Variablen “varSammler” zuweisen.
Bei der Ausführung der Methode “verbindung:iter:” werden – solange der aktuelle
Nachfolger-Sammler nicht leer ist – durch den Einsatz der Methode “whileFalse:”
gleiche Anforderungen wiederholt ausgeführt.
Dabei setzen wir zur Ermittlung des jeweils aktuellen Nachfolger-Sammlers die Message
“alleNachfolger:” mit dem zuletzt ermittelten Nachfolger-Sammler als Argument
ein und weisen das Ergebnis-Objekt dieser Message jeweils der temporären
Variablen “varSammler” durch die Anforderung
varSammler := self alleNachfolger: varSammler
sukzessive zu.
Im folgenden wollen wir eine elegantere Lösung vorstellen, bei der wir sowohl auf
die Programmierung einer Schleife als auch auf die Zuweisung an die Variable “var-
Sammler” verzichten. Dies läßt sich dadurch erreichen, daß der jeweils aktuelle
Nachfolger-Sammler als Argument einer rekursiven Methode aufgeführt wird.