RosettaCodeData/Task/Write-float-arrays-to-a-text-file/Mathematica/write-float-arrays-to-a-text-file.math

exportPrec[path_, data1_, data2_, prec1_, prec2_] :=
 Export[
   path,
   Transpose[{Map[ToString[NumberForm[#, prec2]] &, data2], Map[ToString[NumberForm[#, prec1]] &, data1]}],
   "Table"
]