Untitled
By: a guest | Feb 2nd, 2010 | Syntax:
Haskell | Size: 0.39 KB | Hits: 68 | Expires: Never
import Primes
import Control.Arrow
import Data.List
naturals = [0, 1..]
quadratics a b = [x * x + a * x + b | x <- naturals]
quadraticPrimes a b = takeWhile isPrime $ quadratics a b
qps = [(quadraticPrimes a b, a*b) | a <- [-1000..1000], b <- [-1000..1000]]