blob: 049e6a3e04ee4943a32fadda80156ed89a234006 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
import Control.Exception (evaluate)
import System.Console.GetOpt
import Data.Array.Parallel.PArray (PArray)
import qualified Data.Array.Parallel.PArray as P
import PrimesVect (primesVect)
import Debug.Trace
primesList :: Int -> [Int]
primesList 1 = []
primesList n = sps ++ [ i | i <- [sq+1..n], multiple sps i ]
where
sps = primesList sq
sq = floor $ sqrt $ fromIntegral n
multiple :: [Int] -> Int -> Bool
multiple ps i = and [i `mod` p /= 0 | p <- ps]
main
= do let n = 1000
let resultViaNDP = P.toList $ primesVect n
let resultViaLists = primesList n
print resultViaNDP
print resultViaLists
print $ resultViaNDP == resultViaLists
|
