填数字1--9

分母不是相乘，是两位数

Select[Permutations[ Range[9]], #[[1]] < #[[4]] < #[[7]] && (Tr[ Function[{x, y, z}, x/(10 y + z)] @@@ Partition[#, 3]] == 1) &] // Timing
哎，偏题了，我的主要意思是与编译相关的

用到了Apply的是无法编译的

来一个有点BT的方法
Module[{r = Range[9]},
While[r[[1]]/(10 r[[2]] + r[[3]]) + r[[4]]/(10 r[[5]] + r[[6]]) + r[[7]]/(10 r[[8]] + r[[9]]) != 1,
r = RandomSample[Range[9]];
];
r
] // Timing

Oh，搞出来了
Compile[{},
NestWhile[RandomSample[#] &, Range[9], #[[1]]/(10 #[[2]] + #[[3]]) + #[[4]]/(10 #[[5]] + \#[[6]]) + #[[7]]/(10 #[[8]] + #[[9]]) != 1 &]
][] // Timing

抛砖引玉,
Module[{r = Range[9], c = 0, res = {}}, While[True, c++; If[(1000 r[[1]] + 100 r[[2]] + 10 r[[3]] + r[[4]]) r[[5]] == 1000 r[[6]] + 100 r[[7]] + 10 r[[8]] + r[[9]], c++; res = Union@Append[res, r] ]; If[Length[res] == 2, Break[]]; r = RandomSample[Range[9]]; ]; {res, c} ] // Timing
cf = Compile[{}, Module[{r = Range[9], c = 0}, While[True, If[(1000 r[[1]] + 100 r[[2]] + 10 r[[3]] + r[[4]]) r[[5]] == 1000 r[[6]] + 100 r[[7]] + 10 r[[8]] + r[[9]], c++; Sow[r] ]; If[c == 5, Break[]]; r = RandomSample[Range[9]]; ]; c ], CompilationTarget -> "C", RuntimeOptions -> "Speed" ];cf[] // Reap // Timing

http://forum.simwe.com/thread-913182-1-1.html