Delete elements of list with certain length

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












6












$begingroup$


I have a list containing some other lists having different lengths. I want to remove some of the lists with a certain length. For example, I have



a = 0, 5, 2, 15, 6, 9, 3, 1, 5, 5, 5, 4, 4, 5, 6, 5;


I want to remove some sub-lists of a having length 1. I mean, I want the result to be as



0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6


How can I do that using Mathematica?










share|improve this question









$endgroup$
















    6












    $begingroup$


    I have a list containing some other lists having different lengths. I want to remove some of the lists with a certain length. For example, I have



    a = 0, 5, 2, 15, 6, 9, 3, 1, 5, 5, 5, 4, 4, 5, 6, 5;


    I want to remove some sub-lists of a having length 1. I mean, I want the result to be as



    0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6


    How can I do that using Mathematica?










    share|improve this question









    $endgroup$














      6












      6








      6





      $begingroup$


      I have a list containing some other lists having different lengths. I want to remove some of the lists with a certain length. For example, I have



      a = 0, 5, 2, 15, 6, 9, 3, 1, 5, 5, 5, 4, 4, 5, 6, 5;


      I want to remove some sub-lists of a having length 1. I mean, I want the result to be as



      0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6


      How can I do that using Mathematica?










      share|improve this question









      $endgroup$




      I have a list containing some other lists having different lengths. I want to remove some of the lists with a certain length. For example, I have



      a = 0, 5, 2, 15, 6, 9, 3, 1, 5, 5, 5, 4, 4, 5, 6, 5;


      I want to remove some sub-lists of a having length 1. I mean, I want the result to be as



      0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6


      How can I do that using Mathematica?







      list-manipulation






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked Jan 3 at 6:38









      Hadi SobhaniHadi Sobhani

      37327




      37327




















          2 Answers
          2






          active

          oldest

          votes


















          7












          $begingroup$

          Select[a, Length@# != 1 &]



          0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6




          Also



          GeneralUtilities`Discard[a, Length[#] == 1 &]



          0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6




          and



          DeleteCases[a, _?(Length@# == 1 &)]



          0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6







          share|improve this answer











          $endgroup$




















            5












            $begingroup$

            This might be faster than klgr's solutions on large lists:



            Pick[a, Unitize[Length /@ a - 1], 1]


            Select and DeleteCases are known to be kind of slow.






            share|improve this answer









            $endgroup$












              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',
              autoActivateHeartbeat: false,
              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%2f188750%2fdelete-elements-of-list-with-certain-length%23new-answer', 'question_page');

              );

              Post as a guest















              Required, but never shown

























              2 Answers
              2






              active

              oldest

              votes








              2 Answers
              2






              active

              oldest

              votes









              active

              oldest

              votes






              active

              oldest

              votes









              7












              $begingroup$

              Select[a, Length@# != 1 &]



              0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6




              Also



              GeneralUtilities`Discard[a, Length[#] == 1 &]



              0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6




              and



              DeleteCases[a, _?(Length@# == 1 &)]



              0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6







              share|improve this answer











              $endgroup$

















                7












                $begingroup$

                Select[a, Length@# != 1 &]



                0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6




                Also



                GeneralUtilities`Discard[a, Length[#] == 1 &]



                0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6




                and



                DeleteCases[a, _?(Length@# == 1 &)]



                0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6







                share|improve this answer











                $endgroup$















                  7












                  7








                  7





                  $begingroup$

                  Select[a, Length@# != 1 &]



                  0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6




                  Also



                  GeneralUtilities`Discard[a, Length[#] == 1 &]



                  0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6




                  and



                  DeleteCases[a, _?(Length@# == 1 &)]



                  0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6







                  share|improve this answer











                  $endgroup$



                  Select[a, Length@# != 1 &]



                  0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6




                  Also



                  GeneralUtilities`Discard[a, Length[#] == 1 &]



                  0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6




                  and



                  DeleteCases[a, _?(Length@# == 1 &)]



                  0, 5, 2, 15, 6, 9, 3, 5, 5, 5, 4, 4, 5, 6








                  share|improve this answer














                  share|improve this answer



                  share|improve this answer








                  edited Jan 3 at 9:03

























                  answered Jan 3 at 6:44









                  kglrkglr

                  179k9198410




                  179k9198410





















                      5












                      $begingroup$

                      This might be faster than klgr's solutions on large lists:



                      Pick[a, Unitize[Length /@ a - 1], 1]


                      Select and DeleteCases are known to be kind of slow.






                      share|improve this answer









                      $endgroup$

















                        5












                        $begingroup$

                        This might be faster than klgr's solutions on large lists:



                        Pick[a, Unitize[Length /@ a - 1], 1]


                        Select and DeleteCases are known to be kind of slow.






                        share|improve this answer









                        $endgroup$















                          5












                          5








                          5





                          $begingroup$

                          This might be faster than klgr's solutions on large lists:



                          Pick[a, Unitize[Length /@ a - 1], 1]


                          Select and DeleteCases are known to be kind of slow.






                          share|improve this answer









                          $endgroup$



                          This might be faster than klgr's solutions on large lists:



                          Pick[a, Unitize[Length /@ a - 1], 1]


                          Select and DeleteCases are known to be kind of slow.







                          share|improve this answer












                          share|improve this answer



                          share|improve this answer










                          answered Jan 3 at 12:46









                          C. E.C. E.

                          50.2k397202




                          50.2k397202



























                              draft saved

                              draft discarded
















































                              Thanks for contributing an answer to Mathematica Stack Exchange!


                              • Please be sure to answer the question. Provide details and share your research!

                              But avoid


                              • Asking for help, clarification, or responding to other answers.

                              • Making statements based on opinion; back them up with references or personal experience.

                              Use MathJax to format equations. MathJax reference.


                              To learn more, see our tips on writing great answers.




                              draft saved


                              draft discarded














                              StackExchange.ready(
                              function ()
                              StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f188750%2fdelete-elements-of-list-with-certain-length%23new-answer', 'question_page');

                              );

                              Post as a guest















                              Required, but never shown





















































                              Required, but never shown














                              Required, but never shown












                              Required, but never shown







                              Required, but never shown

































                              Required, but never shown














                              Required, but never shown












                              Required, but never shown







                              Required, but never shown






                              Popular posts from this blog

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

                              Bahrain

                              Postfix configuration issue with fips on centos 7; mailgun relay