3 lines
150 B
Text
3 lines
150 B
Text
t = ToExpression[StringReplace["[[[1,2],[3,4,1],5]]", {"[" -> "{", "]" -> "}"}]];
|
|
p = "Payload#" <> ToString[#] & /@ Range[6];
|
|
Map[p[[#]] &, t, {-1}]
|