Anonymous

1 to: (c columnCount) do: [ :t |
        x _ c atColumn: t. "Create a vector of the entire column."
        sum at: t put: (x inject: 0 into: [ :acc :val | acc _ acc + val ]). "Accumulate the sum with inject."
        ].