一個(gè)有趣的數(shù)學(xué)題：歐拉計(jì)劃第33題，有興趣的同學(xué)看過(guò)來(lái)

pacelife

程序見(jiàn)圖片,，沒(méi)有進(jìn)行優(yōu)化

6 _; F) T) M4 G' E8 R" k

鋼鐵俠2014

鋼鐵俠2014 發(fā)表于 2015-12-14 10:46
# v. r. W4 Z. B5 p+ `很有意思的小題目啊,，剛好最近在學(xué)python，晚上回家寫(xiě)個(gè)小程序算算

! S# t* x- u! Y4 N我的程序丑爆了,。,。,。matlab
# s' p! d- F# M7 K7 q$ Bclear all
1 `: ]9 H2 @- f/ z& A5 r0 ja=(10:99)';
b=10:99;
k=1;
9 ^/ `! ?0 D3 D' _c={};
for i=1:90
    for j=1:90
        if a(i)<b(j)
            if floor(a(i)/10)==floor(b(j)/10)
5 v  |3 R+ S/ i& i. r7 G$ ~% c. `                if a(i)/b(j)==(a(i)-10*floor(a(i)/10))/(b(j)-floor(b(j)/10)*10)
+ w2 j& K& H7 l$ ?  B: U8 L                    c{k}=[a(i);b(j)];
                    k=k+1;
                end
            end
        end
    end
end
: F9 q$ z6 O! `) zfor i=1:90
) l( _; m8 k4 v2 {; L    for j=1:90
        if a(i)<b(j)
" ?+ V/ g, e8 |6 `            if (a(i)-floor(a(i)/10)*10)==floor(b(j)/10)
                if a(i)/b(j)==floor(a(i)/10)/(b(j)-floor(b(j)/10)*10)
. E* F/ l6 ]- B* Z& h8 M                    c{k}=[a(i);b(j)];
# t& V* u3 C: G                    k=k+1;
                end
0 z* ^  a! P/ a/ |/ o9 H            end
# s# {* Q6 I5 p9 i8 D7 J        end
    end
end
for i=1:90
8 i( c( q1 N/ A9 n- z    for j=1:90
        if a(i)<b(j)
            if floor(a(i)/10)==(b(j)-floor(b(j)/10)*10)
                if a(i)/b(j)==(a(i)-10*floor(a(i)/10))/(floor(b(j)/10))
                    c{k}=[a(i);b(j)];
% m. [6 U) L% w) ~                    k=k+1;
/ P3 q1 q& Z7 }- C3 P6 U" s$ B                end
            end
3 @& J3 S& ?2 _' X/ `( k, {! @        end
    end
end
4 T( g0 A8 p% [) s' A  @* |! g# cfor i=1:90
    for j=1:90
        if a(i)<b(j)
            if (a(i)-floor(a(i)/10)*10)==(b(j)-floor(b(j)/10)*10)
                if a(i)/b(j)==(floor(a(i)/10))/(floor(b(j)/10))
0 G! n) w3 i" D/ b( S# O                    c{k}=[a(i);b(j)];
                    k=k+1;
                end
            end
        end
    end
8 [! b3 v7 {" E" u- Q! a: Hend
9 X& h- x7 j  a) O9 j/ f+ ]
2 E7 j. y. @) o  b# m* \[16;64]
% z. B& H3 }+ C% m5 v[19;95]
[26;65]
[49;98]

Hello.KT

牛！�,。,。。,�,！

我就是我212

都是牛人

般若李

amcordant

學(xué)習(xí)了都是大神啊

Hassanzzz

前排都是大神，我只會(huì)用筆算排除得到答案,。

shajiallj

慚愧,，連題目都沒(méi)看懂

火花水月

感謝分享