10 001st Prime

.gitignore

@@ -0,0 +1,3 @@
+*.hi
+*.o
+main

0007/main.hs

@@ -0,0 +1,20 @@
+nthPrime :: Integer -> Integer
+nthPrime targetCount = nextPrimeImpl 2 1 []
+    where
+        nextPrimeImpl i primeCount primeList = 
+            if isPrime then
+                if primeCount == targetCount then
+                    i
+                else
+                    nextPrimeImpl (i + 1) (primeCount + 1) (primeList ++ [i])
+            else
+                nextPrimeImpl (i+1) primeCount primeList
+            where
+                isPrime =
+                    isPrimeImpl primeList
+                    where
+                        isPrimeImpl [] = True
+                        isPrimeImpl (x:xs) = i `mod` x /= 0 && isPrimeImpl xs
+
+main = do
+    putStrLn $ show $ nthPrime 10001