一个有趣的数学题：欧拉计划第33题，有兴趣的同学看过来

pacelife · 发表于 2015-12-14 22:16:08

程序见图片，没有进行优化

钢铁侠2014 · 发表于 2015-12-16 22:16:16

钢铁侠2014 发表于 2015-12-14 10:46 7 u3 ^. K; L8 u4 t" A7 | O) A1 o+ H
很有意思的小题目啊，刚好最近在学python，晚上回家写个小程序算算

我的程序丑爆了。。。matlab
clear all
a=(10:99)';
b=10:99;
k=1;
c={};
for i=1:90
for j=1:90
      if a(i)<b(j)
         if floor(a(i)/10)==floor(b(j)/10)
            if a(i)/b(j)==(a(i)-10*floor(a(i)/10))/(b(j)-floor(b(j)/10)*10)
                  c{k}=[a(i);b(j)];
                  k=k+1;
            end
         end
      end
end
end
for i=1:90
for j=1:90
      if a(i)<b(j)
         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)
                  c{k}=[a(i);b(j)];
                  k=k+1;
            end
         end
      end
end
end
for i=1:90
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)];
                  k=k+1;
            end
         end
      end
end
end
for 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))
                  c{k}=[a(i);b(j)];
                  k=k+1;
            end
         end
      end
end
end

[16;64]
[19;95]
[26;65]
[49;98]

Hello.KT · 发表于 2015-12-18 09:05:43

牛！！！！！！

我就是我212 · 发表于 2016-11-18 15:09:19

都是牛人

般若李 · 发表于 2018-4-12 16:59:52

amcordant · 发表于 2019-2-18 10:10:48

学习了都是大神啊

Hassanzzz · 发表于 2019-2-20 15:16:14

前排都是大神，我只会用笔算排除得到答案。

shajiallj · 发表于 2019-2-22 11:23:24

惭愧，连题目都没看懂

火花水月 · 发表于 2019-6-6 11:43:40

感谢分享

		自动登录	找回密码
密码			注册会员

一个有趣的数学题：欧拉计划第33题，有兴趣的同学看过来

本帖子中包含更多资源