公告:1)网站程序升级:Q2A升级到1.8.6,Wordpress升级到5.7.2
2)修复了头像加载慢与提交问题反应慢等问题
2021-06-16

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

+1 投票
708 浏览
Total[If[#AAA[[1]] != 0 &&
And @@ (Divisible[FromDigits@#AAA[[# ;; # + 2]], Prime[# - 1]] & /@ 
Range[2, 8]), FromDigits[#AAA], 0] & /@ 
Permutations[{0, 1, 2, 3, 4, 5, 6, 7, 8, 9}]]

欧拉43题

其中#AAA是最外层的函数。撇开题目不说

如何?

用户: flumer (161 分)
修改于 用户:苹果

2 个回答

+3 投票

显性使用纯函数Function。例如

Function[x, {x, #} & /@ Range[3]] /@ {a, b, c}
(Function[x, {#, x}] /@ {1, 2, 3}) & /@ {a, b, c}

 

用户: 苹果 (2.2k 分)
若是三层也是显性使用吗?
是呀。说实话这么多层嵌套,代码可读性得是有多差。。。
装B有代价。需要12个字符我再凑凑
+2 投票

不少时候,Map都可以用Table改写,而且可读性会更好,苹果上面的例子完全可以用Table改写

Table[{i, j}, {i, {a, b, c}}, {j, 3}](*当然这里用Outer也可以*)

将题主的问题用Table来写

Compile[{},Total@Table[Catch[Do[If[Mod[100 i[[j+1]]+10 i[[j+2]]+i[[j+3]],{2,3,5,7,11,13,17}[[j]]]!=0,Throw@0],{j,7}];1000000000 i[[1]]+100000000 i[[2]]+10000000 i[[3]]+1000000 i[[4]]+100000 i[[5]]+10000 i[[6]]+1000 i[[7]]+100 i[[8]]+10 i[[9]]+i[[10]]],{i,Permutations@Range[0,9]}]][]//AbsoluteTiming

 

用户: 孺子剑牛不群 (216 分)
修改于 用户:孺子剑牛不群
...