You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
555 B
30 lines
555 B
function coupon3() {
|
|
int coup0 := 0;
|
|
int coup1 := 0;
|
|
int coup2 := 0;
|
|
|
|
int draw1 := 0;
|
|
int draw2 := 0;
|
|
int draw3 := 0;
|
|
|
|
int numberDraws := 0;
|
|
|
|
while (!(coup0 = 1) | !(coup1 = 1) | !(coup2 = 1)) {
|
|
draw1 := unif(0,2);
|
|
draw2 := unif(0,2);
|
|
draw3 := unif(0,2);
|
|
numberDraws := numberDraws + 1;
|
|
|
|
observe (draw1 != draw2 & draw1 != draw3 & draw2 != draw3);
|
|
|
|
if(draw1 = 0 | draw2 = 0 | draw3 = 0) {
|
|
coup0 := 1;
|
|
}
|
|
if(draw1 = 1 | draw2 = 1 | draw3 = 1) {
|
|
coup1 := 1;
|
|
}
|
|
if(draw1 = 2 | draw2 = 2 | draw3 = 2) {
|
|
coup2 := 1;
|
|
}
|
|
}
|
|
}
|