WMA link
Intersection
Intersection[{1000, 100, 10, 1}, {1, 5, 10, 15}]
Intersection[{{a, b}, {x, y}}, {{x, x}, {x, y}, {x, z}}]
Intersection[{c, b, a}]
Intersection[{1, 2, 3}, {2, 3, 4}, SameTest->Less]