vin / challenge

Python challenge and project euler

challenge / euler / euler050.hs
100644 10 lines (5 sloc) 0.192 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10

import Data.List
import Primes
 
 
primeSumSeqs = map (scanl1 (+)) (tails primes)
 
primeSums = map (last . takeWhile (<1000000)) $ primeSumSeqs
 
main = print . head . filter isPrime $ primeSums