練習がてら. primes :: [Integer] primes = 2:3:5:7: (filter isPrime xs) where xs = concat $ iterate (map (+10)) [11,13,17,19] isPrime :: Integer -> Bool isPrime n | n <=1 = False isPrime n = and $ map ((==1) . (gcd n)) $ takeWhile (<=sqrt' n…