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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 其它 » Euler 工程 第三十六题：
51/1返回列表
查看: 1880  |  回复: 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

金虫 (正式写手)
★
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的回帖
查看全部 19 个回答

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的回帖
查看全部 19 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[有机交流] OpenAI又攻克数学难题了，离AI做有机合成还有多远？ +8 wangyl_123 2026-10-10 12/600 2026-10-13 20:40 by Merryya
[硕博家园] 极限拉扯，如何抉择 +9 Isak0320 2026-10-12 13/650 2026-10-13 11:57 by Isak0320
[教师之家] 课题组会帮你通过考核么？ +4 好运来～9527 2026-10-10 7/350 2026-10-13 08:41 by xli1984
[基金申请] 入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍 +6 13108017953 2026-10-08 6/300 2026-10-12 20:07 by w3w3y3
[公派出国] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:34 by XQNyDCa1Tk5n
[找工作] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 22:26 by XQNyDCa1Tk5n
[公派出国] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:26 by XQNyDCa1Tk5n
[考博] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:15 by XQNyDCa1Tk5n
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 22:11 by XQNyDCa1Tk5n
[教师之家] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:06 by XQNyDCa1Tk5n
[教师之家] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 14:25 by VOMexwnDzOFZ
[教师之家] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 (EPI+-1)(金币-50) +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 14:05 by VOMexwnDzOFZ
[考研] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:51 by VOMexwnDzOFZ
[硕博家园] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:45 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:54 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:34 by VOMexwnDzOFZ
[考博] 招收博士生一名 +3 mandolin 2026-10-10 3/150 2026-10-11 10:21 by 不是山谷！
[公派出国] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +4 qR2AdCWTVtkw 2026-10-09 4/200 2026-10-11 03:14 by M0zrYVSAnxpE
[有机交流] 各位大佬，路线设计求助 +6 zapen 2026-10-08 8/400 2026-10-10 15:59 by zapen
[有机交流] 我应该选哪条合成路线让实验成功率高一些？ +5 jing816y 2026-10-08 9/450 2026-10-10 09:05 by zapen
信息提示
关闭
请填处理意见
关闭