Mathematica生成纯数字密码

Export["C:/T.txt", 
  IntegerString[#,10,6]&/@Range[0,10^6-1]]//Timing

{12.776,"C:/T.txt"}

Export["C:/T.txt", 
  StringJoin/@Tuples[ToString/@Range[0,9],6]]//Timing

{15.413,"C:/T.txt"}

 

6 digits: 000000......999999

 

 

 

转载于:https://www.cnblogs.com/c-hy/archive/2012/08/05/2623528.html