SMALLTALK K1ex127-.45ex51275ahler/Bothner

15.1 Prüfung von Direktverbindungen 325
Die Methode “aufbauenPotMinimalSammler:” legen wir wie folgt fest:
aufbauenPotMinimalSammler: minSammler
| feld sammler |
sammler := Set new.
self bereitstellenDirektverbindung do:
[:einObjekt|feld := Array new:3.
feld at:1 put: (einObjekt at:1);
at:2 put: (einObjekt at:2) + (minSammler at:2);
at:3 put: self.
sammler add: feld].
∧ sammler
Die Methode “abgleichenErreicht:geprueft:” vereinbaren wir wie folgt:
abgleichenErreicht: erSammler geprueft: geSammler
| sammler1 sammler2 |
sammler1:=geSammler collect:[:einArray|einArray at: 1].
sammler2:=SortedCollection sortBlock:[:x :y|(x at:2)