Axect · February 17, 2018 20:13
diff --git a/lazy4.hs b/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
	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