10進数のリストがあります。

4, 4, 4, 7, 7, 9, 9, 9, 9, 2, 2, 2, 4, 4

10進数のリストはアイテムと呼ばれます。同じ番号と隣接する番号をグループ化することにより、これらのアイテムから「チャンク」を形成できます。各チャンクに、1から始まり、元のリストにチャンクが現れる順序で1ずつ増加する一意の番号を割り当てたいと思います。したがって、指定された例の出力は次のようになります。

1, 1, 1, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, 5

入力フォーマット

数字のリスト。（0-9）必要に応じて、このリストを読むために言語組み込みを使用できます。エンコーディング：ASCII

出力フォーマット

区切り文字で区切られた一連の10進数。プログラムは常に同じ区切り文字を使用する必要があります。区切り文字は0ビットより長くする必要があります。エンコーディング：ASCII

標準の抜け穴が適用されます。

Python 3.8（プレリリース）、41バイト

lambda l,n=0:[n:=n+(l!=(l:=x))for x in l]

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

:=割り当て式の魔法のセイウチを賞賛してください。

Python 2、42バイト

n=0
for x in input():n+=x!=id;id=x;print n

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

Python 2、44バイト

l=input()
n=0
for i in l:n+=i!=l;l=i;print n

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

APL（dzaima / APL）、7 バイト^SBCS

匿名の暗黙の接頭辞関数。スペースで区切って印刷します。

+\1,2≠/

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

2≠/ ペアワイズ不等式

1, 付加する1

+\ 累計

ゼリー、6 5バイト

ŒɠµJx

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

保存された1バイトのおかげUnrelatedString！

配列としての入力と出力（開始/終了ブラケット付き）

使い方

ŒɠµJx - Main link, takes one argument:                       [7, 7, 5, 5, 5, 1]
Œɠ    - Get the lengths of consecutive elements:             [2, 3, 1]
  µ   - Call these lengths A
   J  - range(length(A))                                     [1, 2, 3]
    x - Repeat each element by the corresponding value in A: [1, 1, 2, 2, 2, 3]

Wolfram言語（Mathematica）、29バイト

Join@@(i=1;0#+i++&/@Split@#)&

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

05AB1E、5バイト

¥Ā.¥>

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

Haskell、40バイト

f(a:t)=1:map(+sum[1|a/=t!!0])(f t)
f e=e

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

Perl 6、21バイト

{+<<[\+] $,|$_ Zne$_}

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

リストを取得してリストを返す匿名コードブロック。これは、リストの累積合計を取るよりも、隣接する要素の各ペアが等しくないかどうかを比較することで機能します。

05AB1E、4バイト

γdƶ˜

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

γ       # group adjacent equal digits together
 d      # replace all digits with 1
  ƶ     # multiply each group by its 1-based index
   ˜    # flatten

R、33バイト

function(x)cumsum(c(1,!!diff(x)))

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

ルイスメンドーなどと同じ累積和法を使用します。

MATL、8バイト

Y'wn:wY"

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

説明：

    Y'      % run-length encoding
    w       % swap elements in stack
    n       % number of elements in array / size along each dimension
    :       % range; vector of equally spaced values
    w       % swap elements in stack
    Y"      % replicate elements of array
            % (implicit) convert to string and display

ゼリー、4 バイト

ŒgƤẈ

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

どうやって？

ŒgƤẈ - Link: list of integers  e.g. [7,7,2,7,7]
  Ƥ  - for prefixes:     [7]   [7,7]   [7,7,2]      [7,7,2,7]        [7,7,2,7,7]
Œg   -   group runs      [[7]] [[7,7]] [[7,7],[2]]  [[7,7],[2],[7]]  [[7,7],[2],[7,7]]
   Ẉ - length of each    [1,   1,      2,           3,               3]

オクターブ / MATLAB、25バイト

@(x)cumsum([1 ~~diff(x)])

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

Haskell、46 43バイト

scanl(+)1.map fromEnum.(zipWith(/=)=<<tail)

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

リストを取得してリストを返す無名のポイントフリー関数

J、12バイト

1+/\@,2~:/\]

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

AdámのAPL回答に似ています

      2~:/\]  - pair-wise inequality
1    ,        - prepend 1
    @         - and   
+/\           - find the cumulative sum

Perl 5、27バイト

s/\d/$i+=$&!=$p;$p=$&;$i/ge

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

コマンドラインオプション-pは、perlにSTDINからの入力行を「デフォルト変数」に読み込ませます$_。次に、すべての数字を$_counter で検索置換します$i。また$i、前の桁とは異なる各桁ごとに増加します。これは、最初の桁にもあるため、カウンターはから始まり1ます。前の数字はに保存され$pます。

Pyth、13 11バイト

s.e*]hkhbr8

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

         r8  # Run-length encode (implicit argument is the input) (-> [[frequency, char], ...]
 .e          # Enumerated map (current element is b, index is k) over rQ8
   *]hk      # [ k+1 ] *
       hb    #           b[0]
s            # Reduce list on + ([a]+[b] = [a,b])

-Mr. Xcoderのおかげで2バイト

Scala、75バイト

s=>s.scanLeft(("",0))((x,y)=>(y,x._2+(if(x._1!=y)1 else 0))).tail.map(_._2)

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

入力と出力がコンマで区切られた文字列（リストではなく）でなければならない場合、102バイト。

s=>s.split(", ").scanLeft(("",0))((x,y)=>(y,x._2+(if(x._1!=y)1 else 0))).tail.map(_._2).mkString(", ")

ゼリー、5バイト

nƝÄŻ‘

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

私は最初は4バイト（同じプログラムですが、なしŻ）を目指していましたが、すぐに1を監視するために先頭に追加する必要があることにすぐに気づきました...別の方法を使用するため、実際にこれを保持します。

$L$$L_i\ne L_{i+1}, \forall 1\le i<|L|$

JavaScript（ES6）、30バイト

入力を整数の配列として受け取ります。

a=>a.map(p=n=>i+=p!=(p=n),i=0)

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

コメント済み

a =>                // a[] = input array
  a.map(p =         // initialize p to a non-numeric value
  n =>              // for each value n in a[]:
    i +=            //   increment i if:
      p != (p = n), //     p is not equal to n; and update p to n
    i = 0           //   start with i = 0 (chunk counter)
  )                 // end of map()

PHP、52バイト

while(''<$d=$argv[++$x])echo$i+=$argv[$x-1]!=$d,' ';

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

コマンドラインを介した入力、への出力STDOUT。

厄介な'0' == 0比較バグ修正のための@ Night2へのThx ！

ジュリア1.0、56バイト

l->foldl(l,init=(0,0))do(p,i),c
println(i+=p!=c)
c,i
end

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

Japt v2.0a0、9バイト

£T±A¦(A=X

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

Add ++、23バイト

D,f,@*,BGd€bL$bLRz€¦XBF

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

使い方

D,f,@*,     - Define a function, f, that takes one argument:  [7 7 5 5 5 1]
       BG   - Group neighbouring elements together:           [[[7 7] [5 5 5] [1]]]          
       d    - Duplicate:                                      [[[7 7] [5 5 5] [1]] [[7 7] [5 5 5] [1]]]
       €bL  - Get the length of each:                         [[[7 7] [5 5 5] [1]] [2 3 1]]
       $bLR - Length, then range of length:                   [[2 3 1] [1 2 3]]
       z    - Zip together:                                   [[2 1] [3 2] [1 3]]
       €¦X  - Reduce each by repetition:                      [[1 1] [2 2 2] [3]]
       BF   - Flatten:                                        [1 1 2 2 2 3]
            - Due to the * in the function definition,
                 return the whole stack:                      [1 1 2 2 2 3]

Japt、8 7バイト

ä¦Ug)åÄ

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

Retina 0.8.2、34バイト

\b\d+\b(?<=(\b(\3|(\d+))\D*)*)
$#3

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

\b\d+\b

各番号を順番に一致させます。

(?<=(...)*)

できるだけ多くの一致を後方検索し始めます。（次のエントリは、後読みが機能する方法であるため、右から左の順序になります。）

\D*

区切り文字をスキップします。

(\3|(\d+))

前回と同じ番号を一致させようとしますが、失敗した場合は、任意の番号を一致させますが、新しい番号を一致させる必要があったことを忘れないでください。

\b

整数が一致していることを確認してください。

$#3

新しい番号の数を数えます。

スタックス、10 バイト

▓ª2ªmD?Ä╧╖

実行してデバッグする

出力では、区切り文字としてスペースが使用されます。入力は、区切り文字としてコンマを使用し、括弧で囲むことで正確な仕様に従います。

C（gcc）、 62 61バイト

これは、完全なプログラムが関数の送信よりも短い場合に私が行った数少ないエントリの1つです！

最初のパスでは、以前の値は気にしないのでargv、どこかへのポインターであり、[0..9]の間にある可能性は非常に低いという事実に依存します。

s;main(i,j){for(;~scanf("%d,",&i);j=i)printf("%d ",s+=j!=i);}

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

Scala、114バイト

s.split(", ").zipWithIndex.scan(s.head,0){(a,b)=>if(a._1==b._1)a else b._1->(a._2+1)}.tail.unzip._2.mkString(", ")

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

C（gcc）、62バイト

f(_,l)int*_;{printf("%d ",l=--l?f(_,l)+(_[l]!=_[l-1]):1);_=l;}

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

リストとその長さを引数として取る関数。

f(_,l)int*_;{_=printf("%*d",--l?f(_,l)+(_[l]!=_[l-1]):2,0);}

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

0s で区切られた単項出力