RosettaCodeData/Task/Nested-templated-data/Mathematica/nested-templated-data.math

mirror of https://github.com/acmeism/RosettaCodeData.git
t = ToExpression[StringReplace["[[[1,2],[3,4,1],5]]", {"[" -> "{", "]" -> "}"}]];
p = "Payload#" <> ToString[#] & /@ Range[6];
Map[p[[#]] &, t, {-1}]
	`t = ToExpression[StringReplace["[[[1,2],[3,4,1],5]]", {"[" -> "{", "]" -> "}"}]];`
	`p = "Payload#" <> ToString[#] & /@ Range[6];`
	`Map[p[[#]] &, t, {-1}]`