Mathematica Stack Exchange is a question and answer site for users of Wolfram Mathematica. It only takes a minute to sign up.
Sign up to join this community
I have a huge list = {l1, l2, l3, ...}, which I want to output by labeled rows. My attempt was to
Do[Print["list[i]:"];Print[list[i]], {i, 1, Length[list]}]
Which is not working very well. I would like to know how i can "label" every line of my output like so:
list[1] = l1
list[2] = l2
list[3] = l3
...
Does this do what you had in mind?
Do[Print["list[", i, "] = ", list[[i]]], {i, 1, Length[list]}]
Print[expr, expr, ...]
$\endgroup$
Jun 8 '17 at 10:05
You should use StringTemplate.
fmt = StringTemplate["list[``] = ``"];
Do[Print[fmt[i, lst[[i]]]], {i, 1, Length[lst]}]
This is still ugly: it creates a cell for every call to Print. You say the list is "huge" (justifying Do), but then you want to print it. Hmm; perhaps it is not so huge? If you don't mind using a bit more memory, the following is conceptually cleaner.
strings = MapIndexed[fmt[First@#2, #1] &, lst];
Print@StringRiffle[strings, "\n"]
You could use Dataset to create an easy-to-read output of your list. Dataset handles very large outputs really well:
Dataset[AssociationThread[Range[Length[list]] -> list]]
Doloop only exist to create the formatted output and does nothing else, you could consider replacing it with something likeTranspose[{Defer@list /@ Range[Length@list], ConstantArray["=", Length@list], list}] // GridorTable[{"list[", i, "] = ", list[[i]]}, {i, Length@list}] // TableForm[#, TableSpacing -> {1, 0}] &. $\endgroup$