RosettaCodeData/Task/Parallel-calculations/Mathematica/parallel-calculations.math
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

1 line
113 B
Text

hasSmallestFactor[data_List]:=Sort[Transpose[{ParallelTable[FactorInteger[x][[1, 1]], {x, data}],data}]][[1, 2]]