Tony's Log

Algorithms, Distributed System, Machine Learning

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
  502 随笔 :: 0 文章 :: 3 评论 :: 11万 阅读
< 2025年1月 >
29 30 31 1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31 1
2 3 4 5 6 7 8

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
复制代码
posted on   Tonix  阅读(226)  评论(0编辑  收藏  举报
编辑推荐:
· 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)
点击右上角即可分享
微信分享提示