求最大素因子，速度太慢了

李营长

isPrime :: Integer->Bool
isPrime x = null [y | y<-[2..floor (sqrt (fromIntegral x))], x `mod` y == 0]

problem3 =
        [ x | x <- 2:[3,5..n], n `mod` x == 0, isPrime x]
        where n = 600851475143


haskell没有 100%占用cpu，算起来特别慢  

yulihua49

李营长 发表于 2013-03-07 16:14
isPrime :: Integer->Bool
isPrime x = null [y | y

从高到低，用fema小定理