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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 其它 » Euler 工程 第三十六题：
北京石油化工学院2026年研究生招生接收调剂公告
191/2返回列表12下一页
查看: 1557  |  回复: 18
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 5 个 程序强帖 ，点击这里进行查看

holmescn

金虫 (正式写手)

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

十进制数585是一个回文数，不仅如此，它的二进制表示：585=(1001001001)_2 也是一个回文数。

请找出小于100万的所有在十进制和二进制表示下都是回文数的数，求他们的和。

[ Last edited by holmescn on 2011-7-7 at 20:33 ]
回复此楼

» 猜你喜欢

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

holmescn

金虫 (正式写手)
★ ★ ★ ★
xzhdty(金币+1): 谢谢参与 2011-07-07 22:55:02
余泽成(金币+3, 程序强帖+1): 鼓励交流！ 2011-07-11 20:44:16
Python 穷举：
CODE:
# Project Euler Problem 36
#

def checkBinaryReverse(n):
    s = bin(n)[2:]
    r = s[::-1]
    if r == s:
        return True
    return False

# 2-, 3-, 4-digits
for x in xrange(1, 10, 2):
    # 2-digits
    n = int("%d"*2 % (x, x))
    if checkBinaryReverse(n):
        print n, "=>", bin(n)[2:]

    # 3-, 4-digits
    for y in xrange(1, 10):
        # 3-digits
        n = int("%d"*3 % (x, y, x))
        if checkBinaryReverse(n):
            print n, "=>", bin(n)[2:]
        # 4-digits
        n = int("%d"*4 % (x, y, y, x))
        if checkBinaryReverse(n):
            print n, "=>", bin(n)[2:]

        # 5-, 6-digits
        for z in xrange(1, 10):
            # 5-digits
            n = int("%d"*5 % (x, y, z, y, x))
            if checkBinaryReverse(n):
                print n, "=>", bin(n)[2:]
            # 6-digits
            n = int("%d"*6 % (x, y, z, z, y, x))
            if checkBinaryReverse(n):
                print n, "=>", bin(n)[2:]

CODE:
15351 => 11101111110111
33 => 100001
313 => 100111001
32223 => 111110111011111
39993 => 1001110000111001
53235 => 1100111111110011
53835 => 1101001001001011
585 => 1001001001
585585 => 10001110111101110001
717 => 1011001101
73737 => 10010000000001001
7447 => 1110100010111
99 => 1100011

速度太快，就不说了。
赞一下(2人) 回复此楼
2楼2011-07-07 17:13:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

libralibra

至尊木虫 (著名写手)

骠骑将军
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-10 15:41:59
余泽成(程序强帖+1): 鼓励交流！ 2011-07-11 20:45:09
嗯呢,能穷举的还是简单些的
CODE:
IDLE 2.6.6      
>>> print sum([_x for _x in xrange(1,1000001) if str(_x)==str(_x)[::-1] and str(bin(_x))[2:]==str(bin(_x))[2:][::-1]])
872187
>>>

[ Last edited by libralibra on 2011-7-7 at 17:27 ]
赞一下(3人) 回复此楼
matlab/VB/python/c++/Java写程序请发QQ邮件:790404545@qq.com
3楼2011-07-07 17:25:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-10 15:42:15
上面那个程序好像少一个9009，又改了一下。
CODE:
# Project Euler Problem 36
#

def checkBinaryReverse(n):
    s = bin(n)[2:]
    r = s[::-1]
    if r == s:
        return True
    return False

# odd digits
for x in xrange(1, 1000):
    n = int(str(x)+str(x)[::-1])
    if checkBinaryReverse(n):
        print n, "=>", bin(n)[2:]

# even digits
for x in xrange(1, 100):
    for y in xrange(10):
        n = int(str(x)+str(y)+str(x)[::-1])
        if checkBinaryReverse(n):
            print n, "=>", bin(n)[2:]
赞一下(1人) 回复此楼
4楼2011-07-07 17:28:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-10 15:42:26
引用回帖:
Originally posted by libralibra at 2011-07-07 17:25:03:
嗯呢,能穷举的还是简单些的
[code] IDLE 2.6.6      
>>> print sum([_x for _x in xrange(1,1000001) if str(_x)==str(_x)[::-1] and str(bin(_x))[2:]==str(bin(_x))[2:][::-1]])
872187
>> ...

您这穷举更直接。

bin就是返回一个str了，不用再转成str了
bin(x)[2:]就OK
赞一下(1人) 回复此楼
5楼2011-07-07 17:32:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

libralibra

至尊木虫 (著名写手)

骠骑将军
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-10 15:42:40
引用回帖:
Originally posted by holmescn at 2011-07-07 17:32:38:
您这穷举更直接。

bin就是返回一个str了，不用再转成str了
bin(x)[2:]就OK

哈哈,我看docs不细啊,bin的确返回的是string,str()浪费了
赞一下(2人) 回复此楼
matlab/VB/python/c++/Java写程序请发QQ邮件:790404545@qq.com
6楼2011-07-07 17:58:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sudo

木虫 (正式写手)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-10 15:42:51
引用回帖:
Originally posted by holmescn at 2011-07-07 16:29:31:
十进制数585是一个回文数，不仅如此，它的二进制表示：585=(1001001001)_2 也是一个回文数。

请找出小于100万的所有在十进制和二进制表示下都是回文数的数。

呃，0和1明显也是十进制和二进制都回文的数吧？
赞一下(2人) 回复此楼
7楼2011-07-07 18:59:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sudo

木虫 (正式写手)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
xzhdty(金币+1): 谢谢参与 2011-07-07 22:55:48
余泽成(程序强帖+1): 鼓励交流！ 2011-07-11 20:44:43
贴个暴力的，花哨的
CODE:
#include
#include

static const int deBruijn[32] =
{
    0, 9, 1, 10, 13, 21, 2, 29, 11, 14, 16, 18, 22, 25, 3, 30,  \
    8, 12, 20, 28, 15, 17, 24, 7, 19, 27, 23, 6, 26, 5, 4, 31   \
}; //二元五阶deBruijn序列B(2,5)：长度为5的子序列在整个序列中循环唯一

int main(){
    unsigned int i;
    uint32_t v, t;
    int bits;
    int digits;

    for(i=0; i<1000000; i++){
        //判定十进制回文
        v = i;
        t = 0;
        while(v){
            t = t*10 + v%10;
            v /= 10;
        }
        if(t!=i) continue; //若十进制不是回文跳回

        //计算二进制位数
        v = i | (i>>1);
        v |= v >> 2;
        v |= v >> 4;
        v |= v >> 8;
        v |= v >> 16; //把最高位的1右边全部置为0

        bits = deBruijn[(v * 0x07C4ACDDU) >> 27] + 1; //获得二进制表示的i值的位数，0x07C4ACDD是一个32bit的deBruijn序列

        //反转无符号整型i的二进制形式，并移动到和原来位数对齐的形式
        v = ((i>>1) & 0x55555555) | ((i & 0x55555555) << 1);
        v = ((v>>2) & 0x33333333) | ((v & 0x33333333) << 2);
        v = ((v>>4) & 0x0F0F0F0F) | ((v & 0x0F0F0F0F) << 4);
        v = ((v>>8) & 0x00FF00FF) | ((v & 0x00FF00FF) << 8);
        v = ((v>>16) | (v<<16)) >> (32-bits);

        //若二进制为回文则输出
        if(i==v){
            printf("%d\n", i);
        }
    }

    return 0;
}

输出
CODE:
0
1
3
5
7
9
33
99
313
585
717
7447
9009
15351
32223
39993
53235
53835
73737
585585

Process returned 0 (0x0)   execution time : 0.031 s
Press any key to continue.
赞一下(3人) 回复此楼
8楼2011-07-07 20:00:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sudo

木虫 (正式写手)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-10 15:43:00
PS：上面的程序抄袭了两段著名的代码~可惜判定十进制回文的地方太丑陋了~
赞一下(2人) 回复此楼
9楼2011-07-07 20:11:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-10 15:43:11
引用回帖:
Originally posted by sudo at 2011-07-07 20:00:07:
贴个暴力的，花哨的

[code]
#include <stdio.h>
#include <stdint.h>

static const int deBruijn[32] =
{
    0, 9, 1, 10, 13, 21, 2, 29, 11, 14, 16, 18, 22, 25, 3, 30,  \
    8,  ...

too many magic numbers, tricky & unreadable......
赞一下(1人) 回复此楼
10楼2011-07-07 20:31:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 holmescn 的主题更新
191/2返回列表12下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求调剂推荐 材料 304 +15 荷包蛋hyj 2026-03-26 15/750 2026-03-28 04:13 by fmesaito
[考研] 352分 化工与材料 +5 海纳百川Ly 2026-03-27 5/250 2026-03-28 03:39 by fmesaito
[考研] 一志愿211院校 344分 东北农业大学生物学学硕，求调剂 +5 丶风雪夜归人丶 2026-03-26 8/400 2026-03-27 19:22 by 丶风雪夜归人丶
[考研] 308求调剂 +6 墨墨漠 2026-03-27 6/300 2026-03-27 15:20 by caszguilin
[考研] 0856调剂 +5 求求让我有书读� 2026-03-26 6/300 2026-03-27 15:12 by caszguilin
[考研] 298调剂 +3 jiyingjie123 2026-03-27 3/150 2026-03-27 11:57 by wxiongid
[考研] 调剂推荐 +5 清酒714 2026-03-26 6/300 2026-03-27 11:12 by 不吃魚的貓
[考研] 359求调剂 +4 王了个楠 2026-03-25 4/200 2026-03-27 08:43 by 不吃魚的貓
[考研] 求调剂，一志愿 南京航空航天大学大学 ，080500材料科学与工程学硕 +4 @taotao 2026-03-26 5/250 2026-03-27 08:10 by hypershenger
[考研] 324求调剂 +8 hanamiko 2026-03-26 10/500 2026-03-27 08:06 by hypershenger
[考研] 材料调剂 5+4 想要一壶桃花水 2026-03-25 10/500 2026-03-26 19:56 by 不吃魚的貓
[考研] 生物学 296 求调剂 +4 朵朵- 2026-03-26 6/300 2026-03-26 19:01 by 不吃魚的貓
[考研] 085600 材料与化工 329分求调剂 +9 Mr. Z 2026-03-25 9/450 2026-03-26 10:36 by baoball
[考研] 网络空间安全0839招调剂 +4 w320357296 2026-03-25 6/300 2026-03-25 17:59 by 255671
[考研] B区考研调剂 +4 yqdszhdap－ 2026-03-22 5/250 2026-03-25 08:51 by baoball
[考研] 080500求调剂 +3 zzzzfan 2026-03-24 3/150 2026-03-24 16:38 by barlinike
[考研] 一志愿吉大化学322求调剂 +4 17501029541 2026-03-23 6/300 2026-03-24 10:21 by 戴围脖的小蚊子
[考研] 一志愿重庆大学085700资源与环境，总分308求调剂 +7 墨墨漠 2026-03-23 8/400 2026-03-23 20:36 by Creta
[考研] 276求调剂 +3 YNRYG 2026-03-21 4/200 2026-03-23 08:31 by 醉在风里
[考研] 308求调剂 +3 墨墨漠 2026-03-21 3/150 2026-03-22 16:54 by i_cooler
信息提示
关闭
请填处理意见
关闭