Re: list of bits to string

*To*: mathgroup at smc.vnet.net*Subject*: [mg28719] Re: [mg28688] list of bits to string*From*: Murray Eisenberg <murraye at mediaone.net>*Date*: Thu, 10 May 2001 07:55:03 -0400 (EDT)*Organization*: Mathematics & Statistics, Univ. of Mass./Amherst*References*: <OFC620A1C1.BF42A889-ONC1256A47.00308304@icos.be>*Sender*: owner-wri-mathgroup at wolfram.com

Thank you all for suggesting the same solution that I came up with after sending my original inquiry. In my situation, I actually had a list of such lists of binary digits (arising, in fact, as the Gray code of order 4): gCode[1] = { {0}, {1} } ; gCode[n_] := With[{g = gCode[n - 1]}, Join[Map[Prepend[#, 0] &, g], Map[Prepend[#, 1] &, Reverse[g]]]] So to convert the result of gCode[4] to the list of 4-character strings I needed (to label the vertices in a Hamiltonian circuit of the "4-cube" graph), I used: Map[Apply[StringJoin, Map[ToString, #]] &, gCode[4]] The preceding expression still seems overly complicated to me: did I miss some simplification? maarten.vanderburgt at icos.be wrote: > > Murray, > > StringJoin[ToString/@{0,1,1,0,1}] does what you need. > > regards > > Maarten van der Burgt > Leuven > Belgium > > murray at math.umass.edu (Murray Eisenberg) on 09-05-2001 10:20:08 AM > > To: mathgroup at smc.vnet.net > cc: > > Subject: [mg28719] [mg28688] list of bits to string > > I have a list consisting of binary digits, of a given length, e.g., > {0, 1, 1, 0, 1}. I wish to convert this to a _string_ consisting of > those digits: "01101". How can this be done? > > -- > Murray Eisenberg Internet: murray at math.umass.edu > Mathematics & Statistics Dept. Voice: 413-545-2859 (W) > University of Massachusetts 413-549-1020 (H) > Amherst, MA 01003 Fax: 413-545-1801 -- Murray Eisenberg murray at math.umass.edu Mathematics & Statistics Dept. phone 413 549-1020 (H) Univ. of Massachusetts 413 545-2859 (W) Amherst, MA 01003-4515