Dati due vettori A[1..k] e B[1..n] dire se hanno almeno un elemento in comune.

Boolean ElemComune(A, start, end, B, n){

	if (start == end){ //A ha lunghezza 1
		for (i = 1, i <= n, i++){
			if (A[start] == B[i]) return T;
		}
		return false;
	}

	m = (start+end)/2; //divisione intera
	return ElemComune(A, start, m, B, n) OR
	       ElemComune(A,m+1,end,B,n);

}