Re: Style Question: The Functional Way

*To*: mathgroup at smc.vnet.net*Subject*: [mg115823] Re: Style Question: The Functional Way*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Fri, 21 Jan 2011 04:35:22 -0500 (EST)

DeltaList[L_] := Subtract @@@ Reverse /@ Partition[L, 2, 1] data = Array[x, 10]; The simplest way is to just use Differences or ListCorrelate. DeltaList[data] == Differences[data] == ListCorrelate[{-1, 1}, data] == Most[RotateLeft[data] - data] == ({-1, 1}.# & /@ Partition[data, 2, 1]) True Bob Hanlon ---- Just A Stranger <forpeopleidontknow at gmail.com> wrote: ============= Hello, So I'm trying to learn how to do things the functional way. As an exercise I'm trying to program a simple economics related table that gives revenue, marginal revenue, etc given a demand schedule (2 lists of numbers representing quantity and price respectively). A simple task in a spreadsheet. The point is that I need a list of the differences in the given lists, from which I will be using to get marginal values (derivatives). I'll call it, say, DeltaList, and I was wondering if this would be a proper "functional" way to go about the task: In[0]: DeltaList[L_] := Subtract @@@ Reverse /@ Partition[L, 2, 1] (DelatList: list -> list) Basically, it partitions the list into ordered pairs, reverses those ordered pairs to prep them for the subsequent Subtract application. Is this the right way to think about this (painfully simple) problem in a functional way? Thank you. All of you have been most helpful in the past.