MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Delete elements from list..

  • To: mathgroup at smc.vnet.net
  • Subject: [mg116627] Re: Delete elements from list..
  • From: Bill Rowe <readnews at sbcglobal.net>
  • Date: Tue, 22 Feb 2011 04:42:31 -0500 (EST)

On 2/21/11 at 7:30 PM, Maarten.VanDerBurgt at kla-tencor.com (Maarten
van der Burgt) wrote:

>I have a list like:

>mylist = {1, 2, 3, 4, 5, 6, 4, 5, 7, 8, 9}

>I want to delete any element which is not strictly larger than the
>previous element, until my new list has only increasing values.

>This means in mylist above I want to delete the 4 and the 5 at
>position 7 and 8.

>Any elegant and fast way for doing this?

Here is one way that should be reasonably fast for a large list

In[29]:= Rest@
  Flatten@Fold[If[Last[#1] < #2, {#1, #2}, #1] &, {0}, mylist]

Out[29]= {1,2,3,4,5,6,7,8,9}

as for elegance, I'll leave that for you to decide.



  • Prev by Date: Re: Rational[a,b] vs Rational[1,2]
  • Next by Date: Re: How to deal with big matrix?
  • Previous by thread: Re: Delete elements from list..
  • Next by thread: Re: Delete elements from list..