Re: Need pure function to opeate on integer lists
- To: mathgroup at smc.vnet.net
- Subject: [mg68119] Re: Need pure function to opeate on integer lists
- From: Peter Pein <petsie at dordos.net>
- Date: Mon, 24 Jul 2006 05:52:27 -0400 (EDT)
- References: <ea1nf3$pja$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Terry schrieb:
> Hi All,
> Suppose I have a list of integers, such as
>
> listA = {1,2,5,6,7,12,13,15,16,17,18,22,23,24}
>
> how do I construct a pure function that will difference successive
> integer elements to produce
>
> {1-24,2-1,5-2,6-5,7-6,12-7,13-12,15-13,16-15,17-16,18-17,22-18,23-22,24-23}
>
> Thanks in advance
> ......Terry
>
>
>
>
Hi Terry,
something like
In[1]:=
cyclicDifference=-Subtract@@@Partition[Prepend[#,Last[#]],2,1]&;
cyclicDifference@{1,2,5,6,7,12,13,15,16,17,18,22,23,24}
Out[2]=
{-23,1,3,1,1,5,1,2,1,1,1,4,1,1}
?
Peter