Select connected subsets of integer pairs?

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











up vote
4
down vote

favorite
1












Given a list of integer pairs such as



list = 1,2,1,3,2,5,1,5,6,7,6,9,4,6 ;


What is a quick way to separate the pairs into groups in which every element shares at least one integer with at least one other element, in Mathematica? e.g.:



separate[list]



1,2,1,3,2,5,1,5 , 6,7,6,9,4,6




Thanks for any suggestion!






list-manipulation function-construction







share|improve this question

























    up vote
    4
    down vote

    favorite
    1












    Given a list of integer pairs such as



    list = 1,2,1,3,2,5,1,5,6,7,6,9,4,6 ;


    What is a quick way to separate the pairs into groups in which every element shares at least one integer with at least one other element, in Mathematica? e.g.:



    separate[list]



    1,2,1,3,2,5,1,5 , 6,7,6,9,4,6




    Thanks for any suggestion!






    list-manipulation function-construction







    share|improve this question























      up vote
      4
      down vote

      favorite
      1









      up vote
      4
      down vote

      favorite
      1






      1





      Given a list of integer pairs such as



      list = 1,2,1,3,2,5,1,5,6,7,6,9,4,6 ;


      What is a quick way to separate the pairs into groups in which every element shares at least one integer with at least one other element, in Mathematica? e.g.:



      separate[list]



      1,2,1,3,2,5,1,5 , 6,7,6,9,4,6




      Thanks for any suggestion!






      list-manipulation function-construction







      share|improve this question













      Given a list of integer pairs such as



      list = 1,2,1,3,2,5,1,5,6,7,6,9,4,6 ;


      What is a quick way to separate the pairs into groups in which every element shares at least one integer with at least one other element, in Mathematica? e.g.:



      separate[list]



      1,2,1,3,2,5,1,5 , 6,7,6,9,4,6




      Thanks for any suggestion!






      list-manipulation function-construction




      list-manipulation function-construction






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked 4 hours ago









      Kagaratsch

      4,48631246




      4,48631246




















          2 Answers
          2






          active

          oldest

          votes

















          up vote
          3
          down vote



          accepted










          G = Graph[1, 2, 1, 3, 2, 5, 1, 5, 6, 7, 6, 9, 4, 6];
          Select[
           List @@@ EdgeList[Subgraph[G, #]] & /@ ConnectedComponents[G], 
           Length[#]>0 &
           ]



          4, 6, 6, 7, 6, 9, 1, 2, 1, 3, 2, 5, 1, 5







          share|improve this answer





























            up vote
            0
            down vote













            Gather[list, IntersectingQ]



            1, 2, 1, 3, 2, 5, 1, 5,

            6, 7, 6, 9, 4, 6






            share




















              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: true,
              showLowRepImageUploadWarning: true,
              reputationToPostImages: null,
              bindNavPrevention: true,
              postfix: "",
              imageUploader:
              brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
              contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
              allowUrls: true
              ,
              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%2f185448%2fselect-connected-subsets-of-integer-pairs%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
              3
              down vote



              accepted










              G = Graph[1, 2, 1, 3, 2, 5, 1, 5, 6, 7, 6, 9, 4, 6];
              Select[
               List @@@ EdgeList[Subgraph[G, #]] & /@ ConnectedComponents[G], 
               Length[#]>0 &
               ]



              4, 6, 6, 7, 6, 9, 1, 2, 1, 3, 2, 5, 1, 5







              share|improve this answer


























                up vote
                3
                down vote



                accepted










                G = Graph[1, 2, 1, 3, 2, 5, 1, 5, 6, 7, 6, 9, 4, 6];
                Select[
                 List @@@ EdgeList[Subgraph[G, #]] & /@ ConnectedComponents[G], 
                 Length[#]>0 &
                 ]



                4, 6, 6, 7, 6, 9, 1, 2, 1, 3, 2, 5, 1, 5







                share|improve this answer
























                  up vote
                  3
                  down vote



                  accepted







                  up vote
                  3
                  down vote



                  accepted






                  G = Graph[1, 2, 1, 3, 2, 5, 1, 5, 6, 7, 6, 9, 4, 6];
                  Select[
                   List @@@ EdgeList[Subgraph[G, #]] & /@ ConnectedComponents[G], 
                   Length[#]>0 &
                   ]



                  4, 6, 6, 7, 6, 9, 1, 2, 1, 3, 2, 5, 1, 5







                  share|improve this answer














                  G = Graph[1, 2, 1, 3, 2, 5, 1, 5, 6, 7, 6, 9, 4, 6];
                  Select[
                   List @@@ EdgeList[Subgraph[G, #]] & /@ ConnectedComponents[G], 
                   Length[#]>0 &
                   ]



                  4, 6, 6, 7, 6, 9, 1, 2, 1, 3, 2, 5, 1, 5








                  share|improve this answer














                  share|improve this answer



                  share|improve this answer








                  edited 4 hours ago

























                  answered 4 hours ago









                  Henrik Schumacher

                  44k263129




                  44k263129




















                      up vote
                      0
                      down vote













                      Gather[list, IntersectingQ]



                      1, 2, 1, 3, 2, 5, 1, 5,

                      6, 7, 6, 9, 4, 6






                      share
























                        up vote
                        0
                        down vote













                        Gather[list, IntersectingQ]



                        1, 2, 1, 3, 2, 5, 1, 5,

                        6, 7, 6, 9, 4, 6






                        share






















                          up vote
                          0
                          down vote










                          up vote
                          0
                          down vote









                          Gather[list, IntersectingQ]



                          1, 2, 1, 3, 2, 5, 1, 5,

                          6, 7, 6, 9, 4, 6






                          share












                          Gather[list, IntersectingQ]



                          1, 2, 1, 3, 2, 5, 1, 5,

                          6, 7, 6, 9, 4, 6







                          share











                          share


                          share










                          answered 7 mins ago









                          kglr

                          169k8193396




                          169k8193396



























                               

                              draft saved


                              draft discarded















































                               


                              draft saved


                              draft discarded














                              StackExchange.ready(
                              function ()
                              StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f185448%2fselect-connected-subsets-of-integer-pairs%23new-answer', 'question_page');

                              );

                              Post as a guest
































































                              -

                              Popular posts from this blog

                              How to check contact read email or not when send email to Individual?

                              Image
                              Clash Royale CLAN TAG #URR8PPP up vote 1 down vote favorite I'm using WordPress 4.9.8, CiviCRM to 5.5.1, I usually send email to contact by Search> Find contacts View contact details Action> Send email Send email ok, Contact received mail ok like picture But status only Email sent though contact read email or not. So, can CiviCRM can change status to Email read when contact read email? wordpress email share | improve this question asked Sep 26 at 0:12 ToanLuong 49 9 add a comment  |  up vote 1 down vote favorite I'm using WordPress 4.9.8, CiviCRM to 5.5.1, I usually send email to contact by Search> Find contacts View contact details Action> Send email Send email ok, Contact received mail ok like picture But status only Email sent though contact read email or not. So, can CiviCRM can change status to Email read when contact read email? wordpress email share | improve this questi...
                              Read more

                              Displaying single band from multi-band raster using QGIS

                              Image
                              Clash Royale CLAN TAG #URR8PPP 1 How can I extract a single band from multi-band raster in QGIS? I have an remote sensed image which has 6 bands (including NDVI band), I want to display each band separately, but have no idea how to do. I have seen some questions similar here but none worked for me. The original image (has 6 bands) is: I want to display the band 6 which should be like this: But I tried gdal_translate, and couldn't get the correct result. What I have got is: qgis raster multi-band share | improve this question edited Mar 5 at 0:53 Summer asked Mar 4 at 6:42 Summer Summer 23 6 Is this any help gis.stackexchange.com/questions/220658/… ? if not gis.stackexchange.com/questions/62133/… might help. – Michael Stimson Mar 4 at 6:46 Thanks for answering but when I used gdal_translate, qgis showed that 'Error 4: Kayena.tif: No such file or directory". Would you know how to fi...
                              Read more

                              How many registers does an x86_64 CPU actually have?

                              Image
                              Clash Royale CLAN TAG #URR8PPP up vote 2 down vote favorite I am currently learning reverse engineering and am studying the flags register. I had in my mind that rflags was just another name for one of the 16 general purpose registers, for example rax or rbx . But it looks like rflags is actually an additional register. So that makes 17 registers in total... how many more could there be? I have spent at least an hour on this and found numerous different answers. The best answer so far is this, which says that there are 40 registers in total. 16 General Purpose Registers 2 Status Registers 6 Code Segment Registers 16 SSE Registers 8 FPU/MMX Registers But if I add that up, I get 48. Could anybody provide an official answer on how many registers an x86_64 CPU has (e.g. an Intel i7). Additionally, I have seen references to 'hardware' and 'architectural' registers. What are those registers and how many are there? register x86-64 share | improve this...
                              Read more