Delete elements of list with certain length












6















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



























    6















    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

























      6












      6








      6








      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














      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














          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

































            5














            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























              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














              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






























                7














                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




























                  7












                  7








                  7







                  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















                  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

                  178k9198409




                  178k9198409























                      5














                      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




























                        5














                        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


























                          5












                          5








                          5







                          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













                          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.1k397202




                          50.1k397202






























                              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

                              Human spaceflight

                              Can not write log (Is /dev/pts mounted?) - openpty in Ubuntu-on-Windows?

                              File:DeusFollowingSea.jpg