More than 5 years have passed since last update.
main :: IO ()
main = do
[n, m] <- map read . words <$> getLine
let factors = group $ primeFactors $ abs n
ans = product (map (h m . genericLength) factors) * 2 ^ (m - 1)
print $ (ans :: Integer) `mod` 1000000007
h n r = comb (n + r - 1) r
comb _ 0 = 1
comb n m = comb (n-1) (m-1) * n `div` m
Why not register and get more from Qiita?
- We will deliver articles that match you
By following users and tags, you can catch up information on technical fields that you are interested in as a whole
- you can read useful information later efficiently
By "stocking" the articles you like, you can search right away