版塊導航: 正在加載中...

登錄注冊

應《網絡安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯網跟帖服務。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

本帖產生 5 個程序強帖，點擊這里進行查看

holmescn

金蟲 (正式寫手)

程序強帖: 37
應助: 1 (幼兒園)
金幣: 1918.8
散金: 275
紅花: 1
帖子: 699
在線: 102.6小時
蟲號: 913482
注冊: 2009-11-26
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結構

[交流] Euler 工程第三十六題：已有3人參與

十進制數585是一個回文數，不僅如此，它的二進制表示：585=(1001001001)_2 也是一個回文數。

請找出小于100萬的所有在十進制和二進制表示下都是回文數的數，求他們的和。

[ Last edited by holmescn on 2011-7-7 at 20:33 ]

回復此樓

» 猜你喜歡

288求調劑已經有5人回復
281求調劑（0805）已經有19人回復
材料考研調劑已經有3人回復
346求調劑[0856] 已經有6人回復
294求調劑材料與化工專碩已經有9人回復
328求調劑，英語六級551，有科研經歷已經有12人回復
一志愿西安交通大學材料工程專業(yè) 282分求調劑已經有5人回復
085601材料工程專碩求調劑已經有7人回復
321求調劑已經有6人回復
一志愿中海洋材料工程專碩330分求調劑已經有7人回復

» 本主題相關價值貼推薦，對您同樣有幫助:

Euler 工程第四十四題已經有4人回復
Euler 工程第四十二題: 三角詞已經有4人回復
Euler 工程第四十一題已經有5人回復
Euler 工程第三十八題已經有9人回復
Euler 工程第三十七題已經有6人回復
Euler 工程第三十五題：循環(huán)質數已經有16人回復
Euler 工程第三十二題：pandigital 數已經有3人回復
Euler 工程第三十一題: 換零錢已經有10人回復
Euler 工程第三十題已經有12人回復
Euler 工程第廿九題：有多少不同的項? 已經有30人回復
Euler 工程第廿八題：旋轉矩陣對角線的和已經有6人回復
Euler 工程第廿七題：系數的積已經有15人回復
Euler 工程第廿六題：最長的循環(huán)節(jié) 已經有9人回復
Euler 工程第廿五題：Fibonacci 數列第一個包含1000個數字的項已經有3人回復
Euler 工程第廿四題：全排列的第100萬項已經有19人回復
Euler 工程第廿三題：已經有16人回復
Euler 工程第廿二題: 姓的總分已經有13人回復
Euler 工程第廿題：100! 的各項和已經有5人回復
Euler 工程第十九題：每月第一天是周日的天數已經有4人回復
Euler 工程第十八題：三角陣上最大的和已經有12人回復
Euler 工程第十六題：2的1000次方的各項和已經有14人回復
Euler 工程第14題：找最長的數列已經有9人回復
Euler 工程第十一題：相鄰元素乘積最大已經有10人回復
Euler 工程第三題：尋找600851475143的最大質因子已經有18人回復

1樓 2011-07-07 16:29:31

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

holmescn

金蟲 (正式寫手)

程序強帖: 37
應助: 1 (幼兒園)
金幣: 1918.8
散金: 275
紅花: 1
帖子: 699
在線: 102.6小時
蟲號: 913482
注冊: 2009-11-26
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結構

★ ★ ★ ★
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:

=> 11101111110111

=> 100001

=> 100111001

=> 111110111011111

=> 1001110000111001

=> 1100111111110011

=> 1101001001001011

=> 1001001001

585585 => 10001110111101110001

=> 1011001101

=> 10010000000001001

=> 1110100010111

=> 1100011

速度太快，就不說了。

贊一下(2人)

回復此樓

2樓2011-07-07 17:13:41

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

libralibra

至尊木蟲 (著名寫手)

驃騎將軍

程序強帖: 40
應助: 817 (博后)
金幣: 12914.1
紅花: 64
帖子: 2238
在線: 287.3小時
蟲號: 696514
注冊: 2009-02-05
專業(yè): 計算機軟件

★ ★
小木蟲(金幣+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寫程序請發(fā)QQ郵件:790404545@qq.com

3樓2011-07-07 17:25:03

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

holmescn

金蟲 (正式寫手)

程序強帖: 37
應助: 1 (幼兒園)
金幣: 1918.8
散金: 275
紅花: 1
帖子: 699
在線: 102.6小時
蟲號: 913482
注冊: 2009-11-26
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結構

★
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發(fā)消息送TA紅花 TA的回帖

holmescn

金蟲 (正式寫手)

程序強帖: 37
應助: 1 (幼兒園)
金幣: 1918.8
散金: 275
紅花: 1
帖子: 699
在線: 102.6小時
蟲號: 913482
注冊: 2009-11-26
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結構

★
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發(fā)消息送TA紅花 TA的回帖

libralibra

至尊木蟲 (著名寫手)

驃騎將軍

程序強帖: 40
應助: 817 (博后)
金幣: 12914.1
紅花: 64
帖子: 2238
在線: 287.3小時
蟲號: 696514
注冊: 2009-02-05
專業(yè): 計算機軟件

★ ★
小木蟲(金幣+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寫程序請發(fā)QQ郵件:790404545@qq.com

6樓2011-07-07 17:58:37

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

sudo

木蟲 (正式寫手)

程序強帖: 16
應助: 6 (幼兒園)
金幣: 1297.6
散金: 1486
紅花: 20
帖子: 588
在線: 641小時
蟲號: 1211394
注冊: 2011-02-24
性別: GG
專業(yè): 文藝美學

★ ★
小木蟲(金幣+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發(fā)消息送TA紅花 TA的回帖

sudo

木蟲 (正式寫手)

程序強帖: 16
應助: 6 (幼兒園)
金幣: 1297.6
散金: 1486
紅花: 20
帖子: 588
在線: 641小時
蟲號: 1211394
注冊: 2011-02-24
性別: GG
專業(yè): 文藝美學

★ ★
小木蟲(金幣+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的子序列在整個序列中循環(huán)唯一

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發(fā)消息送TA紅花 TA的回帖

sudo

木蟲 (正式寫手)

程序強帖: 16
應助: 6 (幼兒園)
金幣: 1297.6
散金: 1486
紅花: 20
帖子: 588
在線: 641小時
蟲號: 1211394
注冊: 2011-02-24
性別: GG
專業(yè): 文藝美學

★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖
dubo(金幣+1): 歡迎常來程序語言版討論 2011-07-10 15:43:00

PS：上面的程序抄襲了兩段著名的代碼~可惜判定十進制回文的地方太丑陋了~

贊一下(2人)

回復此樓

9樓2011-07-07 20:11:44

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

holmescn

金蟲 (正式寫手)

程序強帖: 37
應助: 1 (幼兒園)
金幣: 1918.8
散金: 275
紅花: 1
帖子: 699
在線: 102.6小時
蟲號: 913482
注冊: 2009-11-26
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結構

★
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發(fā)消息送TA紅花 TA的回帖

相關版塊跳轉我要訂閱樓主 holmescn 的主題更新

返回列表

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 321求調劑 +6	何潤采123 2026-03-18	6/300	2026-03-19 10:55 by daliangogo
[考研] 0703化學調劑 +8	妮妮ninicgb 2026-03-15	12/600	2026-03-19 05:55 by anny19840123
[考研] 一志愿中國海洋大學，生物學，301分，求調劑 +4	1孫悟空 2026-03-17	4/200	2026-03-18 17:59 by fivewind
[考研] 一志愿武理材料305分求調劑 +5	想上岸的鯉魚 2026-03-18	6/300	2026-03-18 17:53 by 無際的草原
[考研] 26調劑/材料/英一數二/總分289/已過A區(qū)線 +7	步川酷紫123 2026-03-13	7/350	2026-03-18 17:12 by 盡舜堯1
[考研] 材料專碩306英一數二 +10	z1z2z3879 2026-03-16	13/650	2026-03-18 14:20 by 007_lilei
[考研] 307求調劑 +3	冷笙123 2026-03-17	3/150	2026-03-18 09:55 by macy2011
[考研] 334求調劑 +3	志存高遠意在機?/a> 2026-03-16	3/150	2026-03-18 08:34 by lm4875102
[考研] 326求調劑 +5	上岸的小葡 2026-03-15	6/300	2026-03-17 17:26 by ruiyingmiao
[考研] 302求調劑 +4	小賈同學123 2026-03-15	8/400	2026-03-17 10:33 by 小賈同學123
[考研] 283求調劑 +3	聽風就是雨； 2026-03-16	3/150	2026-03-17 07:41 by 熱情沙漠
[考研] 0854控制工程 359求調劑可跨專業(yè) +3	626776879 2026-03-14	9/450	2026-03-16 17:42 by 626776879
[考研] 304求調劑 +3	曼殊2266 2026-03-14	3/150	2026-03-16 16:39 by houyaoxu
[考研] 中科院材料273求調劑 +4	yzydy 2026-03-15	4/200	2026-03-16 15:59 by Gaodh_82
[考研] 326求調劑 +3	mlpqaz03 2026-03-15	3/150	2026-03-16 07:33 by Iveryant
[考研] 294求調劑 +3	Zys010410@ 2026-03-13	4/200	2026-03-15 10:59 by zhq0425
[考研] 289求調劑 +4	這么名字咋樣 2026-03-14	6/300	2026-03-14 18:58 by userper
[考研] 復試調劑 +4	z1z2z3879 2026-03-14	5/250	2026-03-14 16:30 by JourneyLucky
[考研] 321求調劑（食品/專碩） +3	xc321 2026-03-12	6/300	2026-03-13 08:45 by xc321
[考研] 081200-11408-276學碩求調劑 +3	崔wj 2026-03-12	4/200	2026-03-12 19:33 by 求調劑zz

24小時熱門版塊排行榜

[交流] Euler 工程 第三十六題： 已有3人參與

» 猜你喜歡

» 本主題相關價值貼推薦，對您同樣有幫助:

[交流] Euler 工程第三十六題：已有3人參與

» 本主題相關價值貼推薦，對您同樣有幫助: