计算勾股数
mathematica吧
全部回复
仅看楼主
level 8
m= 200;
Cases[Flatten[Table[{a, b, c}, {a, m}, {b, a, m}, {c, b, m}], 2],
{a_, b_, c_} /; a^2 + b^2 == c^2] // Timing
这段代码怎么运行这么慢呢,同样的算法比python都慢好多,
8.0好像能编译,不知道怎么写?
2012年12月01日 12点12分 1
level 8
谢谢大家的热情帮助
2012年12月02日 06点12分 12
level 8
如果用Select,能编译码,Flatten好像不能编译啊
2012年12月02日 09点12分 15
关注我在14楼的回复……
2012年12月03日 06点12分
level 8
Cases不能编译啊,真烦
2012年12月06日 10点12分 37
1