Haskell - 与えられたリストのすべての数で割り切れる無限リスト

Question

私はまだHaskellの初心者ですが、現在私は無限リストを生成するための関数を作成しようとしています（10例えば、）最初の10の数字を取る。これは与えられた別のリストで割り切れる。私はしかし、私は常に、実際と予想されるタイプ 『ブール』と一致しませんでした」エラーを取得し、再帰を通してそれを解決しようとしているということであるあなたが通知を持っているよう

myCode :: [Int] -> [Int] 
myCode (a:as) = [ x | x <- [0..] , x `mod` a == 0 , x `mod` myCode as ==0] 

：ここ

が私の考えです'[Int]'と入力してください。 私はこの特定の問題を解決する他の方法がわからないので、少し紛失しています。

Answer 1

ここで再帰を使用する必要はありません：

alldiv :: [Int] -> Int -> Bool 
alldiv l b = all ((==) 0 . mod b) l 

あるいはmyCodeにローカルにそれを添付：あなたはalldivには書き換えることができ

alldiv :: [Int] -> Int -> Bool 
alldiv l b = all (\n -> b `mod` n == 0) l 

myCode :: [Int] -> [Int] 
myCode as = [ x | x <- [0..] , alldiv as x] 

：

単に条件として all（または any）を使用します

myCode :: [Int] -> [Int] 
myCode as = [ x | x <- [0..] , alldiv x] 
    where alldiv b = all ((==) 0 . mod b) as 

最後にyo

myCode :: [Int] -> [Int] 
myCode as = filter alldiv [0..] 
    where alldiv b = all ((==) 0 . mod b) as 

EDIT

リスト内の1つの要素が周器である、あなただけanyとallを交換する必要があることに十分であるので：Uはあなたが単にfilterを使用することができ、リストの内包は必要ありません。