Ich habe eine Liste mit Dezimalstellen:

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

Die Liste der Dezimalstellen wird als Elemente bezeichnet. Wir können aus diesen Elementen "Brocken" bilden, indem wir identische und benachbarte Zahlen zusammenfassen. Ich möchte jedem Block eine eindeutige Nummer zuweisen, beginnend mit 1, und um 1 in der Reihenfolge erhöhen, in der die Blöcke in der ursprünglichen Liste erscheinen. Die Ausgabe für das angegebene Beispiel würde also folgendermaßen aussehen:

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

Eingabeformat

Eine Liste der Ziffern. (0-9) Sie können Ihre integrierten Sprachen verwenden, um diese Liste zu lesen, wie Sie möchten. Codierung: ASCII

Ausgabeformat

Eine Reihe von Dezimalzahlen, die durch ein Trennzeichen getrennt sind. Ihr Programm muss immer das gleiche Trennzeichen verwenden. Das Trennzeichen muss länger als 0 Bit sein. Codierung: ASCII

Es gelten Standardlücken.

Python 3.8 (Vorabversion) , 41 Byte

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

Probieren Sie es online aus!

Loben Sie das magische Walross :=der Zuweisungsausdrücke.

Python 2 , 42 Bytes

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

Probieren Sie es online aus!

Python 2 , 44 Bytes

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

Probieren Sie es online aus!

APL (dzaima / APL) , 7 Byte ^SBCS

Anonyme stillschweigende Präfixfunktion. Druckt durch Leerzeichen getrennt.

+\1,2≠/

Probieren Sie es online aus!

2≠/ paarweise Ungleichung

1, 1 voranstellen

+\ kumulative Summe

Gelee , 6 5 Bytes

ŒɠµJx

Probieren Sie es online aus!

Ein Byte dank UnrelatedString gespeichert !

Ein- und Ausgänge als Arrays (mit öffnenden / schließenden Klammern)

Wie es funktioniert

Œɠµ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 Language (Mathematica) , 29 Bytes

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

Probieren Sie es online aus!

05AB1E , 5 Bytes

¥Ā.¥>

Probieren Sie es online aus!

Haskell , 40 Bytes

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

Probieren Sie es online aus!

Perl 6 , 21 Bytes

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

Probieren Sie es online aus!

Anonymer Codeblock, der eine Liste aufnimmt und eine Liste zurückgibt. Dies funktioniert durch Vergleichen, ob jedes Paar benachbarter Elemente nicht gleich ist, als durch Berechnen der kumulierten Summe der Liste.

05AB1E , 4 Bytes

γdƶ˜

Probieren Sie es online aus!

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

R , 33 Bytes

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

Probieren Sie es online aus!

Verwendet dieselbe kumulative Summenmethode wie Luis Mendo und andere.

MATL , 8 Bytes

Y'wn:wY"

Probieren Sie es online aus!

Erläuterung:

    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

Gelee , 4 Bytes

ŒgƤẈ

Probieren Sie es online aus!

Wie?

Œ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]

Oktave / MATLAB, 25 Bytes

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

Probieren Sie es online aus!

Haskell , 46 43 Bytes

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

Probieren Sie es online aus!

Anonyme punktfreie Funktion, die eine Liste erstellt und eine Liste zurückgibt

J , 12 Bytes

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

Probieren Sie es online aus!

Ähnlich wie bei Adáms APL-Antwort

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

Perl 5 , 27 Bytes

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

Probieren Sie es online aus!

Mit der Befehlszeilenoption -pliest Perl die Eingabezeile von STDIN in die "Standardvariable" $_. Anschließend werden alle Ziffern $_durch den Zähler ersetzt $i. Und $iwird für jede Ziffer erhöht, die sich von der vorherigen Ziffer unterscheidet, die sich auch bei der ersten Ziffer befindet, sodass der Zähler bei beginnt 1. Die vorherige Ziffer wird in gespeichert $p.

Pyth , 13 11 Bytes

s.e*]hkhbr8

Probieren Sie es online aus!

         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])

-2 Bytes dank Mr. Xcoder

Scala , 75 Bytes

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

Probieren Sie es online aus!

Wenn ein- und ausgegeben werden müssen Komma getrennt String (und nicht Liste) , dann 102 Bytes.

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

Gelee , 5 Bytes

nƝÄŻ‘

Probieren Sie es online aus!

Ich strebte zunächst einen 4-Byter an (dasselbe Programm, aber ohne Ż), merkte dann aber schnell, dass aufgrund eines Versehens jedes Mal eine 1 vorangestellt werden musste ... Auch wenn es in Jelly noch einen 5-Byter gibt, werde ich Behalten Sie dies tatsächlich bei, da eine andere Methode verwendet wird.

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

JavaScript (ES6), 30 Byte

Nimmt die Eingabe als Array von Ganzzahlen auf.

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

Probieren Sie es online aus!

Kommentiert

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 Bytes

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

Probieren Sie es online aus!

Eingabe über Befehlszeile, Ausgabe an STDOUT.

Danke an @ Night2 für den nervigen '0' == 0Vergleich Bugfix!

Julia 1.0 , 56 Bytes

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

Probieren Sie es online aus!

Japt v2.0a0, 9 Bytes

£T±A¦(A=X

Versuch es

Add ++ , 23 Bytes

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

Probieren Sie es online aus!

Wie es funktioniert

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 Bytes

ä¦Ug)åÄ

Versuch es

Retina 0,8,2 , 34 Bytes

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

Probieren Sie es online aus! Erläuterung:

\b\d+\b

Ordnen Sie jede Zahl der Reihe nach zu.

(?<=(...)*)

Suchen Sie rückwärts nach so vielen Übereinstimmungen wie möglich. (Die nächsten Einträge werden in der Reihenfolge von rechts nach links angezeigt, da Lookbehind so funktioniert.)

\D*

Überspringen Sie die Trennzeichen.

(\3|(\d+))

Versuchen Sie, dieselbe Nummer wie beim letzten Mal zu finden, aber wenn dies nicht der Fall ist, stimmen Sie einfach mit einer beliebigen Nummer überein, aber denken Sie daran, dass wir eine neue Nummer finden mussten.

\b

Stellen Sie sicher, dass die gesamte Nummer übereinstimmt.

$#3

Zählen Sie die Anzahl der neuen Nummern.

Stax , 10 Bytes

▓ª2ªmD?Ä╧╖

Führen Sie es aus und debuggen Sie es

Die Ausgabe verwendet Leerzeichen als Trennzeichen. Die Eingabe folgt den genauen Spezifikationen, wobei Kommas als Trennzeichen verwendet werden und jetzt geschweifte Klammern eingeschlossen werden.

C (gcc) , 62 61 Bytes

Dies ist einer der wenigen Einträge, die ich gemacht habe, bei denen ein vollständiges Programm kürzer ist als eine Funktionsübermittlung!

Beim ersten Durchgang ist mir der vorherige Wert egal, daher kann ich mich auf die Tatsache verlassen, dass dies argvein Zeiger auf irgendwo ist und es äußerst unwahrscheinlich ist, dass er zwischen [0..9] liegt!

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

Probieren Sie es online aus!

Scala , 114 Bytes

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(", ")

Probieren Sie es online aus!

C (gcc) , 62 Bytes

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

Probieren Sie es online aus!

Eine Funktion, die die Liste und ihre Länge als Argumente verwendet.

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

Probieren Sie es online aus!

Ausgaben in unär, begrenzt durch 0s