如何計算兩個邊界之間的素數雙胞胎？

Question

我試圖計算前20個素數有他們之間的2號空缺 - EG 3和5

divides :: Integer -> Integer -> Bool 
divides x y = y `mod` x == 0 

prime :: Integer -> Bool 
prime n = n > 1 && and [not(divides x n) | x <- [2..(n-1)]] 

allprimes :: [Integer] 
allprimes = [x | x<- [2..], prime x] 

primeTest3 :: Integer -> [Integer] 
primeTest3 n = [ if y - x == 2 then y else x | x <- [3..n], y <- [2..n], prime x] 

這個工程到一定程度時，如果n = 20，則輸出爲3, 5, ,5, 5, 5, 5, 7, 7, 7, 7, 7, 9, 7, 7, 7, 7, 9, 9, 9..等這顯然是由於if語句。我怎樣才能打印出多少孿生素數之間有一定的數字沒有重複？

Answer 1

要組織我在評論中寫道：

areTwoApart (x,y) = y - x == 2 
filter areTwoApart (zip allprimes (tail allprimes)) 

...會給你素對的列表，沒有重複：

Prelude> take 10 $ filter areTwoApart (zip allprimes (tail allprimes)) 
[(3,5),(5,7),(11,13),(17,19),(29,31),(41,43),(59,61),(71,73),(101,103),(107,109)] 

至於你的最後一個問題「有多少孿生素數之間有一定的數字沒有重複「，我不確定你是什麼意思的」之間「。但你可以使用上面的函數來實現它。