MathGroup Archive 2003

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

Search the Archive

split a list

  • To: mathgroup at smc.vnet.net
  • Subject: [mg40515] split a list
  • From: Roberto Brambilla <rlbrambilla at cesi.it>
  • Date: Wed, 9 Apr 2003 01:30:31 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

I have a list (very long, thousands, and unsorted) of numbers r={n1,n2...}
and for a given a number m  I want to split it in the two sublists
(unsorted, same order) u={elements<m], v={elements>m}.
Now I use this *old-style*  method:

u = v = {};
For[i = 1, i <= Length[r], i++,
  tmp = r[[i]];
  If[tmp > m , AppendTo[u, tmp], AppendTo[v, tmp]];
  ] 

Any suggestion for a more efficient (and elegant) method?
Also oneliners are well accepted.

Many thanks, Roberto

Roberto Brambilla
CESI
Via Rubattino 54
20134 Milano
tel +39.02.2125.5875
fax +39.02.2125.5492
rlbrambilla at cesi.it



  • Prev by Date: RE: arrows at both ends of a line?
  • Next by Date: Re: How do you get polynomials listed in order of decreasing exponent?
  • Previous by thread: Re: Notebook for low density subset sum?
  • Next by thread: Re: split a list