How to leave only the following strings? Planned maintenance scheduled April 23, 2019 at 23:30...

Pointing to problems without suggesting solutions

Converting a text document with special format to Pandas DataFrame

Why did Israel vote against lifting the American embargo on Cuba?

BV functions and wave equation

Has a Nobel Peace laureate ever been accused of war crimes?

Does Prince Arnaud cause someone holding the Princess to lose?

Kepler's 3rd law: ratios don't fit data

How to leave only the following strings?

How to ask rejected full-time candidates to apply to teach individual courses?

What is the evidence that custom checks in Northern Ireland are going to result in violence?

Why "Go Out and Learn"

Raising a bilingual kid. When should we introduce the majority language?

Lights are flickering on and off after accidentally bumping into light switch

Putting Ant-Man on house arrest

Weaponising the Grasp-at-a-Distance spell

IC on Digikey is 5x more expensive than board containing same IC on Alibaba: How?

Meaning of "Not holding on that level of emuna/bitachon"

Can this water damage be explained by lack of gutters and grading issues?

How do I deal with an erroneously large refund?

Are Flameskulls resistant to magical piercing damage?

How to charge percentage of transaction cost?

Do chord progressions usually move by fifths?

Why do people think Winterfell crypts is the safest place for women, children & old people?

2 sample t test for sample sizes - 30,000 and 150,000



How to leave only the following strings?



Planned maintenance scheduled April 23, 2019 at 23:30 UTC (7:30pm US/Eastern)
Announcing the arrival of Valued Associate #679: Cesar Manara
Unicorn Meta Zoo #1: Why another podcast?How can I create a class of matrices programmatically?Manipulate excel file and plotHow do I partition a matrix?How to create a table of tables?Turn the following values into percentageHow to select the data in a given way?Reading CSV data from a streamHow to remove from the data the rows of with fixed number of elements?Padding lists for accurate plottingHow to remove the given columns and strings?












2












$begingroup$


Consider a data having the form



data = {{1,7,4,6},{1,6,4,8},{2,4,9,2},{E,...},{1,4,6,3},{4,4,6,2},{E,...},...}


i.e., some number $n_{1}$ of rows followed by row ${E,...}$, then some number $n_{2}$ of rows followed by row ${E,...}$ and so on.



Could you please tell me how to leave only the last rows before ${E,}$, i.e. to obtain



subdata= {{2,4,9,2},{4,4,6,2},...}?





list-manipulation data







share|improve this question









$endgroup$








  • 1




    $begingroup$
    e.g. SequenceCases[data, {x_List, {E, ___}} :> x]
    $endgroup$
    – C. E.
    3 hours ago
















2












$begingroup$


Consider a data having the form



data = {{1,7,4,6},{1,6,4,8},{2,4,9,2},{E,...},{1,4,6,3},{4,4,6,2},{E,...},...}


i.e., some number $n_{1}$ of rows followed by row ${E,...}$, then some number $n_{2}$ of rows followed by row ${E,...}$ and so on.



Could you please tell me how to leave only the last rows before ${E,}$, i.e. to obtain



subdata= {{2,4,9,2},{4,4,6,2},...}?





list-manipulation data







share|improve this question









$endgroup$








  • 1




    $begingroup$
    e.g. SequenceCases[data, {x_List, {E, ___}} :> x]
    $endgroup$
    – C. E.
    3 hours ago














2












2








2





$begingroup$


Consider a data having the form



data = {{1,7,4,6},{1,6,4,8},{2,4,9,2},{E,...},{1,4,6,3},{4,4,6,2},{E,...},...}


i.e., some number $n_{1}$ of rows followed by row ${E,...}$, then some number $n_{2}$ of rows followed by row ${E,...}$ and so on.



Could you please tell me how to leave only the last rows before ${E,}$, i.e. to obtain



subdata= {{2,4,9,2},{4,4,6,2},...}?





list-manipulation data







share|improve this question









$endgroup$




Consider a data having the form



data = {{1,7,4,6},{1,6,4,8},{2,4,9,2},{E,...},{1,4,6,3},{4,4,6,2},{E,...},...}


i.e., some number $n_{1}$ of rows followed by row ${E,...}$, then some number $n_{2}$ of rows followed by row ${E,...}$ and so on.



Could you please tell me how to leave only the last rows before ${E,}$, i.e. to obtain



subdata= {{2,4,9,2},{4,4,6,2},...}?





list-manipulation data




list-manipulation data






share|improve this question













share|improve this question











share|improve this question




share|improve this question










asked 3 hours ago









John TaylorJohn Taylor

787211




787211








  • 1




    $begingroup$
    e.g. SequenceCases[data, {x_List, {E, ___}} :> x]
    $endgroup$
    – C. E.
    3 hours ago














  • 1




    $begingroup$
    e.g. SequenceCases[data, {x_List, {E, ___}} :> x]
    $endgroup$
    – C. E.
    3 hours ago








1




1




$begingroup$
e.g. SequenceCases[data, {x_List, {E, ___}} :> x]
$endgroup$
– C. E.
3 hours ago




$begingroup$
e.g. SequenceCases[data, {x_List, {E, ___}} :> x]
$endgroup$
– C. E.
3 hours ago










2 Answers
2






active

oldest

votes


















2












$begingroup$

Try SequenceCases:



data = {{1, 7, 4, 6}, {1, 6, 4, 8}, {2, 4, 9, 2}, {E, 1, 2, 3}, 

        {1, 4, 6, 3}, {4, 4, 6, 2}, {E, 4, 5, 6}}

SequenceCases[data, {p_, {E, ___}} :> p]


yields



{{2, 4, 9, 2}, {4, 4, 6, 2}}





share|improve this answer









$endgroup$





















    2












    $begingroup$

    The most idiomatic solution to this problem is, in my opinion, pattern matching (as Sakra has also answered):



    SequenceCases[data, {x_List, {E, ___}} :> x]



    {{2, 4, 9, 2}, {4, 4, 6, 2}}




    But the problem also lends itself to functional solutions, e.g.:



    pairs = Partition[data, 2, 1];
    
If[#[[2, 1]] == E, #[[1]], Nothing] & /@ pairs



    {{2, 4, 9, 2}, {4, 4, 6, 2}}




    Or in one go:



    BlockMap[If[#[[2, 1]] == E, #[[1]], Nothing] &, data, 2, 1]



    {{2, 4, 9, 2}, {4, 4, 6, 2}}







    share|improve this answer











    $endgroup$














      Your Answer








      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%2f195786%2fhow-to-leave-only-the-following-strings%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









      2












      $begingroup$

      Try SequenceCases:



      data = {{1, 7, 4, 6}, {1, 6, 4, 8}, {2, 4, 9, 2}, {E, 1, 2, 3}, 
      
        {1, 4, 6, 3}, {4, 4, 6, 2}, {E, 4, 5, 6}}
      
SequenceCases[data, {p_, {E, ___}} :> p]


      yields



      {{2, 4, 9, 2}, {4, 4, 6, 2}}





      share|improve this answer









      $endgroup$


















        2












        $begingroup$

        Try SequenceCases:



        data = {{1, 7, 4, 6}, {1, 6, 4, 8}, {2, 4, 9, 2}, {E, 1, 2, 3}, 
        
        {1, 4, 6, 3}, {4, 4, 6, 2}, {E, 4, 5, 6}}
        
SequenceCases[data, {p_, {E, ___}} :> p]


        yields



        {{2, 4, 9, 2}, {4, 4, 6, 2}}





        share|improve this answer









        $endgroup$
















          2












          2








          2





          $begingroup$

          Try SequenceCases:



          data = {{1, 7, 4, 6}, {1, 6, 4, 8}, {2, 4, 9, 2}, {E, 1, 2, 3}, 
          
        {1, 4, 6, 3}, {4, 4, 6, 2}, {E, 4, 5, 6}}
          
SequenceCases[data, {p_, {E, ___}} :> p]


          yields



          {{2, 4, 9, 2}, {4, 4, 6, 2}}





          share|improve this answer









          $endgroup$



          Try SequenceCases:



          data = {{1, 7, 4, 6}, {1, 6, 4, 8}, {2, 4, 9, 2}, {E, 1, 2, 3}, 
          
        {1, 4, 6, 3}, {4, 4, 6, 2}, {E, 4, 5, 6}}
          
SequenceCases[data, {p_, {E, ___}} :> p]


          yields



          {{2, 4, 9, 2}, {4, 4, 6, 2}}






          share|improve this answer












          share|improve this answer



          share|improve this answer










          answered 2 hours ago









          sakrasakra

          2,8231429




          2,8231429























              2












              $begingroup$

              The most idiomatic solution to this problem is, in my opinion, pattern matching (as Sakra has also answered):



              SequenceCases[data, {x_List, {E, ___}} :> x]



              {{2, 4, 9, 2}, {4, 4, 6, 2}}




              But the problem also lends itself to functional solutions, e.g.:



              pairs = Partition[data, 2, 1];
              
If[#[[2, 1]] == E, #[[1]], Nothing] & /@ pairs



              {{2, 4, 9, 2}, {4, 4, 6, 2}}




              Or in one go:



              BlockMap[If[#[[2, 1]] == E, #[[1]], Nothing] &, data, 2, 1]



              {{2, 4, 9, 2}, {4, 4, 6, 2}}







              share|improve this answer











              $endgroup$


















                2












                $begingroup$

                The most idiomatic solution to this problem is, in my opinion, pattern matching (as Sakra has also answered):



                SequenceCases[data, {x_List, {E, ___}} :> x]



                {{2, 4, 9, 2}, {4, 4, 6, 2}}




                But the problem also lends itself to functional solutions, e.g.:



                pairs = Partition[data, 2, 1];
                
If[#[[2, 1]] == E, #[[1]], Nothing] & /@ pairs



                {{2, 4, 9, 2}, {4, 4, 6, 2}}




                Or in one go:



                BlockMap[If[#[[2, 1]] == E, #[[1]], Nothing] &, data, 2, 1]



                {{2, 4, 9, 2}, {4, 4, 6, 2}}







                share|improve this answer











                $endgroup$
















                  2












                  2








                  2





                  $begingroup$

                  The most idiomatic solution to this problem is, in my opinion, pattern matching (as Sakra has also answered):



                  SequenceCases[data, {x_List, {E, ___}} :> x]



                  {{2, 4, 9, 2}, {4, 4, 6, 2}}




                  But the problem also lends itself to functional solutions, e.g.:



                  pairs = Partition[data, 2, 1];
                  
If[#[[2, 1]] == E, #[[1]], Nothing] & /@ pairs



                  {{2, 4, 9, 2}, {4, 4, 6, 2}}




                  Or in one go:



                  BlockMap[If[#[[2, 1]] == E, #[[1]], Nothing] &, data, 2, 1]



                  {{2, 4, 9, 2}, {4, 4, 6, 2}}







                  share|improve this answer











                  $endgroup$



                  The most idiomatic solution to this problem is, in my opinion, pattern matching (as Sakra has also answered):



                  SequenceCases[data, {x_List, {E, ___}} :> x]



                  {{2, 4, 9, 2}, {4, 4, 6, 2}}




                  But the problem also lends itself to functional solutions, e.g.:



                  pairs = Partition[data, 2, 1];
                  
If[#[[2, 1]] == E, #[[1]], Nothing] & /@ pairs



                  {{2, 4, 9, 2}, {4, 4, 6, 2}}




                  Or in one go:



                  BlockMap[If[#[[2, 1]] == E, #[[1]], Nothing] &, data, 2, 1]



                  {{2, 4, 9, 2}, {4, 4, 6, 2}}








                  share|improve this answer














                  share|improve this answer



                  share|improve this answer








                  edited 48 mins ago

























                  answered 2 hours ago









                  C. E.C. E.

                  51.4k3101207




                  51.4k3101207






























                      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%2f195786%2fhow-to-leave-only-the-following-strings%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

                      El tren de la libertad Índice Antecedentes "Porque yo decido" Desarrollo de la...

                      Image
                      Feminismo en EspañaAborto en EspañaManifestaciones y protestas en EspañaManifestaciones y protestas en 2014España en 2014Historia de las mujeres en España movimiento socialfeministaderechos sexuales y reproductivosmujeresLey del aborto en España1 de febrero2014MadridAlberto Ruíz Gallardónla ley del aborto vigente del 2010AsturiasTertulia Feminista Les ComadresCongreso de DiputadosAlicia MiyaresAna MatoAlberto Ruiz GallardónEdimburgoRomaParísLuxemburgoBuenos AiresGracia QuerejetaÁngeles González-SindeMabel LozanoIcíar BollaínIsabel CoixetGeorgina CisquellaTeresa FontVirginia Yagüe2010José Luis Rodríguez ZapateroCongreso de Diputados19 de diciembre20095 de julio2010Partido PopularTribunal Constitucional201120 de diciembre2013Partido PopularMariano RajoyGijónTertulia Feminista Les ComadresBegoña PiñeroRenfeAlicia MiyaresTertulia Feminista Les Comadres1 de febrero2014Congreso de DiputadosMariano RajoyAlberto Ruiz GallardónAna MatoAsturiasAndalucíaCanariasCataluñaComunidad ValencianaCasti...
                      Read more

                      Castillo d'Acher Características Menú de navegación

                      Image
                      Montañas de los Pirineos de AragónMontañas de la provincia de Huesca msnmSelva de OzaPirineo aragonésEspañabosque Este artículo o sección necesita referencias que aparezcan en una publicación acreditada. Este aviso fue puesto el 11 de agosto de 2011. El pico desde Selva de Oza. El Castillo d' Acher es una cima de 2.384msnm en la zona de la Selva de Oza en la parte occidental del Pirineo aragonés, en España. Debe su nombre a su aspecto de fortaleza que presenta hacia todas sus vertientes. Características En orden ascendente, la cima pasa de un bosque frondoso de tonalidades verde-amarillenta a laderas rojizas. Su cima, que suele presentarse mucha nieve, es un pequeño valle rectangular rodeado en sus cuatro caras por una muralla que le da un aspecto de fortaleza. This page is only for reference, If you need detailed information, please check here
                      Read more

                      Connecting two nodes from the same mother node horizontallyTikZ: What EXACTLY does the the |- notation for...

                      Image
                      Pigeonhole Principle Problem Was Hulk present at this event? Attending a conference where my ex-supervisor and his collaborator are present, should I attend? How did Arya manage to disguise herself? What is the word which sounds like "shtrass"? Does higher resolution in an image imply more bits per pixel? What was the state of the German rail system in 1944? Packet sniffer for MacOS Mojave and above Pressure to defend the relevance of one's area of mathematics Why are there synthetic chemicals in our bodies? Where do they come from? Does the Darkness spell dispel the Color Spray ...
                      Read more