Факторизация простых чисел с использованием понимания списка

Вот как бы я это сделал:

pfactors :: Integer -> [Integer]
pfactors n = [ p
             | p <- [2..n]                                  -- Possible factors
             , [d | d <- [1..p], p `mod` d == 0] == [1,p]   -- Are prime 
             , _ <- [ p | i <- [1..n], n `mod` p^i == 0] ]  -- Divisible powers

По сути, это то решение, которое у вас есть, но разница в том, что в конце есть дополнительное понимание списка, которое содержит столько элементов, сколько p делит на n.

Отказ от ответственности В реальности я бы так не поступил.

EDIT Я чувствовал себя грязным, когда писал выше, поэтому для справки, это что-то более близкое к тому, что я бы написал:

pfactors' :: Int -> [Int]
pfactors' = unfoldr firstFactor
  where
    firstFactor n =
        listToMaybe [(f, n `div` f)
                    | f <- [2..n]
                    , n `mod` f == 0]

Зависимости: Data.List (unfoldr), Data.Maybe (listToMaybe)