根据列表元素创建过滤条件(Creating filter conditions based on list elements)

 我有兴趣创建一个过滤器，其条件取决于输入列表。 具体来说，我想定义过滤器，以便检查数字是否可以被输入列表中的任何数字整除。 因此对于单个元素将是： 
 
my_filter a = filter (\x -> x `mod` a == 0)
 
 基本上我想扩展这个，如果我有一个输入列表，它将执行以下操作： 
 
my_filter [a,b] = filter (\x -> x `mod` a == 0 || x `mod` b == 0)
 
 如何递归定义此过滤器，以便列表的每个元素创建一个新条件？ 

I'm interested in creating a filter, whose conditions depend on an input list. Specifically, I want to define the filter such that it checks whether a number is divisible by any number in my input list. So for a single element that would be:
 
my_filter a = filter (\x -> x `mod` a == 0)
 
basically I want to extend this such that if I have an input list, it would do the following:
 
my_filter [a,b] = filter (\x -> x `mod` a == 0 || x `mod` b == 0)
 
How can I define this filter recursively, such that each element of the list creates a new condition?

原文：https://stackoverflow.com/questions/41595863