Исправление Waterlaz, 09.10.14 15:05 (текущая версия) :
Тогда уж
or [x == y | x <- list1, y <- list2]
Исходная версия Waterlaz, 09.10.14 15:04:
or [x == y | x <- list1, y <- list2] [\code]