primeFactorization.hs

primeFactorization :: (Integral a) => a -> [a]
primeFactorization 0 = []
primeFactorization 1 = []
primeFactorization 2 = [2]
primeFactorization x = 
    let fstf = firstFactor x
        xx = (div x fstf)
    in [fstf] ++ primeFactorization xx

firstFactor :: Integral a => a -> a
firstFactor 0 = 0
firstFactor 1 = 1
firstFactor x = firstFactor' x 2
    where firstFactor' :: Integral a => a -> a -> a
          firstFactor' xx n
              | xx `mod` n == 0 = n
              | otherwise = firstFactor' xx (n + 1)

Integralの割り算はdiv使うっぽい