숫자 [ a ₁ a ₂ ... a _n ] 의리스트 가 주어 지면 , Aᵢ 가 다음과 같이 정의 되는 모든 행렬 Aᵢ 의 합을 계산하십시오 ( m 은 모든 aᵢ 의 최대 값입니다 ) :

       1  2  ⋯ (i-1) i (i+1) ⋯  n
     +----------------------------
 1   | 0  0  ⋯   0   aᵢ  aᵢ  ⋯  aᵢ
 2   | 0  0  ⋯   0   aᵢ  aᵢ  ⋯  aᵢ
 .   . .  .      .   .   .      .
 .   . .  .      .   .   .      .
aᵢ   | 0  0  ⋯   0   aᵢ  aᵢ  ⋯  aᵢ
aᵢ₊₁ | 0  0  ⋯   0   0   0   ⋯  0
 .   . .  .      .   .   .      .
 .   . .  .      .   .   .      .
 m   | 0  0  ⋯   0   0   0   ⋯  0

예

입력이 주어지면 [2,1,3,1]다음 행렬을 구성합니다.

[2 2 2 2]   [0 1 1 1]   [0 0 3 3]   [0 0 0 1]   [2 3 6 7]
[2 2 2 2] + [0 0 0 0] + [0 0 3 3] + [0 0 0 0] = [2 2 5 5]
[0 0 0 0]   [0 0 0 0]   [0 0 3 3]   [0 0 0 0]   [0 0 3 3]

규칙 및 I / O

• 입력이 비어 있지 않은 것으로 가정 할 수 있습니다
• 모든 입력이 음이 아닌 것으로 가정 할 수 있습니다 (0≤)
• 입력은 1xn (또는 nx1) 행렬, 목록, 배열 등이 될 수 있습니다.
• 마찬가지로 출력은 행렬, 목록 목록, 배열 등이 될 수 있습니다.
• 기본 I / O 형식을 통해 입력을 가져오고 반환 할 수 있습니다.
• 귀하의 제출물은 전체 프로그램 또는 기능 일 수 있습니다

테스트 사례

[0] -> [] or [[]]
[1] -> [[1]]
[3] -> [[3],[3],[3]]
[2,2] -> [[2,4],[2,4]]
[3,0,0] -> [[3,3,3],[3,3,3],[3,3,3]]
[1,2,3,4,5] -> [[1,3,6,10,15],[0,2,5,9,14],[0,0,3,7,12],[0,0,0,4,9],[0,0,0,0,5]]
[10,1,0,3,7,8] -> [[10,11,11,14,21,29],[10,10,10,13,20,28],[10,10,10,13,20,28],[10,10,10,10,17,25],[10,10,10,10,17,25],[10,10,10,10,17,25],[10,10,10,10,17,25],[10,10,10,10,10,18],[10,10,10,10,10,10],[10,10,10,10,10,10]]

젤리 , 10 5 바이트

ẋ"z0Ä

온라인으로 사용해보십시오!

작동 원리

ẋ"z0Ä  Main link. Argument: A (array)


       e.g. [2, 1, 3, 1]

ẋ"     Repeat each n in A n times.

       e.g. [[2, 2   ]
             [1      ]
             [3, 3, 3]
             [1      ]]

  z0   Zipfill 0; read the result by columns, filling missing elements with 0's.

        e.g. [[2, 1, 3, 1]
              [2, 0, 3, 0]
              [0, 0, 3, 0]]

    Ä  Take the cumulative sum of each row vector.

       e.g. [[2, 3, 6, 7]
             [2, 2, 5, 5]
             [0, 0, 3, 3]]

R , 80 바이트

n=sum((a=scan())|1);for(i in 1:n)F=F+`[<-`(matrix(0,max(a),n),0:a[i],i:n,a[i]);F

온라인으로 사용해보십시오!

stdin에서 입력을받습니다. 0x1input에 대한 행렬을 0인쇄합니다.

	[,1]

하스켈 , 70 66 51 바이트

g x=[scanl1(+)[sum[n|n>=r]|n<-x]|r<-[1..maximum x]]

온라인으로 사용해보십시오!

자바 스크립트 (ES6), 88 79 바이트

에 대해 반환 []합니다 [0].

f=(a,y,b=a.map((_,x)=>a.map(c=>y>=c|x--<0?0:s+=c,s=0)|s))=>s?[b,...f(a,-~y)]:[]

온라인으로 사용해보십시오!

APL (Dyalog Unicode) , 8 바이트 ^SBCS

전체 프로그램. stdin에 list를 요청하고 행렬을 stdout에 인쇄합니다.

Dennis의 방법을 사용합니다 .

+\⍉↑⍴⍨¨⎕

온라인으로 사용해보십시오!

⎕ stdin

⍴⍨¨ R의 각 eshape-셀카

↑ 목록을 행렬로 혼합하여 0으로 채움

⍉ 바꾸어 놓다

+\ 누적 행별 합계

는 ⍉계산상의 차이를 만들지 않으므로 잠재적으로 생략되고 행 방향이 아닌 열 방향으로 합계되도록 \변경 될 수 있습니다 ⍀.

파이썬 2 , 85 바이트

lambda x:[[sum(n*(n>j)for n in x[:i+1])for i in range(len(x))]for j in range(max(x))]

온라인으로 사용해보십시오!

옥타브 , 64 바이트

@(x,k=a=0*(x+(1:max(x))'))eval"for i=x;a(1:i,++k:end)+=i;end,a";

온라인으로 사용해보십시오!

설명:

또 다시 : 인수 목록과 eval의 표현식은 하나의 함수에서 사용됩니다 :)

이것은 x입력으로 취해 치수로 0으로 채워진 두 개의 동일한 행렬을 만듭니다 k=a=zeros(length(x),max(x)). 이를 위해 수평 벡터에 x와 함께 수직 벡터를 추가하고 1:max(x)차원을 2D 배열로 암시 적으로 확장 한 다음이 값에 0을 곱하면됩니다. ~(x+...)불행히도 작동하지 않습니다. 왜냐하면 a나머지 함수 전체에서 논리적 배열이되어야하기 때문입니다 .

for i=x루프 각 반복이 만드는 동안 그 i=x(1)다음, i=x(2)등등. a(1:i,k++:end)각 반복에 대해 업데이트해야하는 행렬의 일부입니다. 1:i어떤 행을 업데이트해야하는지 나타내는 벡터입니다. 인 i=0경우이 값은 빈 벡터이므로 아무것도 업데이트되지 않습니다. 그렇지 않으면 1, 2 ...입니다. 행렬을 1 ++k:end씩 증가시키고이 k행렬의 첫 번째 값 ( 1,2,3...)부터 행렬 의 마지막 열까지 의 범위를 만듭니다 a. +=i현재 값을에 추가합니다 a. end,a루프를 종료하고 출력 a합니다.

GolfScript , 39 바이트

{.$):M;;{[.](*[0]M*+M<}%zip{{\.@+}*]}%}

온라인으로 사용해보십시오!

Dennis의 알고리즘을 사용 합니다 .

Wolfram Language (Mathematica) , 42 바이트

Thread@Accumulate@PadRight[#~Table~#&/@#]&

온라인으로 사용해보십시오!

자바 10, 142 바이트

a->{int l=a.length,i=0,j,s,m=0;for(int q:a)m=q>m?q:m;int[][]r=new int[m][l];for(;i<m;i++)for(j=s=0;j<l;j++)r[i][j]=s+=i<a[j]?a[j]:0;return r;}

온라인으로 사용해보십시오.

a->{               // Method with integer-array parameter and integer-matrix return-type
  int l=a.length,  //  Length of the input-array
      i,j,         //  Index integers
      s,           //  Sum integer
  m=0;for(int q:a)m=q>m?q:m;
                   //  Determine the maximum of the input-array
  int[][]r=new int[m][l];
                   //  Result-matrix of size `m` by `l`
  for(;i<m;i++)    //  Loop `i` over the rows
    for(j=s=0;     //   Reset the sum to 0
        j<l;j++)   //   Inner loop `j` over the columns
      r[i][j]=s+=  //    Add the following to the sum `s`, add set it as current cell:
        i<a[j]?    //     If the row-index is smaller than the `j`'th value in the input:
         a[j]      //      Add the current item to the sum
        :          //     Else:
         0;        //      Leave the sum the same by adding 0
  return r;}       //  Return the result-matrix

루비 , 50 바이트

->a{(1..a.max).map{|n|w=0;a.map{|r|w+=(r<n)?0:r}}}

온라인으로 사용해보십시오!

Pari / GP , 60 바이트

a->matrix(vecmax(a),#a,i,j,vecsum([a[k]|k<-[1..j],a[k]>=i]))

온라인으로 사용해보십시오!