haskell - 数一下我可以划分多少次

Question

以下函数计算我将一个数字除以另一个数字的频率:

divs n p = if (n `mod` p == 0) then 1 + divs (n `div` p) p else 0

是否有更短的方式来编写div？

Answer 1

我的变体是:

factors :: Integral i => i -> i -> Int
factors f =
    length . takeWhile (== 0) .
    map (`mod` f) . iterate (`div` f)

迭代/映射模式对于许多问题都非常有用。