(Subscript[ℓ, 1]) and LS distance between centers of two sets A, B

Input: sets A,B;
Output: distance between sets A,B;
Submodules: none needed

(* (Subscript[ℓ, 1]) distance between sets *)
DC1[A_,B_]:=
Module[{cA,cB},Print["cA=",cA=Median[A],", cB=",cB=Median[B],";  d1(cA,cB)=",Norm[cA-cB,1]]]

(* LS distance between sets *)
DC2[A_,B_]:=Module[{cA,cB},Print["cA=",cA=Total[A]/Length[A],", cB=",cB=Total[B]/Length[B],";  dLS(cA,cB)=",Norm[cA-cB]^2]]