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?

Can gravitational waves pass through a black hole?

How is an IPA symbol that lacks a name (e.g. ɲ) called?

What kind of equipment or other technology is necessary to photograph sprites (atmospheric phenomenon)

How do I deal with an erroneously large refund?

How to leave only the following strings?

Is Bran literally the world's memory?

Married in secret, can marital status in passport be changed at a later date?

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

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

If gravity precedes the formation of a solar system, where did the mass come from that caused the gravity?

Unix AIX passing variable and arguments to expect and spawn

Why aren't these two solutions equivalent? Combinatorics problem

Providing direct feedback to a product salesperson

Etymology of 見舞い

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

Converting a text document with special format to Pandas DataFrame

Can the van der Waals coefficients be negative in the van der Waals equation for real gases?

Who's this lady in the war room?

Why aren't road bike wheels tiny?

Where is Bhagavad Gita referred to as Hari Gita?

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

Why these surprising proportionalities of integrals involving odd zeta values?

Why is one lightbulb in a string illuminated?

How was Lagrange appointed professor of mathematics so early?



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,...?









share|improve this question









$endgroup$







  • 1




    $begingroup$
    e.g. SequenceCases[data, x_List, E, ___ :> x]
    $endgroup$
    – C. E.
    9 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,...?









share|improve this question









$endgroup$







  • 1




    $begingroup$
    e.g. SequenceCases[data, x_List, E, ___ :> x]
    $endgroup$
    – C. E.
    9 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,...?









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






share|improve this question













share|improve this question











share|improve this question




share|improve this question










asked 9 hours ago









John TaylorJohn Taylor

787211




787211







  • 1




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












  • 1




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







1




1




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




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

























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

                      How to create a command for the “strange m” symbol in latex? Announcing the arrival of Valued Associate #679: Cesar Manara Planned maintenance scheduled April 23, 2019 at 23:30 UTC (7:30pm US/Eastern)How do you make your own symbol when Detexify fails?Writing bold small caps with mathpazo packageplus-minus symbol with parenthesis around the minus signGreek character in Beamer document titleHow to create dashed right arrow over symbol?Currency symbol: Turkish LiraDouble prec as a single symbol?Plus Sign Too Big; How to Call adfbullet?Is there a TeX macro for three-legged pi?How do I get my integral-like symbol to align like the integral?How to selectively substitute a letter with another symbol representing the same letterHow do I generate a less than symbol and vertical bar that are the same height?

                      Българска екзархия Съдържание История | Български екзарси | Вижте също | Външни препратки | Литература | Бележки | НавигацияУстав за управлението на българската екзархия. Цариград, 1870Слово на Ловешкия митрополит Иларион при откриването на Българския народен събор в Цариград на 23. II. 1870 г.Българската правда и гръцката кривда. От С. М. (= Софийски Мелетий). Цариград, 1872Предстоятели на Българската екзархияПодмененият ВеликденИнформационна агенция „Фокус“Димитър Ризов. Българите в техните исторически, етнографически и политически граници (Атлас съдържащ 40 карти). Berlin, Königliche Hoflithographie, Hof-Buch- und -Steindruckerei Wilhelm Greve, 1917Report of the International Commission to Inquire into the Causes and Conduct of the Balkan Wars

                      Чепеларе Съдържание География | История | Население | Спортни и природни забележителности | Културни и исторически обекти | Религии | Обществени институции | Известни личности | Редовни събития | Галерия | Източници | Литература | Външни препратки | Навигация41°43′23.99″ с. ш. 24°41′09.99″ и. д. / 41.723333° с. ш. 24.686111° и. д.*ЧепелареЧепеларски Linux fest 2002Начало на Зимен сезон 2005/06Национални хайдушки празници „Капитан Петко Войвода“Град ЧепелареЧепеларе – народният ски курортbgrod.orgwww.terranatura.hit.bgСправка за населението на гр. Исперих, общ. Исперих, обл. РазградМузей на родопския карстМузей на спорта и скитеЧепеларебългарскибългарскианглийскитукИстория на градаСки писти в ЧепелареВремето в ЧепелареРадио и телевизия в ЧепелареЧепеларе мами с родопски чар и добри пистиЕвтин туризъм и снежни атракции в ЧепелареМестоположениеИнформация и снимки от музея на родопския карст3D панорами от ЧепелареЧепелареррр