try the following:
(defn avg-coll [coll] (/ (reduce + coll) (count coll)))
then use it on your collection of collections:
(map #(avg-coll %) (list (list 1 2 3) (list 6 4 2)))
this will give you (2 4)
hope this helps.
On Apr 12, 10:48 pm, Glen Rubin wrote:
> I am working with a collection of
On Tuesday, April 13, 2010, Mark J. Reed wrote:
> (defn mean [& rest] (/ (apply + reset) (count rest)))
that "reset" should be "rest".
> And then use the same trick with it in place of +:
> (apply map mean '((1 2 4) (2 4 6) (1 3 5)))
> which yields (4/3 3 5).
--
Mark J. Reed
--
You receiv
On Tue, Apr 13, 2010 at 10:09 AM, Michael Kohl wrote:
> Disclaimer: I have not had my morning coffee yet
And I apparently missed a mail in this thread, (apply map +) was
already posted an is a lot more straightforward.
--
You received this message because you are subscribed to the Google
Groups
On Tue, Apr 13, 2010 at 4:48 AM, Glen Rubin wrote:
> I want to create an average sequence such that all of the first
> elements are averaged, all of the second elements, etc
Sounds like you want a traspose function. Here you go:
(defn transpose [m]
(apply map list m))
Example:
user=> (de
On Mon, Apr 12, 2010 at 11:15 PM, Alan Busby wrote:
> On Tue, Apr 13, 2010 at 11:54 AM, Douglas Philips wrote:
>
>> On 2010 Apr 12, at 10:48 PM, Glen Rubin wrote:
>>
>>> I am working with a collection of integer sequences ...(e.g.
>>> coll:
>>> ((3 7 3 5 9 2 0 8 4 0 1 2323 4 11...) (243 4 664 47
On Tue, Apr 13, 2010 at 11:54 AM, Douglas Philips wrote:
> On 2010 Apr 12, at 10:48 PM, Glen Rubin wrote:
>
>> I am working with a collection of integer sequences ...(e.g.
>> coll:
>> ((3 7 3 5 9 2 0 8 4 0 1 2323 4 11...) (243 4 664 478 3948...) (6 3 7 4
>> 3335 2 4 5 7 6...)...)
>>
>> I want to
On 2010 Apr 12, at 10:48 PM, Glen Rubin wrote:
I am working with a collection of integer sequences ...(e.g.
coll:
((3 7 3 5 9 2 0 8 4 0 1 2323 4 11...) (243 4 664 478 3948...) (6 3 7 4
3335 2 4 5 7 6...)...)
I want to create an average sequence such that all of the first
elements are averaged, a
