2つの正の整数NをM取得し[N]、M反復での連結累積和を作成します。最後の反復の結果を出力します。

連結累積合計の定義：

1. 数字Nから始めてシーケンスを定義するX = [N]
2. 追加Xの累積和X
3. 手順を2 M回繰り返します。

ベクトルの累積合計X = [x1, x2, x3, x4]は次のとおり[x1, x1+x2, x1+x2+x3, x1+x2+x3+x4]です。

例N = 1とM = 4：

P =累積和関数。

M = 0: [1]
M = 1: [1, 1]                    -  X = [1, P(1)] = [[1], [1]]      
M = 2: [1, 1, 1, 2]              -  X = [X, P(X)] = [[1, 1], [1, 2]]
M = 3: [1, 1, 1, 2, 1, 2, 3, 5]  -  X = [X, P(X)] = [[1, 1, 1, 2], [1, 2, 3, 5]]
M = 4: [1, 1, 1, 2, 1, 2, 3, 5, 1, 2, 3, 5, 6, 8, 11, 16]

最初X = [1]は反復としてカウントされないことに注意してください。M = 5上記の例（したがってX = [1]、1回の反復としてカウント）を選択することもできます。

これはOEIS A107946です

テストケース：

N = 5, M = 1
5, 5

N = 2, M = 3
2, 2, 2, 4, 2, 4, 6, 10

N = 4, M = 6
4, 4, 4, 8, 4, 8, 12, 20, 4, 8, 12, 20, 24, 32, 44, 64, 4, 8, 12, 20, 24, 32, 44, 64, 68, 76, 88, 108, 132, 164, 208, 272, 4, 8, 12, 20, 24, 32, 44, 64, 68, 76, 88, 108, 132, 164, 208, 272, 276, 284, 296, 316, 340, 372, 416, 480, 548, 624, 712, 820, 952, 1116, 1324, 1596

これはcode-golfなので、最短のコードが優先されます。オプションの入力および出力形式。

Haskell、35バイト

n!m=iterate((++)<*>scanl1(+))[n]!!m

オンラインでお試しください！

-18バイトのH.PWizに感謝

05AB1E、7バイト

¸IFDηO«

オンラインでお試しください！

説明

¸         # wrap input_1 in a list
 IF       # input_2 times do:
   D      # duplicate the list
    η     # get prefixes of the list
     O    # sum the prefixes
      «   # concatenate to the current list

殻、9 8 7バイト

1バイトを節約してくれたH.PWizに感謝します。

!¡S+G+;

オンラインでお試しください！

1ベースのを使用しMます。

説明

      ;     Wrap N in a list to get [N].
 ¡          Iterate the following function on this list and collect
            the results in an infinite list.
  S+        Concatenate the current value with...
    G+      ...the cumulative sum. We're not using the cumsum built-in ∫ 
            because it prepends a zero.
!           Use M as an index into the infinite list.

MATL、6バイト

:"tYsh

入力はM、その後、N。

オンラインでお試しください！または、すべてのテストケースを確認します。

説明

:"      % Implicitly input M. Do the following M times
  t     %   Implicitly input N the first time. Duplicate
  Ys    %   Cumulative sum
  h     %   Concatenate horizontally
        % Implicitly end loop. Implicitly display stack

Mathematica、34バイト

Nest[#~Join~Accumulate@#&,{#},#2]&

オンラインでお試しください！

パイソン2、83の 78 75 71 65 63 60バイト

def f(n,m):r=n,;exec"s=0\nfor c in r:s+=c;r+=s,\n"*m;print r

オンラインでお試しください！

保存された6 8は、ロッドのおかげバイト
エリックのおかげバイト保存3

Dyalog APL、12バイト

{(⊢,+\)⍣⍺⊢⍵}

右側のNと左側のMを取ります。 TryAPLはこちら！

説明：

{(⊢,+\)⍣⍺⊢⍵}
{          } an anonymous function
 (⊢,+\)      a train for a single iteration:
  ⊢           the right argument
   ,          concatenated with
    +\        the cumulative sum 
       ⍣     repeated
        ⍺     left argument times
         ⊢⍵  on the right argument

JAVA（OpenJDKの8） 、194 181 175 163 134 110バイト

(n,m)->{int a[]=new int[1<<m],c=1,i;for(a[0]=n;m-->0;)for(n=0;2*n<c;c++)for(i=++n;i-->0;a[c]+=a[i]);return a;}

オンラインでお試しください！

Dyalog APL、19バイト

{0=⍺:⍵⋄(⍺-1)∇⍵,+\⍵}

オンラインでお試しください！

N左右にある二項関数M。

{
    0=⍺: ⍵         ⍝ if a = 0 return
    (⍺-1) ∇ ⍵,+\⍵  ⍝ recurse with the array
                   ⍝ joined with its cumsum (+\⍵)
}

R、46バイト

function(N,M){for(i in 1:M)N=c(N,cumsum(N))
N}

オンラインでお試しください！

Pyth、12バイト

L+bsM._byF]E

ここで試してみてください。

JavaScript（ES6）、55 54バイト

カリー化構文の入力を受け取ります(m)(n)。

m=>g=a=>m--?g([...a=+a?[a]:a,...a.map(x=>s+=x,s=0)]):a

テストケース

let f =

m=>g=a=>m--?g([...a=+a?[a]:a,...a.map(x=>s+=x,s=0)]):a

console.log(f(1)(5).join(', '))
console.log(f(3)(2).join(', '))
console.log(f(6)(4).join(', '))

ゼリー、5バイト

;+\$¡

オンラインでお試しください！

Dennisによる推奨バージョン（シングルトン配列のn代わりに戻り[n]ます）。

Clojure、67バイト

#(loop[c[%]i %2](if(= i 0)c(recur(into c(reductions + c))(dec i))))