รับรายการที่ไม่มีตัวเลขของแถวที่ไม่มีตัวเลขให้คำนวณผลรวมคอลัมน์ที่ชาญฉลาดซึ่งเป็นรายการอื่นที่มีความยาวของแถวที่ยาวที่สุด รายการแรกของรายการผลลัพธ์คือผลรวมของรายการแรกทั้งหมดของแถวอินพุตส่วนที่สองคือผลรวมขององค์ประกอบที่สองทั้งหมด (ถ้ามี) เป็นต้นฉันคิดว่าตัวอย่างต่อไปนี้จะอธิบายได้ดีกว่า:

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]

กรณีทดสอบ

{[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]

เยลลี่ขนาด 1 ไบต์

S

ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด

มันทำงานอย่างไร

ผลรวมอะตอมSเป็นแบบย่อสำหรับ+/ซึ่งจะดำเนินการลดลงโดยการเพิ่ม

การ/ลดอย่างรวดเร็วตามมิติด้านนอกสุดดังนั้นมันจึงเรียกลิงก์สำหรับองค์ประกอบของอินพุต ที่นี่องค์ประกอบคือแถว

อะตอมเพิ่มเติม+vectorizes ดังนั้นการเพิ่มเวกเตอร์สองแถวทำการเพิ่มองค์ประกอบโดยองค์ประกอบ เมื่ออาร์กิวเมนต์มีความยาวต่างกันองค์ประกอบของอาร์กิวเมนต์ที่ยาวกว่าที่ไม่มีคู่ในอันที่สั้นกว่านั้นจะไม่ถูกเปลี่ยนแปลง

สรุปด้วยเมทริกซ์ที่ผิดปกติเป็นอาร์กิวเมนต์Sคำนวณผลรวมคอลัมน์ที่ฉลาดข้ามรายการที่ขาดหายไปในแถวที่สั้นกว่า

Python 2 , 47 45 ไบต์

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

ขอบคุณ @vaultah สำหรับการเล่นกอล์ฟ 2 ไบต์!

ลองออนไลน์!

Perl 6 , 23 ไบต์

{roundrobin(|$_)».sum}

Mathematica ขนาด 15 ไบต์

Total@*PadRight

Haskell, 34 ไบต์

import Data.List
map sum.transpose

ลองออนไลน์! การใช้งาน:

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

CJam , 7 5 ไบต์

ลดลง 2 ไบต์ขอบคุณเดนนิส!

{:.+}

สิ่งนี้จะกำหนดบล็อกที่ไม่ระบุชื่อที่ใช้รายการของรายการเช่น[[1 2 3 4] [1] [5 2 3] [6 1]]และแทนที่ด้วยรายการ[13 5 6 4]และแทนที่มันด้วยรายการ

ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด

คำอธิบาย

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

MATL , 3 ไบต์

oXs

( MATL ไม่รู้ว่าพหูพจน์ของ "วัว" คือ "วัว" ... )

อินพุตเป็นอาร์เรย์เซลล์ของเวกเตอร์แถวตัวเลขในรูปแบบเดียวกับข้อความท้าทาย:

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

ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด

     % 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 ไบต์

บันทึกแล้ว 3 ไบต์ขอบคุณ ETHproductions

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

กรณีทดสอบ

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]

สงสัย 11 ไบต์

@->#sum '#0

ไขว้และแผนที่พร้อมฟังก์ชั่นผลรวม การใช้งาน:

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

C ++ 14, 130 ไบต์

ในฐานะแลมบ์ดาทั่วไปที่ไม่มีชื่อ:

[](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();}

ต้องCเป็นเหมือนvector<vector<int>>และส่งคืนค่าrเป็นเหมือนvector<int>(ควรเป็นไปตามเมตาดาต้า )

Ungolfed & การใช้งาน:

#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 ไบต์

sM.T

ลองมันออนไลน์ได้ที่นี่

Haskell, 61 41 40 ไบต์

ขอบคุณ @Laikoni สำหรับ -20 ไบต์, @nimi สำหรับ -1 ไบต์!

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

คำอธิบาย:มันเป็นเพียงการสรุปซ้ำขององค์ประกอบแรกของรายการรวมถึงการจัดการกับรายการที่ว่างเปล่าในทุกขั้นตอนกลาง:

    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 ไบต์

+/@:>

รับอินพุตเป็นรายการของชนิดบรรจุกล่อง

กรณีทดสอบ

   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 ไบต์

+⌿↑

+⌿ ผลรวมคอลัมน์ฉลาด

↑ อาร์กิวเมนต์แบบผสม (รายการ, สแต็กเป็นเมทริกซ์, การเติมด้วยค่าศูนย์)

ลองใช้ออนไลน์!

Pyke ขนาด 4 ไบต์

.,ms

ลองที่นี่!

Java 8, 124 ไบต์

นี่คือการแสดงออกแลมบ์ดาสำหรับ 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;}

ใช้ความยาวอาร์เรย์ที่ใหญ่ที่สุดจากอินพุตสร้างอาร์เรย์ใหม่ของขนาดนั้นแล้วเขียนผลรวมของแต่ละคอลัมน์ไปยังอาร์เรย์

ระดับแปดเสียง 69 ไบต์

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

R, 105 97 ไบต์

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)

สิ่งนี้ใช้ในการป้อนlistวัตถุที่เรียกว่าwในรูปแบบ:

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

มันแสดงผลรวมคอลัมน์ฉลาด: [1] 3 4 3 4

ทางออกนี้ค่อนข้างยาวสำหรับฉัน Rมีลักษณะเฉพาะในการรีไซเคิลเมื่อคุณพยายามผูกเวกเตอร์ที่มีความยาวต่างกัน ตัวอย่างเช่น :

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 ถูกนำมาใช้อีกครั้งเพื่อให้พอดีซึ่งเป็นเหตุผลที่ฉันเริ่มต้นด้วยรายการ

โปรแกรมปรับความยาวขององค์ประกอบทั้งหมดของรายการเป็นหนึ่งในรายการที่ยาวที่สุดผูกองค์ประกอบและคำนวณผลรวมคอลัมน์ที่ชาญฉลาด ความยาวของการปรับการผลิตNAนั้นจะถูกละเว้นโดยsum.

-8 ไบต์ขอบคุณ @Jarko Dubbeldam!

PHP, 63 ไบต์

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

โทรในเบราว์เซอร์ที่มีพารามิเตอร์ GET เป็นรายการอินพุต

ตัวอย่าง:
script.php?a[]=1&a[]=2&a[]=3&a[]=4&b[]=1&c[]=5&c[]=2&c[]=3&d[]=6&d[]=1
(ชื่ออาร์เรย์จะถูกละเว้นดังนั้นคุณจึงสามารถตั้งชื่อได้ตามที่คุณต้องการ)

ลองใช้ฟังก์ชั่นนี้เพื่อทดสอบ:

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

หรือใช้http_build_query($array,a)เพื่อแปลงอาร์เรย์ของอาร์เรย์ให้เป็นพารามิเตอร์ GET

Clojure 70 ไบต์

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

วงซ้อนขั้นพื้นฐาน

Japt, 5 ไบต์

Uz mx

ทดสอบออนไลน์!

Uคืออาร์เรย์อินพุตและzในอาร์เรย์จะหมุนตามเข็มนาฬิกาไป 90 องศา ดังนั้น,

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

กลายเป็น

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

(เพิ่มระยะห่างเฉพาะเพื่อการแสดงผล)

mxจากนั้นmaps โดย summation ( x) ซึ่งให้ผลลัพธ์ที่ต้องการ: [13,5,6,4].