Export many lists without using loops

Question

I have a Mathematica function that creates a RandomWalk chain of length l, by generating random points on the unit sphere and then using the Accumulate function. So the output of this function is a list like {{x1,y1,z1},{x2,y2,z2},...}. Then I use another function to create N of these lists, so the output of this function is something like {{{x1,y1,z1},{x2,y2,z2},...},{x1,y1,z1},...}} and so on. How can I now export each of these N lists in a separate output file without using loops? Idealy I would have a folder at the end with "list1.txt", "list2.txt", .."listN.txt" .

For one list I used something like

Export["test.txt", list, "Table", "FieldSeparators" -> " "]

Thank you for your help

Answer 1

I think MapIndexed would help you here. Try something like the following:

MapIndexed[
  Export["list" <> ToString[First@#2] <> ".txt", #1, "Table", "FieldSeparators" -> " "] &,
  yourmultilist
]

Answer 2

This creates some random sample data lists

lists = RandomInteger[{0, 9}, {3, 3, 3}];
n = 0;
Map[Export[n=n+1;"list"<>ToString[n]<>".txt",#,"Table","FieldSeparators"->" "]&, lists]

exports three files list1.txt, list2.txt and list3.txt