Suppose I have the reference list a
and a matrix otherLists
of all other lists I want to compare against a
:
otherLists[[Ordering[LengthotherLists[[Ordering[Length[#] & /@ (Complement[a, #]&#] & /@ otherLists), 1]]]
This will return the list that best matches a
.