In Haskell. Two points: 1. pruning 2. Int suffers from overflow. Integer it is.
getPowerSum :: Integer -> [Integer] -> Integer -> Integer getPowerSum _ [] _ = 0 getPowerSum tgt cand start = case compare tgt start of EQ -> 1 LT -> 0 GT -> let newCand = filter (>start) cand in let newTgt = tgt - start in sum $ map (getPowerSum newTgt newCand) newCand getPowerSumWays :: Integer -> Integer -> [Integer] getPowerSumWays x n = let cand = [i^n | i <- [1..x], (i ^ n) <= x] in map (getPowerSum x cand) cand -- Main -- main = do sx <- getLine sn <- getLine let x = read sx :: Integer let n = read sn :: Integer print $ sum $ getPowerSumWays x n
分类:
HackerRank
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· Linux glibc自带哈希表的用例及性能测试
· 深入理解 Mybatis 分库分表执行原理
· 如何打造一个高并发系统?
· .NET Core GC压缩(compact_phase)底层原理浅谈
· 现代计算机视觉入门之:什么是图片特征编码
· 手把手教你在本地部署DeepSeek R1,搭建web-ui ,建议收藏!
· Spring AI + Ollama 实现 deepseek-r1 的API服务和调用
· 数据库服务器 SQL Server 版本升级公告
· 程序员常用高效实用工具推荐,办公效率提升利器!
· C#/.NET/.NET Core技术前沿周刊 | 第 23 期(2025年1.20-1.26)