Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
7 lines (5 sloc) 168 Bytes
module Problem_7
( solve
) where
primes = func [2..] where func (prime:xs) = prime : func [x | x <- xs, x `mod` prime /=0]
solve = last $ take 10001 $ primes
You can’t perform that action at this time.