We use cookies to ensure you have the best browsing experience on our website. Please read our cookie policy for more information about how we use cookies.
  1. Prepare
  2. Functional Programming
  3. Recursion
  4. The Sums of Powers
  5. Discussions

The Sums of Powers

  • chandlerbrlw
     + 0 comments

    Brute force solution... Fails on the timed case :(

    import Data.List

solve x n = length . filter ((x ==) . sum) . subsequences $ ls
    where ls = [p ^ n | p <- [1 .. round $ fromIntegral x ** (1 / fromIntegral n)]]
    
main = do
    [x,n] <- getContents >>= (\s -> return . map read $ lines s)
    print $ solve x n