How to remove from the data the rows of with fixed number of elements? [on hold]












3












$begingroup$


Consider the data which has the form



data = {{x1,y1,z1},{x2,y2,z2,t2},{x3,y4,z4,t4},{x5,y5,z5},...}


How to remove the rows containing three elements from the data?



I.e., to obtain



dataprime = {{x2,y2,z2,t2},{x3,y4,z4,t4},...}





list-manipulation filtering







share|improve this question











$endgroup$



put on hold as off-topic by MarcoB, LCarvalho, Henrik Schumacher, J. M. is computer-less♦ 1 hour ago


This question appears to be off-topic. The users who voted to close gave this specific reason:


  • "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – MarcoB, LCarvalho, Henrik Schumacher, J. M. is computer-less

If this question can be reworded to fit the rules in the help center, please edit the question.












  • 1




    $begingroup$
    Maybe you ask for DeleteCases[data, _?(Length[#] == 3 &)]...
    $endgroup$
    – Henrik Schumacher
    11 hours ago










  • $begingroup$
    @HenrikSchumacher : sorry, already corrected this.
    $endgroup$
    – John Taylor
    11 hours ago
















3












$begingroup$


Consider the data which has the form



data = {{x1,y1,z1},{x2,y2,z2,t2},{x3,y4,z4,t4},{x5,y5,z5},...}


How to remove the rows containing three elements from the data?



I.e., to obtain



dataprime = {{x2,y2,z2,t2},{x3,y4,z4,t4},...}





list-manipulation filtering







share|improve this question











$endgroup$



put on hold as off-topic by MarcoB, LCarvalho, Henrik Schumacher, J. M. is computer-less♦ 1 hour ago


This question appears to be off-topic. The users who voted to close gave this specific reason:


  • "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – MarcoB, LCarvalho, Henrik Schumacher, J. M. is computer-less

If this question can be reworded to fit the rules in the help center, please edit the question.












  • 1




    $begingroup$
    Maybe you ask for DeleteCases[data, _?(Length[#] == 3 &)]...
    $endgroup$
    – Henrik Schumacher
    11 hours ago










  • $begingroup$
    @HenrikSchumacher : sorry, already corrected this.
    $endgroup$
    – John Taylor
    11 hours ago














3












3








3


1



$begingroup$


Consider the data which has the form



data = {{x1,y1,z1},{x2,y2,z2,t2},{x3,y4,z4,t4},{x5,y5,z5},...}


How to remove the rows containing three elements from the data?



I.e., to obtain



dataprime = {{x2,y2,z2,t2},{x3,y4,z4,t4},...}





list-manipulation filtering







share|improve this question











$endgroup$




Consider the data which has the form



data = {{x1,y1,z1},{x2,y2,z2,t2},{x3,y4,z4,t4},{x5,y5,z5},...}


How to remove the rows containing three elements from the data?



I.e., to obtain



dataprime = {{x2,y2,z2,t2},{x3,y4,z4,t4},...}





list-manipulation filtering




list-manipulation filtering






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited 1 hour ago









J. M. is computer-less♦

97k10303463




97k10303463










asked 11 hours ago









John TaylorJohn Taylor

736211




736211




put on hold as off-topic by MarcoB, LCarvalho, Henrik Schumacher, J. M. is computer-less♦ 1 hour ago


This question appears to be off-topic. The users who voted to close gave this specific reason:


  • "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – MarcoB, LCarvalho, Henrik Schumacher, J. M. is computer-less

If this question can be reworded to fit the rules in the help center, please edit the question.







put on hold as off-topic by MarcoB, LCarvalho, Henrik Schumacher, J. M. is computer-less♦ 1 hour ago


This question appears to be off-topic. The users who voted to close gave this specific reason:


  • "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – MarcoB, LCarvalho, Henrik Schumacher, J. M. is computer-less

If this question can be reworded to fit the rules in the help center, please edit the question.








  • 1




    $begingroup$
    Maybe you ask for DeleteCases[data, _?(Length[#] == 3 &)]...
    $endgroup$
    – Henrik Schumacher
    11 hours ago










  • $begingroup$
    @HenrikSchumacher : sorry, already corrected this.
    $endgroup$
    – John Taylor
    11 hours ago














  • 1




    $begingroup$
    Maybe you ask for DeleteCases[data, _?(Length[#] == 3 &)]...
    $endgroup$
    – Henrik Schumacher
    11 hours ago










  • $begingroup$
    @HenrikSchumacher : sorry, already corrected this.
    $endgroup$
    – John Taylor
    11 hours ago








1




1




$begingroup$
Maybe you ask for DeleteCases[data, _?(Length[#] == 3 &)]...
$endgroup$
– Henrik Schumacher
11 hours ago




$begingroup$
Maybe you ask for DeleteCases[data, _?(Length[#] == 3 &)]...
$endgroup$
– Henrik Schumacher
11 hours ago












$begingroup$
@HenrikSchumacher : sorry, already corrected this.
$endgroup$
– John Taylor
11 hours ago




$begingroup$
@HenrikSchumacher : sorry, already corrected this.
$endgroup$
– John Taylor
11 hours ago










2 Answers
2






active

oldest

votes


















8












$begingroup$

Any one of these would do:



Cases[data, Except[_?(Length[#] == 3 &)]]

DeleteCases[data, _?(Length[#] == 3 &)]



Select[data, Length[#] != 3 &]



Delete[data, Position[data, _?(Length[#] == 3 &)]]



data /. {_, _, _} -> Nothing

data /. {Repeated[_, {3}]} -> Nothing


They all return: {{x2, y2, z2, t2}, {x3, y4, z4, t4}}






share|improve this answer











$endgroup$





















    5












    $begingroup$

    Also



    Pick[data, Unitize[-3 + Length /@ data], 1]





    share|improve this answer









    $endgroup$




















      2 Answers
      2






      active

      oldest

      votes








      2 Answers
      2






      active

      oldest

      votes









      active

      oldest

      votes






      active

      oldest

      votes









      8












      $begingroup$

      Any one of these would do:



      Cases[data, Except[_?(Length[#] == 3 &)]]
      
DeleteCases[data, _?(Length[#] == 3 &)]
      

      
Select[data, Length[#] != 3 &]
      

      
Delete[data, Position[data, _?(Length[#] == 3 &)]]
      

      
data /. {_, _, _} -> Nothing
      
data /. {Repeated[_, {3}]} -> Nothing


      They all return: {{x2, y2, z2, t2}, {x3, y4, z4, t4}}






      share|improve this answer











      $endgroup$


















        8












        $begingroup$

        Any one of these would do:



        Cases[data, Except[_?(Length[#] == 3 &)]]
        
DeleteCases[data, _?(Length[#] == 3 &)]
        

        
Select[data, Length[#] != 3 &]
        

        
Delete[data, Position[data, _?(Length[#] == 3 &)]]
        

        
data /. {_, _, _} -> Nothing
        
data /. {Repeated[_, {3}]} -> Nothing


        They all return: {{x2, y2, z2, t2}, {x3, y4, z4, t4}}






        share|improve this answer











        $endgroup$
















          8












          8








          8





          $begingroup$

          Any one of these would do:



          Cases[data, Except[_?(Length[#] == 3 &)]]
          
DeleteCases[data, _?(Length[#] == 3 &)]
          

          
Select[data, Length[#] != 3 &]
          

          
Delete[data, Position[data, _?(Length[#] == 3 &)]]
          

          
data /. {_, _, _} -> Nothing
          
data /. {Repeated[_, {3}]} -> Nothing


          They all return: {{x2, y2, z2, t2}, {x3, y4, z4, t4}}






          share|improve this answer











          $endgroup$



          Any one of these would do:



          Cases[data, Except[_?(Length[#] == 3 &)]]
          
DeleteCases[data, _?(Length[#] == 3 &)]
          

          
Select[data, Length[#] != 3 &]
          

          
Delete[data, Position[data, _?(Length[#] == 3 &)]]
          

          
data /. {_, _, _} -> Nothing
          
data /. {Repeated[_, {3}]} -> Nothing


          They all return: {{x2, y2, z2, t2}, {x3, y4, z4, t4}}







          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited 10 hours ago

























          answered 11 hours ago









          MarcoBMarcoB

          36.3k556112




          36.3k556112























              5












              $begingroup$

              Also



              Pick[data, Unitize[-3 + Length /@ data], 1]





              share|improve this answer









              $endgroup$


















                5












                $begingroup$

                Also



                Pick[data, Unitize[-3 + Length /@ data], 1]





                share|improve this answer









                $endgroup$
















                  5












                  5








                  5





                  $begingroup$

                  Also



                  Pick[data, Unitize[-3 + Length /@ data], 1]





                  share|improve this answer









                  $endgroup$



                  Also



                  Pick[data, Unitize[-3 + Length /@ data], 1]






                  share|improve this answer












                  share|improve this answer



                  share|improve this answer










                  answered 11 hours ago









                  kglrkglr

                  186k10202421




                  186k10202421















                      -

                      Popular posts from this blog

                      "Incorrect syntax near the keyword 'ON'. (on update cascade, on delete cascade,)

                      Image
                      .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box; } 2 total noob sorry any help greatly appreciated. I keep getting this "Incorrect syntax near the keyword 'ON'." heres my codes code one CREATE TABLE supplier ( supplierID INT PRIMARY KEY, ISBN INT FOREIGN KEY REFERENCES book(ISBN), price DECIMAL (5,2), ON UPDATE CASCADE, ON DELETE CASCADE, ); code two CREATE TABLE orders ( orderID INT PRIMARY KEY, customerID INT FOREIGN KEY REFERENCES customer(customerID), ISBN INT FOREIGN KEY REFERENCES book(ISBN), orderDate date, ON UPDATE CASCADE, ON DELETE CASCADE, ); Ive run out of stuff to try other than dumbing it down to uselessness. ...
                      Read more

                      Alcedinidae

                      Image
                      Alcedinidae Martin-pêcheur à dos bleu ( Alcedo azurea ) Classification (COI) Règne Animalia Embranchement Chordata Sous-embr. Vertebrata Classe Aves Ordre Coraciiformes Famille Alcedinidae Rafinesque, 1815 Les Alcédinidés ou Alcedinidae forment une famille d'oiseaux plus connus sous les noms de martins-pêcheurs et martins-chasseurs. Sommaire 1 Description 2 Répartition et habitat 3 Systématique 3.1 Liste alphabétique des genres 3.2 Liste des espèces 4 Chez les Anciens : l'alcyon 4.1 Étymologie (Littré) 4.2 Oiseau « fabuleux » ? 5 Notes 6 Articles connexes 7 Liens externes 7.1 Bibliographie Description | Ce sont des oiseaux compacts de taille petite à moyenne (10 à 46 cm), au bec droit et long, en forme de poignard. Leurs pattes sont courtes, et ils portent un plumage aux couleurs vives. Répartition et habitat | Cosmopolites, ils fréquentent surtout ...
                      Read more

                      Origin of the phrase “under your belt”?

                      Image
                      .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ margin-bottom:0; } 17 1 Today, I found myself discussing what students should have "under their belts" during a lecture, and I wondered to myself if there was some inappropriate undertone here that I might be unaware of. Question : What is the origin of the phrase "under your belt"? A google search revealed some webpages (e.g. [1]) that assert its origin is related to consumption of food -- once a meal has been eaten, it's under your belt (which is a relief). However, with such websites, I have no way to determine fact from "random guy on the internet making stuff up". etymology idioms ...
                      Read more