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

                      RAC Tourist Trophy

                      Image
                      Pour les articles homonymes, voir Tourist Trophy. Le RAC Tourist Trophy est une course automobile organisée par le Royal Automobile Club d'Angleterre. Créée en 1905, cette course a fait partie des épreuves comptant pour le championnat du monde des voitures de sport entre 1953 et 1955, en 1958 et 1959, et entre 1962 et 1965. Après une interruption de 17 ans (l'épreuve s'arrête après 1988), le RAC Tourist Trophy reprend en 2005 sous l'égide de la FIA GT. Palmarès | John Napier sur Arrol-Johnston, vainqueur du premier RAC Tourist Trophy, en 1905. L'honorable C.S. Rolls, vainqueur du RAC Tourist Trophy 1906. Ernest Curtis, sur Rover 20 hp, vainqueur du RAC Tourist Trophy 1907. William Watson, vainqueur du RAC Tourist Trophy 1908. Kenelm Lee Guinness, vainqueur du RAC Tourist Trophy 1914 sur Sunbeam. Départ du RAC Tourist Trophy 1928. Louis Gérard, vainqueur du RAC Tourist Trophy 1938 sur Delage. Année Circuit Vainqueur
                      Read more