Komplement

TYPE Colour = (red, green, blue, white, black); ColourSet = SET OF Colour; CONST allcolours = ColourSet{MIN(Colour) .. MAX(Colour)}; PROCEDURE Complement(colours: ColourSet) : ColourSet; BEGIN RETURN allcolours - colours END Complement;

In Modula-2 fehlt (im Gegensatz zu Oberon) ein Komplement-Operator. Der entsprechende Effekt läßt sich jedoch mit Hilfe einer Menge, die alle Elemente enthält, und der Differenz erreichen.

Wie an diesem Beispiel zu sehen ist, ist es (wie sonst auch) sehr zu empfehlen, Basistypen auch dann einen Namen zu geben, wenn sie für Variablen nie verwendet werden. Hier ist der Name des Basistyps für die Verwendung von MIN und MAX nützlich.

	In Modula-2 fehlt (im Gegensatz zu Oberon) ein Komplement-Operator. Der entsprechende Effekt läßt sich jedoch mit Hilfe einer Menge, die alle Elemente enthält, und der Differenz erreichen.
	Wie an diesem Beispiel zu sehen ist, ist es (wie sonst auch) sehr zu empfehlen, Basistypen auch dann einen Namen zu geben, wenn sie für Variablen nie verwendet werden. Hier ist der Name des Basistyps für die Verwendung von MIN und MAX nützlich.