リスト要素に基づくフィルタ条件の作成

Question

条件を入力リストに依存するフィルタの作成に興味があります。具体的には、フィルタを定義して、入力リストの任意の数で数値が割り切れるかどうかをチェックしたいと考えています。そうだろう、単一の要素について：

my_filter a = filter (\x -> x `mod` a == 0) 

基本的に私は入力リストを持っている場合、それは次の操作を行うであろうと、このような拡張したい：

my_filter [a,b] = filter (\x -> x `mod` a == 0 || x `mod` b == 0) 

どのように私はこのフィルタを定義することができます再帰的に、リストの各要素が新しい条件を作成するように？

my_filter divisors = filter (\x -> or $ map ((0 ==) . (x `mod`)) divisors) 

すべての値は除数た場所をフィルタリングしたい場合は、あなただけのandにorを変更する必要があります。

Answer 1

は何あなたが探しているのはor機能です。それを行うには

もう一つの方法は、

my_filter divisors = filter (\x -> any (== 0) $ map (x `mod`) divisors) 

だろうこれらは、ほんの少し異なるスタイル同等の機能です。