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