[M.A.D.M.A.N.]

Правильно?

Код:

Prelude Data.List> let foo x y = minimum $ filter (\i -> null $ elemIndex i $ nub x) y
Prelude Data.List> foo [1,2,3,55,99] [1,2,3,4,5,55,99,55,6,7,8,9,10,11,12,55,27,74,163
4
Результат фильтра: [4,5,6,7,8,9,10,11,12,27,74,163]

Вариант, работающий чуд-чуть побыстрее:

Код:

Prelude Data.List> let foo x y = minimum $ filter (\i -> null $ elemIndex i $ x) y