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

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

(* Minimal (Subscript[ℓ, 1]) distance *)
Dmin1[A_,B_]:=Min[Flatten[Table[Norm[a-b,1],{a,A},{b,B}],1]]

(* Minimal LS distance *)
Dmin2[A_,B_]:=Min[Flatten[Table[Norm[a-b]^2,{a,A},{b,B}],1]]