blob: 1e9148b2115e3249c136f4ef6a7b6dc16af6a967 (
plain)
1
2
3
4
5
6
7
8
9
|
import H40
goldbachList :: Integer -> Integer -> [(Integer,Integer)]
goldbachList a b
| a `mod` 2 == 0 = map goldbach [a,(a+2)..b]
| otherwise = goldbachList (a+1) b
goldbachList' a b = filter ((>50).fst) $ goldbachList a b
|
