Mathematica Stack Exchange is a question and answer site for users of Mathematica. Join them; it only takes a minute:

Sign up
Here's how it works:
  1. Anybody can ask a question
  2. Anybody can answer
  3. The best answers are voted up and rise to the top

This question already has an answer here:

If I have hundreds of vectors of unequal length that I need to sum, what is the cleanest way to do so?

So, if I have as input


I want the answer


I can see how to do this by finding the length of the longest element and then using PadRight[] to make the others match, like so

Total[Map[PadRight[#, Max[Map[Length[#] &, inp]]] &, inp]]

but this feels inelegant. Is there a better way?

share|improve this question

marked as duplicate by Simon Woods, Kuba, Artes, Dr. belisarius, Michael E2 Mar 25 '14 at 14:49

This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.

Your method is exactly what came to mind (before I saw yours). Okay, call me inelegant.. – Daniel Lichtblau Mar 25 '14 at 14:02
@Simon Woods the Ragged Transpose solution in the other thread is exactly what I had in mind. – Michael Stern Mar 25 '14 at 14:11
up vote 3 down vote accepted

You can use Flatten to transpose the ragged array, then Total:

Total[Flatten[inp, {{2}, {1}}], {2}]
(* {a + e + h, b + f, c + g, d} *)
share|improve this answer

I'm not sure about elegant but...


Loosing the hard-coded 4...

share|improve this answer
Is there a specific way of moving an answer or do I just repost it there? – Ymareth Mar 25 '14 at 14:15
thanks very much :) – Ymareth Mar 25 '14 at 14:17

Not the answer you're looking for? Browse other questions tagged or ask your own question.