#号如何再套一个#号？

Question

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是最外层的函数。撇开题目不说

如何?

Answer 1

显性使用纯函数Function。例如

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

 

Comments

若是三层也是显性使用吗？

---

是呀。说实话这么多层嵌套，代码可读性得是有多差。。。

---

装B有代价。需要12个字符我再凑凑

Answer 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