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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 其它 » Euler 工程 第三十六题：
192/2返回列表上一页12
查看: 1848  |  回复: 18
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 5 个 程序强帖 ，点击这里进行查看

holmescn

金虫 (正式写手)
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-12 16:13:39
引用回帖:
Originally posted by sudo at 2011-07-07 20:11:44:
PS：上面的程序抄袭了两段著名的代码~可惜判定十进制回文的地方太丑陋了~

我觉得这个方法很tricky啊，挺好的啊。
赞一下(1人) 回复此楼
11楼2011-07-07 20:32:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-12 16:13:30
引用回帖:
Originally posted by sudo at 2011-07-07 18:59:59:
呃，0和1明显也是十进制和二进制都回文的数吧？

我觉得一位数就不能说是回文了吧。
赞一下(1人) 回复此楼
12楼2011-07-07 20:35:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)
★ ★
xzhdty(金币+1): 谢谢参与 2011-07-07 22:56:16
dubo(金币+1, 程序强帖+1): 欢迎常来程序语言版讨论 2011-07-12 16:13:17
再show一个C＋＋版吧
CODE:
#include
#include
#include
#include
#include

using namespace std;

bool checkDec(int n) {
    string buf, rbuf;
    stringstream ss;
    // Here convert integer to string
    // using stringstream
    ss<>buf;
    rbuf = buf;
    // reverse is a standard algorithm
    // in STL
    reverse(rbuf.begin(), rbuf.end());

    if (buf == rbuf) {
        return true;
    }
    return false;
}

bool checkBin(int n) {
    // Here convert integer to base-2
    // string by bitset.to_string()
    bitset<32> bin(n);
    string str = bin.to_string();
    // Delete extra zeros at the beginning
    str.erase(str.begin(), str.begin()+str.find('1'));

    string rstr = str;
    reverse(rstr.begin(), rstr.end());

    if (str == rstr) {
        return true;
    }
    return false;
}

int main(int argc, const char *argv[])
{
    int sum = 0;
    // In order to satisfy binary condition
    // the number must be even
    for(int i = 11; i < 1000000; i += 2){
        if (checkDec(i) && checkBin(i)) {
            cout<             sum += i;
        }
    }
    cout << "sum=" << sum << endl;
    return 0;
}
赞一下(2人) 回复此楼
13楼2011-07-07 21:04:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sudo

木虫 (正式写手)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-12 16:13:05
引用回帖:
Originally posted by holmescn at 2011-07-07 20:31:00:
too many magic numbers, tricky & unreadable......

Hacker's Delight (中文名《高效程序的奥秘》=,=汗一下这个译名)

里面这种代码一抓一大把

不过确实是把指令数精简到了相当程度的高度~
赞一下(2人) 回复此楼
14楼2011-07-07 21:51:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

libralibra

至尊木虫 (著名写手)

骠骑将军
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-12 16:12:53
发现reverse的bin string要等于原来的,最后一位必是1,所以原来十进制肯定是奇数,加上这个条件可以节省近一半时间
CODE:
#! /usr/bin/env python

from mytictoc import tic, toc

def euler36():
    tic()
    print sum([_x for _x in xrange(1,1000001) if _x%2 and str(_x)==str(_x)[::-1] and bin(_x)[2:]==bin(_x)[2:][::-1]])
    toc()

if __name__=='__main__':
    euler36()

时间对比:
CODE:
>>>
872187
Elapsed time: 1.22949174 seconds

>>>
872187
Elapsed time: 0.72724746 seconds
赞一下(2人) 回复此楼
matlab/VB/python/c++/Java写程序请发QQ邮件:790404545@qq.com
15楼2011-07-08 01:17:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sudo

木虫 (正式写手)
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-12 16:12:22
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-12 16:12:44
引用回帖:
Originally posted by libralibra at 2011-07-08 01:17:59:
发现reverse的bin string要等于原来的,最后一位必是1,所以原来十进制肯定是奇数,加上这个条件可以节省近一半时间

[code]#! /usr/bin/env python

from mytictoc import tic, toc

def euler36():
    tic ...

为什么不直接xrange步长为2呢？比x%2效率高一点应该

另，在这方面节约时间的话，最终就变得像楼主的程序一样了，直接生成十进制的循环数，加上奇数的限制，缩小很多范围...
赞一下(3人) 回复此楼
16楼2011-07-08 08:31:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-12 16:12:07
dubo(程序强帖+1): 2011-07-12 16:12:32
再来个C语言版的：
CODE:
#include

int checkDec(int n) {
    int t = 0;
    int v = n;

    while (v) {
        t = 10*t + v%10;
        v /= 10;
    }
    return t == n;
}

int checkBin(int n) {
    int len = 31;
    int left = 1 << 30;
    int right = 1;
    int i;

    while(!(n & left)) {
        len -= 1;
        left >>= 1;
    }

    for(i = 0; i < len/2 + len%2; i++) {
        if (((n&left^left) > 0) ^ ((n&right^right) > 0)) {
            return 0;
        }
        left  >>= 1;
        right <<= 1;
    }
    return 1;
}

int main(int argc, const char *argv[])
{
    int i, sum = 0;
    for (i = 1; i < 1000000; i+=2) {
        if(checkDec(i) && checkBin(i)) {
            printf("%d\n", i);
            sum += i;
        }
    }
    printf("sum=%d", sum);
    return 0;
}
赞一下(2人) 回复此楼
17楼2011-07-08 14:01:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

libralibra

至尊木虫 (著名写手)

骠骑将军
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-12 16:11:50
引用回帖:
Originally posted by sudo at 2011-07-08 08:31:05:
为什么不直接xrange步长为2呢？比x%2效率高一点应该

另，在这方面节约时间的话，最终就变得像楼主的程序一样了，直接生成十进制的循环数，加上奇数的限制，缩小很多范围...

汗...我呆了,忘记step这回事儿了,又提高0.1s
赞一下(2人) 回复此楼
matlab/VB/python/c++/Java写程序请发QQ邮件:790404545@qq.com
18楼2011-07-08 14:25:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tieer

木虫 (正式写手)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-12 16:11:39
Python里加个步长，计算量要少一半。呵呵， 这个确实没想到，佩服，

[ Last edited by tieer on 2011-7-10 at 08:22 ]
赞一下(2人) 回复此楼
思考，让这个世界更有趣。
19楼2011-07-10 08:21:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 holmescn 的主题更新
192/2返回列表上一页12
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[教师之家] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +4 GDBe8tDZqE8z 2026-09-28 4/200 2026-09-29 09:49 by JzYBbHIXWSrW
[找工作] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +5 IDs3scOF0tjC 2026-09-28 5/250 2026-09-29 09:24 by JzYBbHIXWSrW
[博后之家] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +5 IDs3scOF0tjC 2026-09-28 6/300 2026-09-29 09:18 by JzYBbHIXWSrW
[考研] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +3 ZYXdhzDAy9ZX 2026-09-28 3/150 2026-09-29 06:42 by ZvyPK8n6Nfki
[找工作] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +3 ZYXdhzDAy9ZX 2026-09-28 3/150 2026-09-29 06:34 by ZvyPK8n6Nfki
[找工作] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +3 ZYXdhzDAy9ZX 2026-09-28 3/150 2026-09-29 06:28 by ZvyPK8n6Nfki
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 ZYXdhzDAy9ZX 2026-09-28 3/150 2026-09-29 06:18 by ZvyPK8n6Nfki
[硕博家园] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +3 tqUTOxClQUMF 2026-09-28 3/150 2026-09-28 23:46 by b8fCuTHqckEt
[考博] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +4 GDBe8tDZqE8z 2026-09-28 4/200 2026-09-28 23:19 by b8fCuTHqckEt
[考研] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 GDBe8tDZqE8z 2026-09-28 3/150 2026-09-28 23:12 by b8fCuTHqckEt
[公派出国] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +4 IDs3scOF0tjC 2026-09-28 4/200 2026-09-28 22:55 by ez6fGg9abYaj
[硕博家园] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +3 CfXuS1rDhLYN 2026-09-28 4/200 2026-09-28 22:55 by ez6fGg9abYaj
[有机交流] 同一个分子，一条来自文献，一条来自AI——不告诉你答案，你会选哪条？ +3 tianxiaoxian 2026-09-28 6/300 2026-09-28 22:44 by tianxiaoxian
[找工作] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +3 IDs3scOF0tjC 2026-09-28 5/250 2026-09-28 22:32 by ez6fGg9abYaj
[公派出国] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 IDs3scOF0tjC 2026-09-28 4/200 2026-09-28 22:28 by ez6fGg9abYaj
[博后之家] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +3 IDs3scOF0tjC 2026-09-28 3/150 2026-09-28 22:21 by ez6fGg9abYaj
[考博] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +3 IDs3scOF0tjC 2026-09-28 6/300 2026-09-28 22:15 by ez6fGg9abYaj
[论文投稿] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +3 CfXuS1rDhLYN 2026-09-28 3/150 2026-09-28 19:08 by 9lS3ad5oOymn
[考研] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 IDs3scOF0tjC 2026-09-28 4/200 2026-09-28 18:51 by 9lS3ad5oOymn
[教师之家] 某top大学教授说“能够在市场中兑现的能力才是真能力”无比同意！ +7 zju2000 2026-09-26 8/400 2026-09-28 16:42 by beefly
信息提示
关闭
请填处理意见
关闭