Mdtryhht

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?

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

asked 9 hours ago

John TaylorJohn Taylor

787211

$endgroup$

• 
  
  
  

  
  1
  

  
  
  
  
  
  

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

  
  
  
  

add a comment | 

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

asked 9 hours ago

John TaylorJohn Taylor

787211

$endgroup$

• 
  
  
  

  
  1
  

  
  
  
  
  
  

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

  
  
  
  

add a comment | 

$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

asked 9 hours ago

John TaylorJohn Taylor

787211

$endgroup$

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

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

share|improve this question

asked 9 hours ago

John TaylorJohn Taylor

787211

share|improve this question

asked 9 hours ago

John TaylorJohn Taylor

787211

asked 9 hours ago

John TaylorJohn Taylor

787211

asked 9 hours ago

John TaylorJohn Taylor

787211

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

answered 8 hours ago

sakrasakra

2,8231429

$endgroup$

add a comment | 

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

edited 6 hours ago

answered 8 hours ago

C. E.C. E.

51.4k3101207

$endgroup$

add a comment | 

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

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

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

Name

Email

Required, but never shown

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

answered 8 hours ago

sakrasakra

2,8231429

$endgroup$

add a comment | 

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

answered 8 hours ago

sakrasakra

2,8231429

$endgroup$

add a comment | 

$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

answered 8 hours ago

sakrasakra

2,8231429

$endgroup$

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]

2, 4, 9, 2, 4, 4, 6, 2

share|improve this answer

answered 8 hours ago

sakrasakra

2,8231429

answered 8 hours ago

sakrasakra

2,8231429

answered 8 hours ago

sakrasakra

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

edited 6 hours ago

answered 8 hours ago

C. E.C. E.

51.4k3101207

$endgroup$

add a comment | 

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

edited 6 hours ago

answered 8 hours ago

C. E.C. E.

51.4k3101207

$endgroup$

add a comment | 

$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

edited 6 hours ago

answered 8 hours ago

C. E.C. E.

51.4k3101207

$endgroup$

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

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

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

share|improve this answer

edited 6 hours ago

answered 8 hours ago

C. E.C. E.

51.4k3101207

answered 8 hours ago

C. E.C. E.

51.4k3101207

answered 8 hours ago

C. E.C. E.

51.4k3101207