# Zwei Würfel oder zweimal würfeln

## Problembeschreibung

******************************************
Dokumentnummer: D1280
******************************************

Ein Würfel wird zweimal geworfen (oder zwei Würfel werden einmal
geworfen). Worauf setzt man  besser
a) auf Ziffernsumme 9
b) auf Ziffernsumme 10 ?

## Problemlösung

W:{1,2,3,4,5,6};

S:cartesian_product(W,W);

Ziffernsumme

S1:makeset(i+j,[i,j],S);

Ziffernprodukt

S2:makeset(i*j,[i,j],S);

Zifferndifferenz

S3:makeset(i-j,[i,j],S);

Zum Irrtum von G. W. Leibniz

S4:listify(S);

n:length(S);

S5:makelist(S4[i][1]+S4[i][2],i,1,n);

S6:sort(S5);

load(descriptive)$

gruppierung:discrete_freq(S6);

x:gruppierung[1];

h:gruppierung[2];

n:length(x);

N:sum(h[i],i,1,n);

p:h/N;