MathGroup Archive 2006

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

Search the Archive

Re: how to sum lists of unequal length?


Probably one of the 20 proposals that will come out, but here is
one...

In[4]:=
sumUnequalLengthLists[a_List, b_List] := Module[{length = Min[Length
/@ {a, b}]}, 
    Flatten[{Plus[Sequence @@ (Take[#1, length] & ) /@ {a, b}],
(Drop[#1, length] & ) /@ {a, b}}]]; 


GL

On Sat, 14 Oct 2006 07:17:05 +0000 (UTC), Arkadiusz.Majka at gmail.com
wrote:

>Hi all,
>
>I have lists of unknown and unequal lengths. I want to sum them, e.g
>
>{a1,a2,a3}+{b1,b2,b3,b4,b5} and obtain result
>{a1+b1,a2+b2,a3+b3,b4,b5}. Simply filling by zeros of the shorter list
>is impossible because I have no idea how many zeros I have to pad.
>
>Please, help
>
>Arek


  • Prev by Date: Re: how to sum lists of unequal length?
  • Next by Date: Re: Beginner--[Plz Help] I don't want to display a POLARPLOT but use SHOW Command
  • Previous by thread: Re: how to sum lists of unequal length?
  • Next by thread: Re: how to sum lists of unequal length?