Diberikan daftar nonempty dari baris nonempty angka, hitung jumlah bijak kolom , yang merupakan daftar lain yang memiliki panjang baris input terpanjang. Entri pertama dari daftar keluaran adalah jumlah dari semua entires pertama dari baris input, yang kedua adalah jumlah dari semua elemen kedua (jika tersedia) dll. Saya pikir contoh berikut akan menjelaskannya dengan lebih baik:

Input:      {[1,2,3,4],[1],[5,2,3],[6,1]}
Computation: [1,2,3,4]
              + . . .
             [1]. . .
              + + + .
             [5,2,3].
              + + . .
             [6,1]. .
              = = = =
    Output: [13,5,6,4]

Uji Kasus

{[0]}                         -> 0
{[1],[1,1,1,1]}               -> [2,1,1,1]
{[1],[1,2],[1,2,3],[1,2,3,4]} -> [4,6,6,4]
{[1,6,2,-6],[-1,2,3,5]}       -> [0,8,5,-1]

Jelly , 1 byte

S

Cobalah online! atau verifikasi semua kasus uji .

Bagaimana itu bekerja

Atom penjumlahan Sadalah singkatan untuk +/, yang melakukan reduksi dengan penambahan.

Cepat /berkurang sepanjang dimensi terluar, sehingga ia memanggil tautannya untuk elemen-elemen input. Di sini, elemen-elemennya adalah baris.

Atom tambahan ini melakukan +vektorisasi, jadi menambahkan dua baris vektor melakukan penambahan elemen demi elemen. Ketika argumen memiliki panjang yang berbeda, elemen argumen yang lebih panjang yang tidak memiliki padanan dalam yang lebih pendek dibiarkan tidak berubah.

Semua dalam semua, dengan matriks tidak teratur sebagai argumen, Smenghitung jumlah kolom-bijaksana, melewatkan entri yang hilang di baris yang lebih pendek.

Python 2 , 47 45 byte

lambda x:map(lambda*y:sum(filter(None,y)),*x)

Terima kasih kepada @vaultah karena bermain golf 2 byte!

Cobalah online!

Perl 6 , 23 byte

{roundrobin(|$_)».sum}

Mathematica, 15 byte

Total@*PadRight

Haskell, 34 byte

import Data.List
map sum.transpose

Cobalah online! Pemakaian:

Prelude Data.List> map sum.transpose $ [[1,2,3,4],[1],[5,2,3],[6,1]]
[13,5,6,4]

CJam , 7 5 byte

2 byte off berkat Dennis!

{:.+}

Ini mendefinisikan blok anonim yang mengambil daftar daftar, seperti [[1 2 3 4] [1] [5 2 3] [6 1]], dan menggantinya dengan daftar [13 5 6 4],.

Cobalah online! Atau verifikasi semua kasus uji .

Penjelasan

{   }   e# Define block
 :      e# Fold over the following dyadic function
  .+    e# Vectorized addition

MATL , 3 byte

oXs

( MATL tidak tahu bahwa bentuk jamak dari "sapi" adalah "sapi" ... )

Input adalah array sel vektor baris numerik, dalam format yang sama seperti pada teks tantangan:

{[1,2,3,4],[1],[5,2,3],[6,1]}

Cobalah online! Atau verifikasi semua kasus uji .

     % Implicit input
o    % Convert cell array to a matrix, right-padding with zeros each row
Xs   % Sum of each column
     % Implicit display

JavaScript (ES6), 51 48 byte

Disimpan 3 byte, berkat produk ETH

a=>a.map(b=>b.map((v,i)=>r[i]=~~r[i]+v),r=[])&&r

Uji kasus

let f =

a=>a.map(b=>b.map((v,i)=>r[i]=~~r[i]+v),r=[])&&r

console.log(f([[1,2,3,4],[1],[5,2,3],[6,1]])); // -> [13,5,6,4]
console.log(f([[0]]));                         // -> [0]
console.log(f([[1],[1,1,1,1]]));               // -> [2,1,1,1]
console.log(f([[1],[1,2],[1,2,3],[1,2,3,4]])); // -> [4,6,6,4]
console.log(f([[1,6,2,-6],[-1,2,3,5]]));       // -> [0,8,5,-1]

Bertanya-tanya , 11 byte

@->#sum '#0

Transpose dan petakan dengan fungsi penjumlahan. Pemakaian:

(@->#sum '#0)[[1 2 3 4];[1];[5 2 3];[6 1]]

C ++ 14, 130 byte

Sebagai lambda generik yang tidak disebutkan namanya:

[](auto C,auto&r){r.clear();int i=0,b=1;while(b--){r.push_back(0);for(auto c:C)r.back()+=i<c.size()?c[b=1,i]:0;++i;}r.pop_back();}

Harus Cseperti vector<vector<int>>dan mengembalikan nilai rseperti vector<int>(harus baik-baik saja sesuai dengan meta ).

Tidak digabungkan & penggunaan:

#include<vector>
#include<iostream>

auto f=
[](auto C, auto&r){
 r.clear();         //clearing r just to be sure
 int i=0,b=1;       //i is the position in the row, b is a boolean
 while(b--){        //while something was added
  r.push_back(0);   //add zero
  for(auto c:C)     //for each container
   r.back() += i<c.size() ?   //add to the last element 
    c[b=1,i] : 0;             //set b and get the element or zero 
  ++i;              
 }
 r.pop_back();      //remove last unnecessary zero
}
;

using namespace std;

int main(){
 vector<vector<int> > C = { {1,2,3,4}, {1}, {5,2,3}, {6,1} };
 vector<int> r; 
 f(C,r);
 for (int i: r)
  cout << i << ", ";
 cout << endl;
}

Pyth - 4 byte

sM.T

Cobalah online di sini .

Haskell, 61 41 40 byte

Terima kasih @Laikoni untuk -20 byte, @nimi untuk -1 byte!

f[]=[]
f l=sum[h|h:_<-l]:f[t:u|_:t:u<-l]

Penjelasan: Ini hanya penjumlahan rekursif dari elemen pertama dari daftar, juga berurusan dengan membuang daftar kosong di setiap langkah perantara:

    sum[h|h:_<-l]                    -- sums up all the first elemetns of the list
                    [t:u|_:t:u<-l]   -- removes the first element of all the list, and removes empty lists
                   f                 -- applies f to the remaining list
                 :                   -- prepends the sum to the rest

J, 5 byte

+/@:>

Mengambil input sebagai daftar daftar kotak.

Uji kasus

   1 ; 1 1 1 1
+-+-------+
|1|1 1 1 1|
+-+-------+
   (+/@:>) 1 ; 1 1 1 1
2 1 1 1
   1 ; 1 2 ; 1 2 3 ; 1 2 3 4
+-+---+-----+-------+
|1|1 2|1 2 3|1 2 3 4|
+-+---+-----+-------+
   (+/@:>) 1 ; 1 2 ; 1 2 3 ; 1 2 3 4
4 6 6 4

Dyalog APL , 3 byte

+⌿↑

+⌿ jumlah kolom-bijaksana

↑ argumen campuran (daftar daftar, ditumpuk ke dalam matriks, padding dengan nol)

TryAPL online!

Pyke, 4 byte

.,ms

Coba di sini!

Java 8, 124 byte

ini adalah ungkapan lambda untuk a Function< int[ ][ ], int[ ] >

i->{int L=0,t,r[];for(int[]a:i)L=(t=a.length)>L?t:L;r=new int[L];for(;0>L--;)for(int[]a:i)r[L]+=a.length>L?a[L]:0;return r;}

dibutuhkan panjang array terbesar dari input, membuat array baru dengan ukuran itu, dan kemudian menulis jumlah masing-masing kolom ke array.

Oktaf, 69 byte

@(a){g=1:max(s=cellfun(@numel,a))<=s';f=g'+0;f(g')=[a{:}];sum(f')}{4}

R, 105 97 byte

a=c();l=length;for(i in 1:l(w)){length(w[[i]])=max(sapply(w,l));a=rbind(a,w[[i]])};colSums(a,n=T)

Ini membutuhkan input listobjek yang disebut wdalam bentuk:

w=list(c(1,2,3,4),c(1),c(1,2))

Ini menghasilkan jumlah kolom-bijaksana: [1] 3 4 3 4

Solusi ini cukup panjang untuk saya. R memiliki kekhasan untuk didaur ulang ketika Anda mencoba mengikat vektor dengan panjang yang berbeda. Sebagai contoh :

a=c(1,2,3,4)
b=c(1,2)

cbind(a,b)

     a b
[1,] 1 1
[2,] 2 2
[3,] 3 1
[4,] 4 2

b digunakan kembali sekali agar pas, itulah sebabnya saya mulai dengan daftar.

Program menyesuaikan panjang semua elemen daftar sebagai yang terpanjang, mengikat elemen-elemen dan menghitung jumlah kolom-bijaksana. Penyesuaian panjang menghasilkan NA, yang diabaikan oleh sum.

-8 byte terima kasih kepada @Jarko Dubbeldam!

PHP, 63 byte

<?foreach($_GETas$a)foreach($a as$i=>$x)$r[$i]+=$x;print_r($r);

panggilan di browser dengan parameter GET sebagai daftar input.

Contoh:
script.php?a[]=1&a[]=2&a[]=3&a[]=4&b[]=1&c[]=5&c[]=2&c[]=3&d[]=6&d[]=1
(Nama array diabaikan, sehingga Anda dapat menamainya sesuka Anda.)

Coba fungsi ini untuk pengujian:

function s($a){foreach($a as$b)foreach($b as$i=>$x)$r[$i]+=$x;return$r;}

atau gunakan http_build_query($array,a)untuk mengonversi array array yang diberikan ke parameter GET.

Clojure, 70 byte

#(for[i(range(apply max(map count %)))](apply +(for[v %](get v i 0))))

Loop bersarang dasar.

Japt, 5 byte

Uz mx

Uji secara online!

Uadalah array input, dan zpada array memutar array searah jarum jam sebesar 90 derajat. Karena itu,

[
 [1,2,3,4],
 [1      ],
 [5,2,3  ],
 [6,1    ]
]

menjadi

[
 [6,5,1,1],
 [1,2,  2],
 [  3,  3],
 [      4]
]

(Spasi ditambahkan hanya untuk tujuan tampilan.)

mxkemudian maps oleh penjumlahan ( x), yang memberikan hasil yang diinginkan: [13,5,6,4].