Aus den ersten 100 Zahlen wird zufällig eine Zahl ausgewählt.
Wie groß ist die Wahrscheinlichkeit, dass die ausgewählte Zahl
durch 4 oder durch 6 teilbar ist.
Anleitung: W(A or B) = W(A)+W(B)-W(A and B)

S:makelist(i,i,1,100);

S:setify(S);

m:cardinality(S);

T4:subset(S,lambda([e],is(mod(e,4)=0)));

T6:subset(S,lambda([e],is(mod(e,6)=0)));

T4and6:intersection(T4,T6);

Direkte Berechnung der Wahrscheinlichkeit

T4or6:union(T4,T6);

g[T4or6]:cardinality(T4or6);

W[T4or6]:g[T4or6]/m;

Indirekte Berechnung nach dem Additionssatz

g[T4]:cardinality(T4);

W[T4]:g[T4]/m;

g[T6]:cardinality(T6);

W[T6]:g[T6]/m;

g[T4and6]:cardinality(T4and6);

W[T4and6]:g[T4and6]/m;

W:W[T4]+W[T6]-W[T4and6];