Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2003
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2003

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

Search the Archive

Re: nth differences

  • To: mathgroup at smc.vnet.net
  • Subject: [mg39870] Re: [mg39852] nth differences
  • From: Dr Bob <drbob at bigfoot.com>
  • Date: Sun, 9 Mar 2003 05:29:13 -0500 (EST)
  • References: <200303080752.CAA23708@smc.vnet.net>
  • Reply-to: drbob at bigfoot.com
  • Sender: owner-wri-mathgroup at wolfram.com

differences[a_List] := NestList[Drop[RotateLeft@# - #, -1] &, a,
     Length@a - 1]
differences@{1, 2, 5, 7, 8, 9}

Bobby

On Sat, 8 Mar 2003 02:52:13 -0500 (EST), Zachary Turner 
<_NOzturnerSPAM_ at cyberonic.com> wrote:

> Say I have a list of k integers and I want to produce a list containing 
> the
> first differences?  For example, given {1, 2, 5, 7, 8, 9} the first
> differences are {1, 3, 2, 1, 1}, and the second differences are {2, -1, - 
> 1,
> 0}, the third are {-3, 0, 1}, etc
>
>
>
>



-- 
majort at cox-internet.com
Bobby R. Treat



  • References:
  • Prev by Date: Re: nth differences
  • Next by Date: Re: nth differences
  • Previous by thread: nth differences
  • Next by thread: Re: nth differences