集合とその要素数と / Intersection[]、Union[]、Complement[]

チャート式絶対に身につけたい数学1+Aの基本 (チャート式・シリーズ), p.88, チェック26 (1)

全体集合u、部分集合a, bが与えられたとき、下のそれぞれの要素数を求めよ。

u=Range[15];(*全体集合*)
a={1,2,4,7,8,9,12,15};(*部分集合*)
b={1,4,6,7,9};(*部分集合*)

(*a ∩ b*)
Intersection[a,b]
Length[%] (*~の要素数*)

(*a ∪ b*)
Union[a,b]
Length[%] 

(*bの補集合*)
Complement[u,b]
Length[%] 

(*(a ∪ b)の補集合*) 
Complement[u,Union[a,b]]
Length[%] 

(*a ∩ (bの補集合)*)
Intersection[a,Complement[u,b]]
Length[%] 

(*(aの補集合) ∩ b*)
Intersection[Complement[u,a],b]
Length[%]