Services & ResourcesWolfram ForumsMathGroup Archive

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

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/

• Follow-Ups:
  • Re: Handling a list: Could you find a more elegant solution?
    • From: Tomas Garza <tgarza01@prodigy.net.mx>