应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 其它 » Euler 工程 第廿题：100! 的各项和
61/1返回列表
查看: 1828  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 1 个 程序强帖 ，点击这里进行查看

holmescn

金虫 (正式写手)

[交流] Euler 工程 第廿题：100! 的各项和 已有4人参与

由于上面那个题比较简单了。再放一个题吧。这个有点意思了。

已知 n! = n(n-1)(n-2)...1
比如 10! = 10*9*8*7*6*5*4*3*2*1 = 3628800, 其各项和为3+6+2+8+8+0+0=27

那么100!的各项和是多少呢？

这个题用python、matlab、mathematica等支持大数乘法的语言当然很容易就得到结果了。所以这种算法现在Forbidden.

这里给出我用python算的结果为: 648

程序当然就一句（不是我写的）:
CODE:
sum([int(x) for x in str(reduce(lambda x, y: x*y, range(1, 101)))])
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2011-06-02 18:09:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

huycwork

金虫 (著名写手)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
dubo(金币+1): 多谢交流 2011-06-04 17:08:17
这样就只好用多项式乘法了呃~
赞一下(2人) 回复此楼
漩涡的中心有一块空地，空空的。
2楼2011-06-02 18:33:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wangww2011

木虫 (著名写手)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
dubo(金币+1): 多谢交流 2011-06-04 17:08:24
这一题和第16题一个类型
赞一下(2人) 回复此楼
3楼2011-06-02 21:54:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sudo

木虫 (正式写手)
★ ★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
dubo(金币+1): 多谢交流 2011-06-04 17:08:37
余泽成(金币+3, 程序强帖+1): 鼓励交流！ 2011-06-04 19:27:16
有点烦心事，今晚不想看书了，来献个丑...
CODE:
#include

int t[200]={1};

int main(){
    int i, j, sum=0, p=0;
    int q, r;
    for(i=2; i<=100; i++){
        for(j=0; j<=p; j++){
            t[j] *= i;
        }
        for(j=0; j<=p || t[j]>=10 ;j++){
            q = t[j]/10;
            r = t[j]%10;
            t[j+1] += q;
            t[j] = r;
        }
        p = j;
    }
    for(i=0; i<=p; i++){
        sum += t[i];
    }
    printf("%d digits in 100!, sum=%d\n", p+1, sum);
}

输出（在codeblocks下的gcc）：
CODE:
158 digits in 100!, sum=648

Process returned 0 (0x0)   execution time : 0.014 s
Press any key to continue.

PS1：咳，我一直觉得附上运行时间毫无意义......应该附上的是算法的时间复杂度比较合理.....

PS2：
100!共有的位数为：
取整(log 1 + log 2 + ... + log 100) + 1 = 158
赞一下(3人) 回复此楼
4楼2011-06-02 22:43:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

libralibra

至尊木虫 (著名写手)

骠骑将军
★
dubo(金币+1): 多谢交流 2011-06-04 17:09:54
Forbidden python,我就不贴了,哈哈, 跟楼主那句一模一样
赞一下(1人) 回复此楼
matlab/VB/python/c++/Java写程序请发QQ邮件:790404545@qq.com
5楼2011-06-03 16:38:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)
★
dubo(金币+1): 多谢交流 2011-06-04 17:10:01
引用回帖:
Originally posted by sudo at 2011-06-02 22:43:28:
有点烦心事，今晚不想看书了，来献个丑...

[code]
#include <stdio.h>

int t[200]={1};

int main(){
    int i, j, sum=0, p=0;
    int q, r;
    for(i=2; i<=100; i++){
       ...

主要时间复杂度不是谁都会的。现在参加的人已经很少了，所以就简单点来吧。
赞一下(1人) 回复此楼
6楼2011-06-04 08:44:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 holmescn 的主题更新
61/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[论文投稿] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +5 2rKfVQg2jQww 2026-11-06 13/650 2026-11-09 03:03 by l48hFd8Nwae2
[论文投稿] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 5sJFDKp2kwuI 2026-11-06 10/500 2026-11-09 02:52 by l48hFd8Nwae2
[考博] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +4 5sJFDKp2kwuI 2026-11-06 11/550 2026-11-09 02:48 by l48hFd8Nwae2
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +5 5sJFDKp2kwuI 2026-11-06 9/450 2026-11-08 22:46 by l48hFd8Nwae2
[硕博家园] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +3 5sJFDKp2kwuI 2026-11-06 9/450 2026-11-08 21:29 by l48hFd8Nwae2
[公派出国] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +8 ncTVBM6AOJHF 2026-11-04 23/1150 2026-11-07 06:49 by Equinoxhua
[公派出国] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +4 ELBZ6WwEaRj6 2026-11-05 5/250 2026-11-06 16:43 by 5sJFDKp2kwuI
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +6 ELBZ6WwEaRj6 2026-11-04 14/700 2026-11-06 16:32 by 5sJFDKp2kwuI
[考研] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +5 ELBZ6WwEaRj6 2026-11-04 10/500 2026-11-06 16:23 by 5sJFDKp2kwuI
[硕博家园] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +6 ncTVBM6AOJHF 2026-11-04 11/550 2026-11-06 13:47 by BkA9Bi5cMhkD
[考研] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +8 ncTVBM6AOJHF 2026-11-04 18/900 2026-11-06 13:36 by BkA9Bi5cMhkD
[硕博家园] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +8 ncTVBM6AOJHF 2026-11-04 14/700 2026-11-06 13:36 by BkA9Bi5cMhkD
[硕博家园] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 ELBZ6WwEaRj6 2026-11-05 5/250 2026-11-06 09:01 by 2lRNluKrJpwL
[考博] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +4 kvewwGtKktqB 2026-11-04 11/550 2026-11-06 05:10 by qL1cU46YIdK0
[公派出国] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +5 kvewwGtKktqB 2026-11-04 14/700 2026-11-06 05:10 by qL1cU46YIdK0
[硕博家园] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +6 kvewwGtKktqB 2026-11-04 16/800 2026-11-06 05:00 by qL1cU46YIdK0
[硕博家园] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +4 ncTVBM6AOJHF 2026-11-04 12/600 2026-11-06 04:47 by qL1cU46YIdK0
[公派出国] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 ELBZ6WwEaRj6 2026-11-04 9/450 2026-11-06 02:15 by qL1cU46YIdK0
[硕博家园] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 hNpp4Y2CGvSC 2026-11-04 12/600 2026-11-06 01:53 by qL1cU46YIdK0
[考博] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +6 ncTVBM6AOJHF 2026-11-04 10/500 2026-11-06 01:51 by qL1cU46YIdK0
信息提示
关闭
请填处理意见
关闭