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

A German immigrant ancestor has a "Registration Affidavit of Alien Enemy" on file. What does that mean exactly?

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

Can gravitational waves pass through a black hole?

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

Why aren't road bike wheels tiny?

How was Lagrange appointed professor of mathematics so early?

Help Recreating a Table

When speaking, how do you change your mind mid-sentence?

Suing a Police Officer Instead of the Police Department

How to break 信じようとしていただけかも知れない into separate parts?

Etymology of 見舞い

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

How to charge percentage of transaction cost?

What helicopter has the most rotor blades?

Who can become a wight?

How do I deal with an erroneously large refund?

Converting a text document with special format to Pandas DataFrame

Is Vivien of the Wilds + Wilderness Reclamation a competitive combo?

Should man-made satellites feature an intelligent inverted "cow catcher"?

What's the connection between Mr. Nancy and fried chicken?

When does Bran Stark remember Jamie pushing him?

How to produce a PS1 prompt in bash or ksh93 similar to tcsh

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

Short story about an alien named Ushtu(?) coming from a future Earth, when ours was destroyed by a nuclear explosion



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.
    7 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.
    7 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 7 hours ago









John TaylorJohn Taylor

787211




787211








  • 1




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














  • 1




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








1




1




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




$begingroup$
e.g. SequenceCases[data, {x_List, {E, ___}} :> x]
$endgroup$
– C. E.
7 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 7 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 4 hours ago

























                  answered 6 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

                      Taj Mahal Inhaltsverzeichnis Aufbau | Geschichte | 350-Jahr-Feier | Heutige Bedeutung | Siehe auch |...

                      Image
                      Mogul-ArchitekturMausoleum in IndienBauwerk in Uttar PradeshGrabmoscheeKuppelbauwerkWeltkulturerbe in AsienWeltkulturerbe in IndienAgraMogulreichGrabbau in AsienGrabgartenErbaut in den 1640er Jahren deutschpersoarabischDMGDevanagariMausoleumYamunaAgraindischenUttar PradeshKuppelMinaretteZiegelsteinenMarmorplattenGroßmogulShah JahanMumtaz MahalOktogonTambourgebauchtenChhatriIwanMinaretteErdbebenWendeltreppeJaliKenotapheKryptaReliefsMarmorinkrustationenKoranMärtyrerinGottesSandsteinTschahār BāghBagh-e WafaDschalalabadParadiesgartenMekkaMoscheeSüd-ZentralasiensAhmad LahoriBadakhshanAbu Fazelpersische Architekturindo-islamischen BaukunstIndienAsiensElefantenMarmorJaipurRajasthanNarbadaEdelsteinenHalbedelsteinenJaspisPunjabKarneoleAchatYemenKristallChinaLapislazuliSaphireCeylonKorallenArabienRoten MeerGranateBundelkhandDiamantenPannaOnyxPersienHeliotropFatehpur SikriTürkiseJean-Baptiste TavernierFrançois BernierMullahsSeelenTeppichenYamunaMuhammad Aurangzeb AlamgirTschahār BāghHumayunsbri...
                      Read more

                      Baia Sprie Cuprins Etimologie | Istorie | Demografie | Politică și administrație | Arii naturale...

                      Image
                      Localități urbane în județul MaramureșOrașe în județul MaramureșBaia Sprie maghiarăgermanăorașjudețul MaramureșTransilvaniaRomâniaChiuzbaiaTăuții de SusSatu Nou de Susminieresașilor13291329maghiarCarol RobertBaia Mare13601348139014061851latinescul1540germanBaia Mare1564Nicolae OlahusSăsarGutâiBaia Mare1411Belgradului1427Iancu de Hunedoara14461453Matei CorvinMaria Terezaslovacirecensământului efectuat în 2011recensământul anterior din 2002românimaghiariromiortodocșiromano-catolicireformațigreco-catolicipenticostalimartori ai lui IehovaSebastian Alin BârdaPartidul Național Liberal178019321960școlii băimărene de picturăAurel PoppAdy EndreNicolae TonitzaAstra19221997România1876vulcanicetectonicădaciteandezitecuarțuluiBaia SprieBorșaCavnicDragomireștiSăliștea de SusSeiniȘomcuta MareTârgu LăpușTăuții-MăgherăușUlmeniVișeu de SusArdusatArinișAsuaju de SusBăița de sub CodruBăiuțBârsanaBăseștiBicazBistraBocicoiu MareBogdan VodăBoiu MareBotizaBudeștiCălineștiCâmpulung la TisaCerneștiCicârlăuCoa...
                      Read more

                      Nicolae Petrescu-Găină Cuprins Biografie | Opera | In memoriam | Varia | Controverse, incertitudini...

                      Image
                      Articole de calitateNașteri în 1871Nașteri pe 31 martieDecese în 1931Decese pe 15 februarieArtiști români din secolul al XIX-leaArtiști români din secolul al XX-leaCaricaturiști româniTinerimea artistică CraiovaRomâniaBucureștiRomâniacaricaturistȘtefan LuchianConstantin ArtachinoAlexandru Bogdan-PiteștiNicolae Vermont1898Honoré DaumierParlamentului României19081913Constantin Jiquidi1898secolului al XIX-leaGolemo KonjariBulgariaMuzeului de Artă din Craiova2007Craiova31 martie1871limba francezălimba latinăLiceul Sfântul SavaBucureștigazului metanOperei RomâneȘtefan Petrescu-MuscăLiceul „Carol I”Școlii de Belle-ArteCostin PetrescuGheorghe TattarescuTheodor AmanConstantin I. StăncescuAlexandru ObedenaruSalonului Artiștilor IndependențiExpoziția Artiștilor în ViațăNicolae VermontȘtefan LuchianConstantin ArtachinoAlexandru Bogdan-PiteștiIon AngelescuNicolae GrantIon TicuLudovic DolinskiCaricatura Eu Sunt... Școala de Belle-Arte din BucureștiAteneului RomânGeorge RanettiCafeneaua ImperialFi...
                      Read more