lazy4

lazy4.hs

factors :: Integral a => a -> [a] -> [a]
factors 1 _ = []
factors m (p:ps) | m < p*p = [m]
                 | r==0 = p:factors q (p:ps)
                 | otherwise = factors m ps
                 where (q,r) = quotRem m p