24小时热门版块排行榜    

CyRhmU.jpeg
查看: 1571  |  回复: 12
本帖产生 3 个 程序强帖 ,点击这里进行查看
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

holmescn

金虫 (正式写手)

[交流] Euler 工程 第三十题已有5人参与

又是一个指数的题啦!

说有3个数可以写成各位数字的4次方的和:

1634 = 1^4 + 6^4 + 3^4 + 4^4
8208 = 8^4 + 2^4 + 0^4 + 8^4
9474 = 9^4 + 4^4 + 7^4 + 4^4

虽然 1 = 1^4, 但这不是一个求和, 所以这个不算.

这三个数的和为: 1634 + 8208 + 9474 = 19316

那么那些数可以写成各位数字的5次方的和呢? 这些数的和又是多少?
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

qinghuoly

木虫 (正式写手)

★ ★ ★ ★
小木虫(金币+0.5):给个红包,谢谢回帖
dubo(金币+1): 欢迎常来程序语言版讨论 2011-06-19 15:30:47
微尘、梦想(金币+2): 请使用BBcode代码,详见维基百科BBcode 2011-06-19 17:25:25
上我代码,scheme语言

[define [ans30]
  [define N 1e7]
  [define [d x]
    [apply +
           [map [lambda [n] [expt n 5]]
                [map string->number
                     [map string
                          [string->list [number->string x]]]]]]]
  [define [fun n l flag]
    [if [> n [add1 N]]
        [if flag
            [cons [- n 1] l]
            l]
        [fun [add1 n]
             [if flag
                 [cons [- n 1] l]
                 l]
             [= n [d n]]]]]
  
  [apply + [fun 2 '[] #f]]]
;end of code
               
;答案:443839

;符合的数为:(194979 93084 92727 54748 4151 4150)

;N取值为1e7时cpu time: 76078 real time: 77312 gc time: 10089
;N取值为1e6时cpu time: 7453 real time: 7672 gc time: 638

[ Last edited by qinghuoly on 2011-6-19 at 12:14 ]
天地为帐,日月为灯,风雷为号角,云虹为旗令,山川为阵图,草木为兵卒。运阴阳五行为谋,策古今兴替为略。
8楼2011-06-19 12:11:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

qinghuoly

木虫 (正式写手)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖
jjdg(金币+1): 感谢参与 2011-06-20 11:59:03
引用回帖:
Originally posted by holmescn at 2011-06-19 17:02:07:
原来 scheme用的是方括号啊, 真是不习惯啊! 还是Lisp的圆括号好看,哈哈

我个人习惯方括号(输入时不用按shift)。
反正解释器把两种括号看作是一样的,用哪个的无所谓。
天地为帐,日月为灯,风雷为号角,云虹为旗令,山川为阵图,草木为兵卒。运阴阳五行为谋,策古今兴替为略。
12楼2011-06-20 08:33:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 holmescn 的主题更新
普通表情 高级回复(可上传附件)
信息提示
请填处理意见