Deleting duplicates only if they are a certain kind of duplicate

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 tuples like this:



1,a,b,1,1,b,1,a,a,b,a,1,b,a,b


I would like to find a way to delete all those tuples in the list that contain a duplicate unless that duplicate is a 1. Therefore, the desired result given the example input above would be:



1,a,b,1,1,b,b,a,1


I will also need to delete duplicate elements within the list (irrespective of sorting) but that is easily done (i.e. only keep one of 1,a,b and b,a,1).



I would like it to work for generic length tuples too, for example:



1,1,1,1,1,a,a,b,a,b,b,c,1,a,b,c,1,1,a,b


would become



1,1,1,1,1,a,b,c,1,1,a,b





list-manipulation filtering







share|improve this question



























    up vote
    3
    down vote

    favorite












    I have a list of tuples like this:



    1,a,b,1,1,b,1,a,a,b,a,1,b,a,b


    I would like to find a way to delete all those tuples in the list that contain a duplicate unless that duplicate is a 1. Therefore, the desired result given the example input above would be:



    1,a,b,1,1,b,b,a,1


    I will also need to delete duplicate elements within the list (irrespective of sorting) but that is easily done (i.e. only keep one of 1,a,b and b,a,1).



    I would like it to work for generic length tuples too, for example:



    1,1,1,1,1,a,a,b,a,b,b,c,1,a,b,c,1,1,a,b


    would become



    1,1,1,1,1,a,b,c,1,1,a,b





    list-manipulation filtering







    share|improve this question

























      up vote
      3
      down vote

      favorite









      up vote
      3
      down vote

      favorite











      I have a list of tuples like this:



      1,a,b,1,1,b,1,a,a,b,a,1,b,a,b


      I would like to find a way to delete all those tuples in the list that contain a duplicate unless that duplicate is a 1. Therefore, the desired result given the example input above would be:



      1,a,b,1,1,b,b,a,1


      I will also need to delete duplicate elements within the list (irrespective of sorting) but that is easily done (i.e. only keep one of 1,a,b and b,a,1).



      I would like it to work for generic length tuples too, for example:



      1,1,1,1,1,a,a,b,a,b,b,c,1,a,b,c,1,1,a,b


      would become



      1,1,1,1,1,a,b,c,1,1,a,b





      list-manipulation filtering







      share|improve this question















      I have a list of tuples like this:



      1,a,b,1,1,b,1,a,a,b,a,1,b,a,b


      I would like to find a way to delete all those tuples in the list that contain a duplicate unless that duplicate is a 1. Therefore, the desired result given the example input above would be:



      1,a,b,1,1,b,b,a,1


      I will also need to delete duplicate elements within the list (irrespective of sorting) but that is easily done (i.e. only keep one of 1,a,b and b,a,1).



      I would like it to work for generic length tuples too, for example:



      1,1,1,1,1,a,a,b,a,b,b,c,1,a,b,c,1,1,a,b


      would become



      1,1,1,1,1,a,b,c,1,1,a,b





      list-manipulation filtering




      list-manipulation filtering






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited 7 mins ago









      J. M. is computer-less♦

      94.8k10294454




      94.8k10294454










      asked 25 mins ago









      Daniel Wilson-Nunn

      1995




      1995




















          1 Answer
          1






          active

          oldest

          votes

















          up vote
          4
          down vote













          list = 1, a, b, 1, 1, b, 1, a, a, b, a, 1, b, a, b;
          l1 = Select[list,DuplicateFreeQ[DeleteCases[#,1]]&]



          1, a, b, 1, 1, b, b, a, 1 




          DeleteDuplicatesBy[Sort]@l1



          1, a, b, 1, 1, b 




          list2 = 1, 1, 1, 1, 1, a, a, b, a, b, b, c, 1, a, b, c, 1, 1, a, b;
          l2 = Select[list2, DuplicateFreeQ[DeleteCases[#, 1]] &]



          1, 1, 1, 1, 1, a, b, c, 1, 1, a, b 




          DeleteDuplicatesBy[Sort]@l2



          1, 1, 1, 1, 1, a, b, c, 1, 1, a, b







          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%2f184084%2fdeleting-duplicates-only-if-they-are-a-certain-kind-of-duplicate%23new-answer', 'question_page');

            );

            Post as a guest

















            1 Answer
            1






            active

            oldest

            votes








            1 Answer
            1






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes








            up vote
            4
            down vote













            list = 1, a, b, 1, 1, b, 1, a, a, b, a, 1, b, a, b;
            l1 = Select[list,DuplicateFreeQ[DeleteCases[#,1]]&]



            1, a, b, 1, 1, b, b, a, 1 




            DeleteDuplicatesBy[Sort]@l1



            1, a, b, 1, 1, b 




            list2 = 1, 1, 1, 1, 1, a, a, b, a, b, b, c, 1, a, b, c, 1, 1, a, b;
            l2 = Select[list2, DuplicateFreeQ[DeleteCases[#, 1]] &]



            1, 1, 1, 1, 1, a, b, c, 1, 1, a, b 




            DeleteDuplicatesBy[Sort]@l2



            1, 1, 1, 1, 1, a, b, c, 1, 1, a, b







            share|improve this answer


























              up vote
              4
              down vote













              list = 1, a, b, 1, 1, b, 1, a, a, b, a, 1, b, a, b;
              l1 = Select[list,DuplicateFreeQ[DeleteCases[#,1]]&]



              1, a, b, 1, 1, b, b, a, 1 




              DeleteDuplicatesBy[Sort]@l1



              1, a, b, 1, 1, b 




              list2 = 1, 1, 1, 1, 1, a, a, b, a, b, b, c, 1, a, b, c, 1, 1, a, b;
              l2 = Select[list2, DuplicateFreeQ[DeleteCases[#, 1]] &]



              1, 1, 1, 1, 1, a, b, c, 1, 1, a, b 




              DeleteDuplicatesBy[Sort]@l2



              1, 1, 1, 1, 1, a, b, c, 1, 1, a, b







              share|improve this answer
























                up vote
                4
                down vote










                up vote
                4
                down vote









                list = 1, a, b, 1, 1, b, 1, a, a, b, a, 1, b, a, b;
                l1 = Select[list,DuplicateFreeQ[DeleteCases[#,1]]&]



                1, a, b, 1, 1, b, b, a, 1 




                DeleteDuplicatesBy[Sort]@l1



                1, a, b, 1, 1, b 




                list2 = 1, 1, 1, 1, 1, a, a, b, a, b, b, c, 1, a, b, c, 1, 1, a, b;
                l2 = Select[list2, DuplicateFreeQ[DeleteCases[#, 1]] &]



                1, 1, 1, 1, 1, a, b, c, 1, 1, a, b 




                DeleteDuplicatesBy[Sort]@l2



                1, 1, 1, 1, 1, a, b, c, 1, 1, a, b







                share|improve this answer














                list = 1, a, b, 1, 1, b, 1, a, a, b, a, 1, b, a, b;
                l1 = Select[list,DuplicateFreeQ[DeleteCases[#,1]]&]



                1, a, b, 1, 1, b, b, a, 1 




                DeleteDuplicatesBy[Sort]@l1



                1, a, b, 1, 1, b 




                list2 = 1, 1, 1, 1, 1, a, a, b, a, b, b, c, 1, a, b, c, 1, 1, a, b;
                l2 = Select[list2, DuplicateFreeQ[DeleteCases[#, 1]] &]



                1, 1, 1, 1, 1, a, b, c, 1, 1, a, b 




                DeleteDuplicatesBy[Sort]@l2



                1, 1, 1, 1, 1, a, b, c, 1, 1, a, b








                share|improve this answer














                share|improve this answer



                share|improve this answer








                edited 15 mins ago

























                answered 21 mins ago









                kglr

                166k8188388




                166k8188388



























                     

                    draft saved


                    draft discarded















































                     


                    draft saved


                    draft discarded














                    StackExchange.ready(
                    function ()
                    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f184084%2fdeleting-duplicates-only-if-they-are-a-certain-kind-of-duplicate%23new-answer', 'question_page');

                    );

                    Post as a guest
































































                    Comments

                    Post a Comment

                    Popular posts from this blog

                    List of Gilmore Girls characters

                    Image
                    The season three cast—(Back row): Lane, Michel, Paris, Emily, Richard, Sookie, Miss Patty, Kirk; Front row: Jess, Luke, Lorelai, Rory, Dean This is a list of characters for the comedy-drama television series Gilmore Girls . Contents 1 Main characters 1.1 Lorelai Gilmore 1.2 Rory Gilmore 1.3 Sookie St. James 1.4 Lane Kim 1.5 Michel Gerard 1.6 Luke Danes 1.7 Emily Gilmore 1.8 Richard Gilmore 1.9 Paris Geller 1.10 Dean Forester 1.11 Jess Mariano 1.12 Kirk Gleason 1.13 Jason Stiles 1.14 Logan Huntzberger 2 Major recurring characters 2.1 Christopher Hayden 2.2 Jackson Belleville 2.3 Mrs. Kim 2.4 Tristin DuGray 2.5 Max Medina 2.6 Taylor Doose 2.7 Dave Rygalski 2.8 Marty 3 Recurring characters 3.1 Stars Hollow 3.2 Chilton 3.3 Yale 3.4 Other 4 Notable guest stars 5 Unseen characters 6 Notes 7 References Main characters Actor Character Appearances Season 1 Season 2 Season 3 Season 4 Season 5 Season 6 Season 7 A Year in the Life Lauren Graham Lorelai Gilmore...
                    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...
                    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