首页 > 代码库 > Project Euler不断更新中，目前进度（1-1）
Project Euler不断更新中，目前进度（1-1）
慢慢的开始使用Mathematica软件，不过一开始总会带一些C语言的影子
No.1
Mathematica
In[21]:= Sum[x, {x, Table[If[Mod[x, 3] == 0, x, If[Mod[x, 5] == 0, x, 0]], {x, 1, 1000}]}]Out[21]= 234168
improve
In[24]:= Sum[x, {x, #1}] &@ Table[If[Mod[x, 3] == 0, x, If[Mod[x, 5] == 0, x, 0]], {x, 1, 1000}]Out[24]= 234168
improve
In[28]:= Sum[x, {x, #1}] &@ Table[If[Mod[x, #1] == 0, x, If[Mod[x, #2] == 0, x, 0]], {x, 1, #3}] & @@ {3, 5, 1000}Out[28]= 234168
No.2
Project Euler不断更新中，目前进度（1-1）
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。