List rearrangment with joining of strings

The name of the pictureThe name of the pictureThe name of the pictureClash Royale CLAN TAG#URR8PPP











up vote
3
down vote

favorite












I have a list of strings:



lis = "a","b","x","d","e","y","a","b","z","d","c","x","a","b","w"


I would like to use StringJoin on the last elements where initial elements are the same to obtain:



res = "a","b","xzw","d","e","y","d","c","x"


Doing:



lis = SortBy[lis, #[[1]] &]
SequenceCases[lis, a_, b_, c_, a_, b_, d_ :> a, b, StringJoin[c, d]]


only gives:



"a", "b", "wx"


Thanks for any suggestions.






list-manipulation string-manipulation







share|improve this question























  • At least closely related: mathematica.stackexchange.com/q/26574/5478
    – Kuba♦
    54 mins ago










  • @Suite401, do you have control on how the "initials" are generated? If they where integers (which can be achieved with ToCharacterCode), then I could also image faster methods.
    – Henrik Schumacher
    15 mins ago










  • @Henrik, Each actual element of the list looks like: DateObject,String,String representation of integer,String,String representation of integer,String,String,String so I'm not sure there's much to be done, but am interested in your thoughts.
    – Suite401
    5 mins ago











  • Okay, my idea would have required that the number of keys is known a priorily. Btw., I found out that Carl Woll's code is much faster than mine.
    – Henrik Schumacher
    47 secs ago














up vote
3
down vote

favorite












I have a list of strings:



lis = "a","b","x","d","e","y","a","b","z","d","c","x","a","b","w"


I would like to use StringJoin on the last elements where initial elements are the same to obtain:



res = "a","b","xzw","d","e","y","d","c","x"


Doing:



lis = SortBy[lis, #[[1]] &]
SequenceCases[lis, a_, b_, c_, a_, b_, d_ :> a, b, StringJoin[c, d]]


only gives:



"a", "b", "wx"


Thanks for any suggestions.






list-manipulation string-manipulation







share|improve this question























  • At least closely related: mathematica.stackexchange.com/q/26574/5478
    – Kuba♦
    54 mins ago










  • @Suite401, do you have control on how the "initials" are generated? If they where integers (which can be achieved with ToCharacterCode), then I could also image faster methods.
    – Henrik Schumacher
    15 mins ago










  • @Henrik, Each actual element of the list looks like: DateObject,String,String representation of integer,String,String representation of integer,String,String,String so I'm not sure there's much to be done, but am interested in your thoughts.
    – Suite401
    5 mins ago











  • Okay, my idea would have required that the number of keys is known a priorily. Btw., I found out that Carl Woll's code is much faster than mine.
    – Henrik Schumacher
    47 secs ago












up vote
3
down vote

favorite









up vote
3
down vote

favorite











I have a list of strings:



lis = "a","b","x","d","e","y","a","b","z","d","c","x","a","b","w"


I would like to use StringJoin on the last elements where initial elements are the same to obtain:



res = "a","b","xzw","d","e","y","d","c","x"


Doing:



lis = SortBy[lis, #[[1]] &]
SequenceCases[lis, a_, b_, c_, a_, b_, d_ :> a, b, StringJoin[c, d]]


only gives:



"a", "b", "wx"


Thanks for any suggestions.






list-manipulation string-manipulation







share|improve this question















I have a list of strings:



lis = "a","b","x","d","e","y","a","b","z","d","c","x","a","b","w"


I would like to use StringJoin on the last elements where initial elements are the same to obtain:



res = "a","b","xzw","d","e","y","d","c","x"


Doing:



lis = SortBy[lis, #[[1]] &]
SequenceCases[lis, a_, b_, c_, a_, b_, d_ :> a, b, StringJoin[c, d]]


only gives:



"a", "b", "wx"


Thanks for any suggestions.






list-manipulation string-manipulation




list-manipulation string-manipulation






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited 20 mins ago









Henrik Schumacher

39.7k254118




39.7k254118










asked 1 hour ago









Suite401

898312




898312











  • At least closely related: mathematica.stackexchange.com/q/26574/5478
    – Kuba♦
    54 mins ago










  • @Suite401, do you have control on how the "initials" are generated? If they where integers (which can be achieved with ToCharacterCode), then I could also image faster methods.
    – Henrik Schumacher
    15 mins ago










  • @Henrik, Each actual element of the list looks like: DateObject,String,String representation of integer,String,String representation of integer,String,String,String so I'm not sure there's much to be done, but am interested in your thoughts.
    – Suite401
    5 mins ago











  • Okay, my idea would have required that the number of keys is known a priorily. Btw., I found out that Carl Woll's code is much faster than mine.
    – Henrik Schumacher
    47 secs ago
















  • At least closely related: mathematica.stackexchange.com/q/26574/5478
    – Kuba♦
    54 mins ago










  • @Suite401, do you have control on how the "initials" are generated? If they where integers (which can be achieved with ToCharacterCode), then I could also image faster methods.
    – Henrik Schumacher
    15 mins ago










  • @Henrik, Each actual element of the list looks like: DateObject,String,String representation of integer,String,String representation of integer,String,String,String so I'm not sure there's much to be done, but am interested in your thoughts.
    – Suite401
    5 mins ago











  • Okay, my idea would have required that the number of keys is known a priorily. Btw., I found out that Carl Woll's code is much faster than mine.
    – Henrik Schumacher
    47 secs ago















At least closely related: mathematica.stackexchange.com/q/26574/5478
– Kuba♦
54 mins ago




At least closely related: mathematica.stackexchange.com/q/26574/5478
– Kuba♦
54 mins ago












@Suite401, do you have control on how the "initials" are generated? If they where integers (which can be achieved with ToCharacterCode), then I could also image faster methods.
– Henrik Schumacher
15 mins ago




@Suite401, do you have control on how the "initials" are generated? If they where integers (which can be achieved with ToCharacterCode), then I could also image faster methods.
– Henrik Schumacher
15 mins ago












@Henrik, Each actual element of the list looks like: DateObject,String,String representation of integer,String,String representation of integer,String,String,String so I'm not sure there's much to be done, but am interested in your thoughts.
– Suite401
5 mins ago





@Henrik, Each actual element of the list looks like: DateObject,String,String representation of integer,String,String representation of integer,String,String,String so I'm not sure there's much to be done, but am interested in your thoughts.
– Suite401
5 mins ago













Okay, my idea would have required that the number of keys is known a priorily. Btw., I found out that Carl Woll's code is much faster than mine.
– Henrik Schumacher
47 secs ago




Okay, my idea would have required that the number of keys is known a priorily. Btw., I found out that Carl Woll's code is much faster than mine.
– Henrik Schumacher
47 secs ago










3 Answers
3






active

oldest

votes

















up vote
2
down vote



accepted










KeyValueMap[
 key, value [Function] Join[key, StringJoin[value]],
 GroupBy[lis, Part[#, 1 ;; 2] & -> Last]
 ]



"a", "b", "xzw", "d", "e", "y", "d", "c", "x"







share|improve this answer



























    up vote
    2
    down vote













    Another one:



     KeyValueMap[Append] @ Merge[StringJoin][ #, #2 -> #3 & @@@ lis ]





    share|improve this answer




















    • Thanks Henrik, Kuba; am checking to see which is faster on big data set
      – Suite401
      52 mins ago

















    up vote
    2
    down vote













    Another variation:



    KeyValueMap[Append] @ GroupBy[lis, Most->Last, StringJoin]



    "a", "b", "xzw", "d", "e", "y", "d", "c", "x"




    although you may like just the output of GroupBy[lis, Most->Last, StringJoin] better.






    share|improve this answer




















    • Wow, Most is a very good idea.
      – Henrik Schumacher
      13 mins ago










    Your Answer




    StackExchange.ifUsing("editor", function ()
    return StackExchange.using("mathjaxEditing", function ()
    StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
    StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
    );
    );
    , "mathjax-editing");

    StackExchange.ready(function()
    var channelOptions =
    tags: "".split(" "),
    id: "387"
    ;
    initTagRenderer("".split(" "), "".split(" "), channelOptions);

    StackExchange.using("externalEditor", function()
    // Have to fire editor after snippets, if snippets enabled
    if (StackExchange.settings.snippets.snippetsEnabled)
    StackExchange.using("snippets", function()
    createEditor();
    );

    else
    createEditor();

    );

    function createEditor()
    StackExchange.prepareEditor(
    heartbeatType: 'answer',
    convertImagesToLinks: false,
    noModals: false,
    showLowRepImageUploadWarning: true,
    reputationToPostImages: null,
    bindNavPrevention: true,
    postfix: "",
    onDemand: true,
    discardSelector: ".discard-answer"
    ,immediatelyShowMarkdownHelp:true
    );



    );













     

    draft saved


    draft discarded


















    StackExchange.ready(
    function ()
    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f182726%2flist-rearrangment-with-joining-of-strings%23new-answer', 'question_page');

    );

    Post as a guest

















    3 Answers
    3






    active

    oldest

    votes








    3 Answers
    3






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes








    up vote
    2
    down vote



    accepted










    KeyValueMap[
     key, value [Function] Join[key, StringJoin[value]],
     GroupBy[lis, Part[#, 1 ;; 2] & -> Last]
     ]



    "a", "b", "xzw", "d", "e", "y", "d", "c", "x"







    share|improve this answer
























      up vote
      2
      down vote



      accepted










      KeyValueMap[
       key, value [Function] Join[key, StringJoin[value]],
       GroupBy[lis, Part[#, 1 ;; 2] & -> Last]
       ]



      "a", "b", "xzw", "d", "e", "y", "d", "c", "x"







      share|improve this answer






















        up vote
        2
        down vote



        accepted







        up vote
        2
        down vote



        accepted






        KeyValueMap[
         key, value [Function] Join[key, StringJoin[value]],
         GroupBy[lis, Part[#, 1 ;; 2] & -> Last]
         ]



        "a", "b", "xzw", "d", "e", "y", "d", "c", "x"







        share|improve this answer












        KeyValueMap[
         key, value [Function] Join[key, StringJoin[value]],
         GroupBy[lis, Part[#, 1 ;; 2] & -> Last]
         ]



        "a", "b", "xzw", "d", "e", "y", "d", "c", "x"








        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered 1 hour ago









        Henrik Schumacher

        39.7k254118




        39.7k254118




















            up vote
            2
            down vote













            Another one:



             KeyValueMap[Append] @ Merge[StringJoin][ #, #2 -> #3 & @@@ lis ]





            share|improve this answer




















            • Thanks Henrik, Kuba; am checking to see which is faster on big data set
              – Suite401
              52 mins ago














            up vote
            2
            down vote













            Another one:



             KeyValueMap[Append] @ Merge[StringJoin][ #, #2 -> #3 & @@@ lis ]





            share|improve this answer




















            • Thanks Henrik, Kuba; am checking to see which is faster on big data set
              – Suite401
              52 mins ago












            up vote
            2
            down vote










            up vote
            2
            down vote









            Another one:



             KeyValueMap[Append] @ Merge[StringJoin][ #, #2 -> #3 & @@@ lis ]





            share|improve this answer












            Another one:



             KeyValueMap[Append] @ Merge[StringJoin][ #, #2 -> #3 & @@@ lis ]






            share|improve this answer












            share|improve this answer



            share|improve this answer










            answered 56 mins ago









            Kuba♦

            100k11195494




            100k11195494











            • Thanks Henrik, Kuba; am checking to see which is faster on big data set
              – Suite401
              52 mins ago
















            • Thanks Henrik, Kuba; am checking to see which is faster on big data set
              – Suite401
              52 mins ago















            Thanks Henrik, Kuba; am checking to see which is faster on big data set
            – Suite401
            52 mins ago




            Thanks Henrik, Kuba; am checking to see which is faster on big data set
            – Suite401
            52 mins ago










            up vote
            2
            down vote













            Another variation:



            KeyValueMap[Append] @ GroupBy[lis, Most->Last, StringJoin]



            "a", "b", "xzw", "d", "e", "y", "d", "c", "x"




            although you may like just the output of GroupBy[lis, Most->Last, StringJoin] better.






            share|improve this answer




















            • Wow, Most is a very good idea.
              – Henrik Schumacher
              13 mins ago














            up vote
            2
            down vote













            Another variation:



            KeyValueMap[Append] @ GroupBy[lis, Most->Last, StringJoin]



            "a", "b", "xzw", "d", "e", "y", "d", "c", "x"




            although you may like just the output of GroupBy[lis, Most->Last, StringJoin] better.






            share|improve this answer




















            • Wow, Most is a very good idea.
              – Henrik Schumacher
              13 mins ago












            up vote
            2
            down vote










            up vote
            2
            down vote









            Another variation:



            KeyValueMap[Append] @ GroupBy[lis, Most->Last, StringJoin]



            "a", "b", "xzw", "d", "e", "y", "d", "c", "x"




            although you may like just the output of GroupBy[lis, Most->Last, StringJoin] better.






            share|improve this answer












            Another variation:



            KeyValueMap[Append] @ GroupBy[lis, Most->Last, StringJoin]



            "a", "b", "xzw", "d", "e", "y", "d", "c", "x"




            although you may like just the output of GroupBy[lis, Most->Last, StringJoin] better.







            share|improve this answer












            share|improve this answer



            share|improve this answer










            answered 16 mins ago









            Carl Woll

            58.9k276150




            58.9k276150











            • Wow, Most is a very good idea.
              – Henrik Schumacher
              13 mins ago
















            • Wow, Most is a very good idea.
              – Henrik Schumacher
              13 mins ago















            Wow, Most is a very good idea.
            – Henrik Schumacher
            13 mins ago




            Wow, Most is a very good idea.
            – Henrik Schumacher
            13 mins ago

















             

            draft saved


            draft discarded















































             


            draft saved


            draft discarded














            StackExchange.ready(
            function ()
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f182726%2flist-rearrangment-with-joining-of-strings%23new-answer', 'question_page');

            );

            Post as a guest
































































            Comments

            Post a Comment

            Popular posts from this blog

            Long meetings (6-7 hours a day): Being “babysat” by supervisor

            Image
            Clash Royale CLAN TAG #URR8PPP .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty margin-bottom:0; up vote 31 down vote favorite 4 I hold a PhD in mechanical engineering with a 7 year background in self-guided, self-paced research including 2 years as a graduate level course instructor and a subject matter expert for various engineering projects in a university setting in the United States. For the last 10-11 months, I am working in a research industry in France where my task is to debug C++ spaghetti code written over a period of several years by my current supervisor. It is a team of 2: just I and my supervisor. Diurnally, I am posed with a "bug of the day" to get out of this C++ code. My supervisor generally gives me about 15-30 minutes to solve it and then accosts me about whether or not the task is completed and then rinses and repeats this until the end of the day. Off-late, my supervisor has been holding 6-7 hour long "meetin
            Read more

            What does second last employer means? [closed]

            Image
            Clash Royale CLAN TAG #URR8PPP .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty margin-bottom:0; up vote -3 down vote favorite Say, for example I have worked in the following companies, Company A => 2010 - 2011 Company B => 2011 - 2012 Company C => 2012 - Till Date Company D => Have offer Now assume Company D is asking to submit documents from my second last employer. So from the list of companies given, which company would be qualified as second last employer? software-industry employer share | improve this question asked Aug 10 '14 at 5:16 Rajaprabhu Aravindasamy 559 1 6 13 closed as off-topic by Jim G., jmort253 ♦ Aug 11 '14 at 1:58 This question appears to be off-topic. The users who voted to close gave this specific reason: "Questions seeking advice on company-specific regulations, agreements, or policies should be directed to your manager or HR department. Questions that address only
            Read more

            One-line joke

            A one-liner is a joke that is delivered in a single line. A good one-liner is said to be pithy - concise and meaningful. [1] Comedians and actors use this comedic method as part of their act, e.g. Jimmy Carr, Tommy Cooper, Rodney Dangerfield, Norm Macdonald, Ken Dodd, Stewart Francis, Zach Galifianakis, Mitch Hedberg, Anthony Jeselnik, Milton Jones, Shappi Khorsandi, Jay London, Mark Linn-Baker, Demetri Martin, Groucho Marx, Dan Mintz, Emo Philips, Tim Vine, Steven Wright and Henny Youngman and Arnold Schwarzenegger. [ citation needed ] Many fictional characters are also known to deliver one-liners, including James Bond, who usually includes pithy and laconic quips after disposing of a villain. [ citation needed ] Examples "A baby seal walks into a club." "A dyslexic man walks into a bra." (Anonymous) "There are three types of people, those who can count and those who can't." "Venison's dear, isn't it?" (Jimmy Carr) "An escala
            Read more