Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

Re: Manipulating Strings

  • To: mathgroup at
  • Subject: [mg28268] Re: Manipulating Strings
  • From: "Rasmus Debitsch" <debitsch at>
  • Date: Sat, 7 Apr 2001 03:44:27 -0400 (EDT)
  • References: <9ajmoi$>
  • Sender: owner-wri-mathgroup at



implements the same function as squash.


        Rasmus Debitsch
        Carl Zeiss Lithos GmbH
        Carl Zeiss Strasse
        D-73447 Oberkochen

        eMail : debitsch at

"Brian Higgins" <bghiggins at> schrieb im Newsbeitrag
news:9ajmoi$sav at
> Dear Math group,
> I have a string with runs of repeated characters and  want to  replace
> sequences of repeated characters with a single character. For example
> consider the string
> Thus I want a function that will take the groups "LLL" and "NN" in the
> above string and replace them with "L" and "N".
> Now I have been able to devise such a function but it seems pretty
> clunky, and I was wondering if anyone had a better idea tha made use
> of StringMatchQ to do the same task. Here is my method
> squash[str_String] := Module[{repeatCharList, repeatPattern,
> repeatChar},
>     repeatCharList =
>       Select[Split[Characters[proteinString2]], Length[#] > 1 &];
>     repeatPattern = Apply[StringJoin, repeatCharList, 1];
>     repeatChar = Map[First, repeatCharList];
>     StringReplace[str, Thread[repeatPattern -> repeatChar]]]
> Thanks much,
> Brian

  • Prev by Date: Improvement?
  • Next by Date: Re: Howto vonvert a list of functions in a list valued function
  • Previous by thread: Re: Manipulating Strings
  • Next by thread: Re: Manipulating Strings