Deleting certain integers from string list

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











up vote
8
down vote

favorite












I have a list of strings:



lis = "a","1","b","2","c","3","a","d","4"


and would like to get:



res = "a","b","2","c","3","a","d","4"


where each occurrence of "a" that is immediately followed by (a string representation of) an integer, that integer is deleted from the list. ToExpression followed by IntegerQ seems inefficient, would be grateful for thoughts.






list-manipulation string-manipulation







share|improve this question



























    up vote
    8
    down vote

    favorite












    I have a list of strings:



    lis = "a","1","b","2","c","3","a","d","4"


    and would like to get:



    res = "a","b","2","c","3","a","d","4"


    where each occurrence of "a" that is immediately followed by (a string representation of) an integer, that integer is deleted from the list. ToExpression followed by IntegerQ seems inefficient, would be grateful for thoughts.






    list-manipulation string-manipulation







    share|improve this question

























      up vote
      8
      down vote

      favorite









      up vote
      8
      down vote

      favorite











      I have a list of strings:



      lis = "a","1","b","2","c","3","a","d","4"


      and would like to get:



      res = "a","b","2","c","3","a","d","4"


      where each occurrence of "a" that is immediately followed by (a string representation of) an integer, that integer is deleted from the list. ToExpression followed by IntegerQ seems inefficient, would be grateful for thoughts.






      list-manipulation string-manipulation







      share|improve this question















      I have a list of strings:



      lis = "a","1","b","2","c","3","a","d","4"


      and would like to get:



      res = "a","b","2","c","3","a","d","4"


      where each occurrence of "a" that is immediately followed by (a string representation of) an integer, that integer is deleted from the list. ToExpression followed by IntegerQ seems inefficient, would be grateful for thoughts.






      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 2 days ago









      kglr

      159k8184384




      159k8184384










      asked 2 days ago









      Suite401

      864212




      864212




















          2 Answers
          2






          active

          oldest

          votes

















          up vote
          8
          down vote



          accepted










          SequenceReplace:



          SequenceReplace[lis, "a", _?(StringMatchQ[NumberString]) :> "a"]



           "a", "b", "2", "c", "3", "a", "d", "4"




          Also



          SequenceReplace[lis, "a", _?(IntegerQ @* ToExpression) :> "a"]



           "a", "b", "2", "c", "3", "a", "d", "4"




          Split + ReplaceAll



          Flatten[Split[lis, # == "a" &] /. "a", _?(IntegerQ@*ToExpression) :> "a"]



           "a", "b", "2", "c", "3", "a", "d", "4"







          share|improve this answer


















          • 1




            Thank you both!
            – Suite401
            2 days ago

















          up vote
          6
          down vote













          The following works for your example. But I am not sure that it will work for you if your example is not descriptive enough for some more general situation you have in mind.



          lis = "a", "1", "b", "2", "c", "3", "a", "d", "4";
          Flatten[Partition[lis, UpTo[2]] /. "a", "1" -> "a"]



          "a", "b", "2", "c", "3", "a", "d", "4"






          share|improve this answer




















            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%2f181661%2fdeleting-certain-integers-from-string-list%23new-answer', 'question_page');

            );

            Post as a guest

















            2 Answers
            2






            active

            oldest

            votes








            2 Answers
            2






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes








            up vote
            8
            down vote



            accepted










            SequenceReplace:



            SequenceReplace[lis, "a", _?(StringMatchQ[NumberString]) :> "a"]



             "a", "b", "2", "c", "3", "a", "d", "4"




            Also



            SequenceReplace[lis, "a", _?(IntegerQ @* ToExpression) :> "a"]



             "a", "b", "2", "c", "3", "a", "d", "4"




            Split + ReplaceAll



            Flatten[Split[lis, # == "a" &] /. "a", _?(IntegerQ@*ToExpression) :> "a"]



             "a", "b", "2", "c", "3", "a", "d", "4"







            share|improve this answer


















            • 1




              Thank you both!
              – Suite401
              2 days ago














            up vote
            8
            down vote



            accepted










            SequenceReplace:



            SequenceReplace[lis, "a", _?(StringMatchQ[NumberString]) :> "a"]



             "a", "b", "2", "c", "3", "a", "d", "4"




            Also



            SequenceReplace[lis, "a", _?(IntegerQ @* ToExpression) :> "a"]



             "a", "b", "2", "c", "3", "a", "d", "4"




            Split + ReplaceAll



            Flatten[Split[lis, # == "a" &] /. "a", _?(IntegerQ@*ToExpression) :> "a"]



             "a", "b", "2", "c", "3", "a", "d", "4"







            share|improve this answer


















            • 1




              Thank you both!
              – Suite401
              2 days ago












            up vote
            8
            down vote



            accepted







            up vote
            8
            down vote



            accepted






            SequenceReplace:



            SequenceReplace[lis, "a", _?(StringMatchQ[NumberString]) :> "a"]



             "a", "b", "2", "c", "3", "a", "d", "4"




            Also



            SequenceReplace[lis, "a", _?(IntegerQ @* ToExpression) :> "a"]



             "a", "b", "2", "c", "3", "a", "d", "4"




            Split + ReplaceAll



            Flatten[Split[lis, # == "a" &] /. "a", _?(IntegerQ@*ToExpression) :> "a"]



             "a", "b", "2", "c", "3", "a", "d", "4"







            share|improve this answer














            SequenceReplace:



            SequenceReplace[lis, "a", _?(StringMatchQ[NumberString]) :> "a"]



             "a", "b", "2", "c", "3", "a", "d", "4"




            Also



            SequenceReplace[lis, "a", _?(IntegerQ @* ToExpression) :> "a"]



             "a", "b", "2", "c", "3", "a", "d", "4"




            Split + ReplaceAll



            Flatten[Split[lis, # == "a" &] /. "a", _?(IntegerQ@*ToExpression) :> "a"]



             "a", "b", "2", "c", "3", "a", "d", "4"








            share|improve this answer














            share|improve this answer



            share|improve this answer








            edited 2 days ago

























            answered 2 days ago









            kglr

            159k8184384




            159k8184384







            • 1




              Thank you both!
              – Suite401
              2 days ago












            • 1




              Thank you both!
              – Suite401
              2 days ago







            1




            1




            Thank you both!
            – Suite401
            2 days ago




            Thank you both!
            – Suite401
            2 days ago










            up vote
            6
            down vote













            The following works for your example. But I am not sure that it will work for you if your example is not descriptive enough for some more general situation you have in mind.



            lis = "a", "1", "b", "2", "c", "3", "a", "d", "4";
            Flatten[Partition[lis, UpTo[2]] /. "a", "1" -> "a"]



            "a", "b", "2", "c", "3", "a", "d", "4"






            share|improve this answer
























              up vote
              6
              down vote













              The following works for your example. But I am not sure that it will work for you if your example is not descriptive enough for some more general situation you have in mind.



              lis = "a", "1", "b", "2", "c", "3", "a", "d", "4";
              Flatten[Partition[lis, UpTo[2]] /. "a", "1" -> "a"]



              "a", "b", "2", "c", "3", "a", "d", "4"






              share|improve this answer






















                up vote
                6
                down vote










                up vote
                6
                down vote









                The following works for your example. But I am not sure that it will work for you if your example is not descriptive enough for some more general situation you have in mind.



                lis = "a", "1", "b", "2", "c", "3", "a", "d", "4";
                Flatten[Partition[lis, UpTo[2]] /. "a", "1" -> "a"]



                "a", "b", "2", "c", "3", "a", "d", "4"






                share|improve this answer












                The following works for your example. But I am not sure that it will work for you if your example is not descriptive enough for some more general situation you have in mind.



                lis = "a", "1", "b", "2", "c", "3", "a", "d", "4";
                Flatten[Partition[lis, UpTo[2]] /. "a", "1" -> "a"]



                "a", "b", "2", "c", "3", "a", "d", "4"







                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered 2 days ago









                m_goldberg

                81.8k869190




                81.8k869190



























                     

                    draft saved


                    draft discarded















































                     


                    draft saved


                    draft discarded














                    StackExchange.ready(
                    function ()
                    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f181661%2fdeleting-certain-integers-from-string-list%23new-answer', 'question_page');

                    );

                    Post as a guest
































































                    Comments

                    Post a Comment

                    Popular posts from this blog

                    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...
                    Read more

                    Installing NextGIS Connect into QGIS 3?

                    Image
                    Clash Royale CLAN TAG #URR8PPP .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty margin-bottom:0; up vote 1 down vote favorite Just acquired free version of NEXTGIS and trying to install the plugin for QGIS. It tells me it was not designed for version 3 of QGIS. How do I set up the QGIS-NEXTGIS interface then? qgis qgis-plugins nextgis share | improve this question edited 3 hours ago PolyGeo ♦ 51.9k 17 77 233 asked 4 hours ago IanGS 16 4 New contributor IanGS is a new contributor to this site. Take care in asking for clarification, commenting, and answering. Check out our Code of Conduct. add a comment  |  up vote 1 down vote favorite Just acquired free version of NEXTGIS and trying to install the plugin for QGIS. It tells me it was not designed for version 3 of QGIS. How do I set up the QGIS-NEXTGIS interface then? qgis qgis-plugin...
                    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