MathGroup Archive 2002

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

Search the Archive

Handling a list: Could you find a more elegant solution?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg38195] Handling a list: Could you find a more elegant solution?
  • From: guillerm at usal.es
  • Date: Thu, 5 Dec 2002 03:29:46 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

I have a list:

list1 = {a, b, c, d, e}; 

I want manipulate the list to obtain: 

(*Out[]:{(a + b)/2, (b + c)/2, (c + d)/2, (d + e)/2}*)

It can be done for this function

f[data_List] := Drop[Plus @@ NestList[RotateRight, data, 
      1], 1]/2

f[list1]

but I am sure that some member of the group can find a more elegant function. I 
will appreciate to know it.

Thanks

Guillermo Sanchez


---------------------------------------------
This message was sent using Endymion MailMan.
http://www.endymion.com/products/mailman/




  • Prev by Date: Units package on MathSource updated
  • Next by Date: Re: How do i enter index AND power
  • Previous by thread: Units package on MathSource updated
  • Next by thread: Re: Handling a list: Could you find a more elegant solution?