primes.hs

primes :: Int -> [Int]
-- primes, que dado un entero n devuelve una lista con los n primeros primos.
primes x = take x (filter (isPrimo) [1..])

-- delegaciones

nextDiv :: Int -> Int -> Int
-- devuelve el siguiente divisor de x a partir de y
nextDiv x y
    | x == 1                        = 1
    | x == divisor || resto == 0    = divisor
    | otherwise                     = nextDiv x divisor
    
    where   divisor = y + 1
            resto   = (mod x divisor)

isPrimo :: Int -> Bool
isPrimo x = nextDiv x 1 == x