Liebe alle,

anbei HÜ Gruppe 1!

Viele Grüße

Katharina, Kenan, Johann

Übung1:

tmpColl = .directory ~new

tmpColl["x_index"] = "x"

tmpColl ~"[]="("y", "y_index")

tmpColl ~~PUT("z", "z_index")

tmpColl ~abc= "Alphabet"

tmpColl ~mfg="Mit freundlichen Grüßen"

SAY "Acronym 'ABC':" tmpColl~abc || ", 'MFG':" tmpColl~mfg

SAY tmpColl~string":"

DO i OVER tmpColl

SAY "["i"]"

END

Output:

REXXout>Acronym 'ABC': Alphabet, 'MFG': Mit freundlichen Grüßen

REXXout>a Directory:

REXXout>[z_index]

REXXout>[y_index]

REXXout>[MFG]

REXXout>[x_index]

REXXout>[ABC]

ÜBUNG 2:

coll_1 = .bag ~of("Apfel", "Orange", "Kirsche", "Banane")

coll_2 = .bag ~of( "Banane", "Kirsche", "Kiwi", "Zwetschke")

CALL dump coll_1~UNION(coll_2), "UNION "

CALL dump coll_1~INTERSECTION(coll_2), "INTERSECTION"

CALL dump coll_1~XOR(coll_2), "XOR "

CALL dump coll_1~DIFFERENCE(coll_2), "DIFFERENCE "

SAY coll_1~SUBSET(coll_1) "-" coll_1~SUBSET(coll_2)

::ROUTINE dump

USE ARG tmpColl, title

.output~CHAROUT( title tmpColl~string": ")

DO i OVER tmpColl

.output~CHAROUT("["i"] ")

END

.output~say

OUTPUT:

UNION  a Bag: [Apfel] [Zwetschke] [Kiwi] [Kirsche] [Kirsche] [Orange] [Banane] [Banane]

INTERSECTION a Bag: [Kirsche] [Banane]

XOR  a Bag: [Apfel] [Zwetschke] [Kiwi] [Orange]

DIFFERENCE  a Bag: [Apfel] [Orange]

REXXout>1 - 0