tempest/examples/pgcl/coupon/coupon5-observe.pgcl

function coupon5() {
	int coup0 := 0;
	int coup1 := 0;
	int coup2 := 0;
	int coup3 := 0;
	int coup4 := 0;

	int draw1 := 0;
	int draw2 := 0;
	int draw3 := 0;

	int numberDraws := 0;

	while (!(coup0 = 1) | !(coup1 = 1) | !(coup2 = 1) | !(coup3 = 1) | !(coup4 = 1)) {
		draw1 := unif(0,4);
		draw2 := unif(0,4);
		draw3 := unif(0,4);
		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;
		}
		if (draw1 = 3 | draw2 = 3 | draw3 = 3) {
			coup3 := 1;
		}
		if (draw1 = 4 | draw2 = 4 | draw3 = 4) {
			coup4 := 1;
		}
	}
}