MaplePrimes - answers and comments on Question, remove commas from a list

With StringTools[Join]

Markiyan Hirnyk — Sun, 13 Nov 2011 17:45:26 Z

It can be done as follows.
> restart; L := [1, a, x^2, aBba, c+f(x)];
> StringTools[Join]([seq(convert(L[j], string), j = 1 .. nops(L))], "");
> convert(%, name);
1ax^2aBbac+f(x)
See ?StringTools[Join] , ?convert for more details.

for fun

acer — Tue, 15 Nov 2011 07:38:52 Z

Just for fun,

> cat(nprintf~("%a",L)[]);
                        1ax^2aBbac+f(x)

Part of the jape seems to be whether the spaces between entries and commas are wanted.

acer

cat(seq(sprintf("%a ",i),i=L));

roman_pearce — Wed, 16 Nov 2011 12:50:58 Z

cat(seq(sprintf("%a ",i),i=L));

Modification

Markiyan Hirnyk — Tue, 15 Nov 2011 18:46:54 Z

@acer

>restart; with(StringTools):
> L := [1, a, x^2, aBba, c+f(x)]:
>Join([seq(Center(convert(L[j], string), length(convert(L[j], string))+2), j = 1 .. nops(L))], ""):
> convert(%, name)
1 a x^2 aBba c+f(x)

Simpler

Joe Riel — Wed, 16 Nov 2011 22:23:12 Z

sprintf("%{}q",<L>);

Well, shorter anyhow. See ?printf and ?rtable_printf for details.