厳密に正の整数nを指定すると、次の手順に従います。

1. n 1の配列Aを作成します。
2. Aに要素が1つしかない場合、終了します。そうでない場合は、最初の要素から始めて、Aの各ペアをその合計で置き換え、Aの長さが奇数の場合は最後の要素をそのままにして、この手順を繰り返します。

出力には、各ステップの後に最初のステップから最後の順にAの状態が含まれている必要があります。標準の抜け穴の使用は禁止されています。これはコードゴルフの課題であるため、各言語のバイト数が最も少ないソリューションが優先されます。

テストケース

これらの例の出力の各行は状態です。適切な形式で出力できます。

入力： 1

[1]

入力： 4

[1, 1, 1, 1]
[2, 2]
[4]

入力： 13

[1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]
[2, 2, 2, 2, 2, 2, 1]
[4, 4, 4, 1]
[8, 5]
[13]

入力： 15

[1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]
[2, 2, 2, 2, 2, 2, 2, 1]
[4, 4, 4, 3]
[8, 7]
[15]

05AB1E、7バイト

Å1Δ=2ôO

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

MATL、10バイト

:g`t2estnq

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

使い方

:     % Input n (implicit). Range [1 2 ... n]
g     % Convert to logical. Gives [1 1 ... 1]
`     % Do...while
  t   %   Duplicate
  2   %   Push 2
  e   %   Reshape as 2-column matrix, in column-major order, padding with 0 if needed
  s   %   Sum of each column
  t   %   Duplicate
  n   %   Number of elements
  q   %   Subtract 1. This will be used as loop condition
      % End (implicit). If top of the stack is not zero run new iteration
      % Display stack, bottom to top (implicit)

Python 3、57バイト

def f(i,j=1):print(i//j*[j]+[i%j][:i%j]);i>j and f(i,j*2)

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

Python 2、51バイト

def f(i,j=1):print i/j*[j]+[i%j][:i%j];i>j>f(i,j*2)

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

tshのおかげで合計-6バイト

再帰関数。各ステップで2、合計が指定された整数以下になるように、の累乗のリストを作成します。次に、それがより大きい場合、残りを追加し0ます。

ゼリー、6バイト

L€+2/Ƭ

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

R、65バイト

ジュゼッペのおかげで-1バイト。

n=scan();while(T<2*n){cat(rep(+T,n%/%T),if(n%%T)n%%T,"\n");T=2*T}

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

%/%%%k=2^in%/%kkn%%k$2n-1$

ここで私は使用していますT代わりにk、次のように初期化されているので、TRUE私はまだ印刷する必要が1に変換される+Tの代わりTのベクトル避けるために、TRUE出力で秒。

Pyth、10バイト

.u+McN2m1

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

.u          # Apply until a result is repeated, return all intermediate steps: lambda N,Y:
  +M        # map by + (reduce list on +):
    cN2     # chop N (current value) into chunks of 2, last one is shorter if needed
       m1Q  # map(1, range(Q)) (implicit Q = input)

FryAmTheEggmanのおかげで-1バイト

JavaScript（V8）、109バイト

f=n=>g(Array(n).fill(1));g=(a,i=1)=>{console.log(a);if(a[i]){for(;a[i];)a.splice(i-1,2,a[i-1]+a[i++]);g(a);}}

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

Wolfram言語（Mathematica）、55 54バイト

Last@Reap[1~Table~#//.a_:>Tr/@Sow@a~Partition~UpTo@2]&

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

最後に、Sow/ Reap代替を打ち負かします！

ステップのリストを含むシングルトンリストを返します。

K（oK）、15 17バイト

{{+/'0N 2#x}\x#1}

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

J、20バイト

+/\~&_2&.>^:a:@<@#&1

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

-バブラーのおかげで2バイト

ゼリー、6バイト

Erik the Outgolferのおかげで-1バイト。

1x+2/Ƭ

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

JavaScript、55バイト

f=(n,t=1,r=n)=>r>t?t+[,f(n,t,r-t)]:n>t?r+`
`+f(n,t+t):r

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

これは基本的に次のコードのゴルフ版です。

function f(n) {
  var output = '';
  t = 1;
  for (t = 1; ; t *= 2) {
    for (r = n; r > t; r -= t) {
      output += t + ',';
    }
    output += r;
    if (n <= t) break;
    output += '\n';
  }
  return output;
}

Japt -R、13 バイト

_ò mx}hUõÎü)â

それを試してみてください

Brachylog、17バイト

;1j₍ẹẉ₂{ġ₂+ᵐ}ⁱ.ẉȮ

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

恐ろしく長いこれがあると、私はまだ使用するための巧妙なビットを感じるよう.ẉȮ：何かを印刷する明白な方法を、その長さが1であるかどうかを確認することになりẉ₂l1、ẉ₂~gあるいはẉ₂≡Ȯ、どこ≡ために最後の1では必要であるẉ₂を統一その入力と出力出力する前にȮ、長さ1のリストになるように事前に制限されているため、入力が長さ1のリストでない場合、統合は失敗します。ẉ₂ただし、述部の最後では、この機能を回避できます。添え字の代わりに出力変数を使用しますẉ。.ẉȮ最初に入力を出力変数と統合し、次に出力変数を出力しますȮ。その後でのみ、出力変数を統合します。

スタックス、10 バイト

Çë⌐ⁿ┤5π»Å╡

実行してデバッグする

手順：

1. 0ベースの範囲を生成します。
2. すべてのアイテムがゼロになるまで、各要素を繰り返し半分にします。
3. 一意の配列ごとにランレングスを計算します。

注釈付きソース：

r       main:[0 .. 5] 
{{hmgu  main:[[0 .. 5], [0, 0, 1, 1, 2, 2], [0, 0, 0, 0, 1, 1], [0, 0, 0, 0, 0, 0]] 
m:GJ    main:"1 1 1 1 1 1" 

炭、19バイト

ＮθＩＥ↨⊖⊗θ²Ｅ⪪Ｅθ¹Ｘ²κＬλ

オンラインでお試しください！リンクは、コードの詳細バージョンです。Charcoalのデフォルトの出力形式を使用します。これは行ごとに1つの数字であり、サブアレイは互いにダブルスペースで区切られています。説明：

Ｎθ                  Input `n` into a variable
       θ            `n`
      ⊗             Doubled
     ⊖              Decremented
    ↨   ²           Converted to base 2 (i.e. ceil(log2(input)))
   Ｅ                Map
           Ｅθ¹      List of `1`s of length `n`
          ⪪         Split into sublists of length
               ²    Literal `2`
              Ｘ     To power
                κ   Loop index
         Ｅ          Map over each sublist
                 Ｌλ Take the length
  Ｉ                 Cast to string for implicit print

Perl 5、46バイト

say$_="1 "x<>;say while s/(\d+) (\d+)/$1+$2/ge

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

出力はスペースで区切られます。

Perl 6、38バイト

{1 xx$_,*.rotor(2,:partial)>>.sum...1}

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

私が今覚えていない部分的な回転へのいくつかのショートカットがあります...

説明：

{                                    }  # Anonymous code block
                                 ...    # Return a sequence
 1 xx$_,            # Starting with a list of 1s with input length
        *           # Where each element is
         .rotor(2,:partial)        # The previous list split into chunks of 2 or less
                           >>.sum  # And each chunk summed
                                    1  # Until the list is length 1

Haskell、75バイト

g.pure
g x|x!!0<2=[x]|1>0=(g$(\z->filter(0/=)[-div(-z)2,div z 2])=<<x)++[x]

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

[n]リストが1つだけのリストに達するまで、リストから逆方向に動作します。

今後、chunksoffrom を使用して80バイトを取得できますData.List.Split。

import Data.List.Split
f x=g$1<$[1..x]
g[n]=[[n]]
g x=x:(g$map sum$chunksOf 2 x)

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

Ohm v2、8バイト

@Dv·Ω2σΣ

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

科学表記法での出力が許可されている場合、そうでない場合：

Ohm v2、9バイト

@Dv·Ω2σΣì

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

ガイア、12バイト

ċ)¦⟨:q2/Σ¦⟩ª

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

ċ)¦		| generate array of n 1's (really, generate array of n 0's and increment each)
   ⟨      ⟩ª	| do the following until you get to a fixed point:
    :q		| dup and print with a newline
      2/	| split into groups of 2, with last group possibly being smaller
	Σ¦	| take the sum