Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Working with strings

• To: mathgroup at smc.vnet.net
• Subject: [mg31940] Working with strings
• From: bghiggins at ucdavis.edu (Brian Higgins)
• Date: Thu, 13 Dec 2001 01:08:45 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

I have a list of string characters that I would like to group in a
particular way. The list has the following structure:

{n UpperCase Characters, x, m UpperCase Characters}

Here is an example:

myString={"S", "T", "M", "x", "R", "K", "P", "G"}

Now I would like to form the following groupings:

{"SxR", "SxK", "SxP", "SxG", "TxR", "TxK", "TxP", "TxG", "MxR", "MxK",
"MxP", \
"MxG"}

A brute force way of doing this is

subString[n_] := Split[myString, UpperCaseQ[#2] && UpperCaseQ[#1]
&][[n]];

Flatten[Outer[StringJoin, Outer[StringJoin, subString[1],
subString[2]],
    subString[3]]]

Does anyone have any elegant way of doing this with perhaps using
replacement rules?

Thanks much,


Brian

• Follow-Ups:
  • Re: Working with strings
    • From: Ken Levasseur <Kenneth_Levasseur@uml.edu>