Return to Answer

added 55 characters in body

Source Link

edited Sep 28, 2017 at 22:03

S=Table[Symbol["w" <> ToString[i]], {i, 1, 73}];
S = List /@ S;
S[[;;S 10]]// Short

{{w1}, {w2}, {w3}, {w4}, {w5}, {w6}, << 61 >>, {w7w68}, {w8w69}, {w9w70}, {w10w71}, {w72}, {w73}}

Alternatively,

S=Table[{Symbol["w" <> ToString[i]]}, {i, 1, 73}];
S[[;;10]]S // Short

{{w1}, {w2}, {w3}, {w4}, {w5}, {w6}, << 61 >>, {w7w68}, {w8w69}, {w9w70}, {w10w71}, {w72}, {w73}}

S=Table[Symbol["w" <> ToString[i]], {i, 1, 73}];
S = List /@ S;
S[[;; 10]]

{{w1}, {w2}, {w3}, {w4}, {w5}, {w6}, {w7}, {w8}, {w9}, {w10}}

Alternatively,

S=Table[{Symbol["w" <> ToString[i]]}, {i, 1, 73}];
S[[;;10]]

{{w1}, {w2}, {w3}, {w4}, {w5}, {w6}, {w7}, {w8}, {w9}, {w10}}

S=Table[Symbol["w" <> ToString[i]], {i, 1, 73}];
S = List /@ S;
S // Short

{{w1}, {w2}, {w3}, {w4}, {w5}, {w6}, << 61 >>, {w68}, {w69}, {w70}, {w71}, {w72}, {w73}}

Alternatively,

S=Table[{Symbol["w" <> ToString[i]]}, {i, 1, 73}];
S // Short

{{w1}, {w2}, {w3}, {w4}, {w5}, {w6}, << 61 >>, {w68}, {w69}, {w70}, {w71}, {w72}, {w73}}

Source Link

created Sep 28, 2017 at 21:30

S=Table[Symbol["w" <> ToString[i]], {i, 1, 73}];
S = List /@ S;
S[[;; 10]]

{{w1}, {w2}, {w3}, {w4}, {w5}, {w6}, {w7}, {w8}, {w9}, {w10}}

Alternatively,

S=Table[{Symbol["w" <> ToString[i]]}, {i, 1, 73}];
S[[;;10]]

{{w1}, {w2}, {w3}, {w4}, {w5}, {w6}, {w7}, {w8}, {w9}, {w10}}