Add application for profiling

Bodigrim · Dec 1, 2019 · 9c36761 · 9c36761
1 parent 5ec05a1
commit 9c36761
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/app/Atkin.hs b/app/Atkin.hs
@@ -0,0 +1,9 @@
+module Main where
+
+import Math.NumberTheory.Primes
+
+atkin :: (Int, Int) -> Int
+atkin (p, q) = sum $ atkinPrimeList $ atkinSieve p q
+
+main :: IO ()
+main = print $ atkin (10000000000,100000000)
diff --git a/arithmoi.cabal b/arithmoi.cabal
@@ -234,3 +234,14 @@ executable sequence-model
   main-is: SequenceModel.hs
   hs-source-dirs: app
   default-language: Haskell2010
+
+executable atkin
+  build-depends:
+    base,
+    arithmoi,
+    containers
+  buildable: True
+  main-is: Atkin.hs
+  hs-source-dirs: app
+  default-language: Haskell2010
+  ghc-options: -O2 -Wall