Aufgabe:
Man bestimme für zwei Mengen die Relation „x ist ein Teiler von y“.
Code:
| „*“/* RELATION = TEILMENGE DER PRODUKTMENGE */; | |
| „*“/* Eingabe der Mengen */; | A:{3,4,8}; B:{4,16}; |
| „*“/* Berechnung der Produktmenge */; | AXB:cartesian_product(A,B); |
| „*“/* Relation x ist ein Teiler von y */; | R:subset(AXB,lambda([e],is(mod(e[2],e[1])=0))) /* lambda ist eine anonyme Funktion, e steht für das eingelesene Paar */; |
