Ondalık basamakların bir listesi var:

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

Ondalık basamakların listesi öğeler olarak bilinir. Aynı ve bitişik sayıları gruplandırarak bu öğelerden "parçalar" oluşturabiliriz. Her parçaya, 1'den başlayarak ve parçaların orijinal listede görünme sırasına göre 1 oranında artarak benzersiz bir sayı atamak istiyorum. Yani, verilen örneğin çıktısı şöyle görünecektir:

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

Giriş biçimi

Rakamların listesi. (0-9) Dil listesini dilediğiniz zaman bu listeyi okumak için kullanabilirsiniz. Kodlama: ASCII

Çıkış biçimi

Sınırlayıcı ile ayrılmış ondalık sayılar dizisi. Programınız her zaman aynı sınırlayıcıyı kullanmalıdır. Sınırlayıcı 0 bit'ten uzun olmalıdır. Kodlama: ASCII

Standart boşluklar geçerlidir.

Python 3.8 (ön sürüm) , 41 bayt

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

Çevrimiçi deneyin!

:=Ödev ifadelerinin sihirli morsunu övün .

Python 2 , 42 bayt

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

Çevrimiçi deneyin!

Python 2 , 44 bayt

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

Çevrimiçi deneyin!

APL (dzaima / APL) , 7 bayt ^SBCS

Anonim zımni önek fonksiyonu. Boşluğa ayrılmış olarak yazdırır.

+\1,2≠/

Çevrimiçi deneyin!

2≠/ çifte eşitsizlik

1, başa 1

+\ birikimli toplam

Jöle , 6 5 bayt

ŒɠµJx

Çevrimiçi deneyin!

UnrelatedString sayesinde bir bayt kaydedildi !

Diziler olarak giriş ve çıkışlar (açma / kapama braketleri ile)

Nasıl çalışır

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

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

Çevrimiçi deneyin!

05AB1E , 5 bayt

¥Ā.¥>

Çevrimiçi deneyin!

Haskell , 40 bayt

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

Çevrimiçi deneyin!

Perl 6 , 21 bayt

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

Çevrimiçi deneyin!

Liste alan ve liste döndüren anonim kod bloğu. Bu, bitişik elemanların her bir çiftinin, listenin kümülatif toplamını almaktan eşit olup olmadığını karşılaştırarak çalışır.

05AB1E , 4 bayt

γdƶ˜

Çevrimiçi deneyin!

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

R , 33 bayt

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

Çevrimiçi deneyin!

Luis Mendo ve diğerleri ile aynı kümülatif toplam yöntemini kullanır .

Matl , 8 bayt

Y'wn:wY"

Çevrimiçi deneyin!

Açıklama:

    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

Jöle , 4 bayt

ŒgƤẈ

Çevrimiçi deneyin!

Nasıl?

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

Oktav / MATLAB, 25 bayt

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

Çevrimiçi deneyin!

Haskell , 46 43 bayt

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

Çevrimiçi deneyin!

Bir liste alan ve bir liste döndüren anonim işaretsiz işlev

J , 12 bayt

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

Çevrimiçi deneyin!

Adám'ın APL yanıtına benzer

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

Perl 5 , 27 bayt

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

Çevrimiçi deneyin!

Komut satırı seçeneği -p, perl'in STDIN'den "varsayılan değişken" in giriş satırını okumasını sağlar $_. Daha sonra-arama yerine tüm haneleri $_sayacı ile $i. Ve bir $iönceki basamaktan farklı olan her bir basamak için artar, ki bu aynı zamanda ilk basamaktadır, böylece sayaç başlar 1. Önceki basamakta saklanır $p.

Pyth , 13 11 bayt

s.e*]hkhbr8

Çevrimiçi deneyin!

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

Bay Xcoder sayesinde -2 bayt

Scala , 75 bayt

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

Çevrimiçi deneyin!

Giriş ve çıkışın virgülle ayrılmış olması gerekiyorsa String (Liste değil) ise 102 bayt.

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

Jöle , 5 bayt

nƝÄŻ‘

Çevrimiçi deneyin!

Başlangıçta 4 byter (aynı program ama olmadan Ż) hedefledim ama sonra hemen bir 1 bir gözetim nedeniyle her seferinde yapılması gerektiğini ... Jelly'de 5 byter daha olmasına rağmen, aslında farklı bir yöntem kullandığından bunu saklayın.

Giriş listesindeki her bir komşu öğe çifti için $L$, test edin $L_i\ne L_{i+1}, \forall 1\le i<|L|$ve bu sonuçları bir listeye kaydedin. Ardından, bu listenin kümülatif toplamını alın ve yığın indeksleme sistemiyle eşleştirmek için bunları 1 artırın. TL; DR. Farklı komşu öğelerle karşılaştığımızda, yığın dizinini 1 arttırırız .

JavaScript (ES6), 30 bayt

Girdiyi tamsayılar dizisi olarak alır.

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

Çevrimiçi deneyin!

Yorumlananlar

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 bayt

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

Çevrimiçi deneyin!

Komut satırı üzerinden giriş, STDOUT .

Sinir bozucu '0' == 0karşılaştırma bugfix için @ Night2 için teşekkürler !

Julia 1.0 , 56 bayt

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

Çevrimiçi deneyin!

Japt v2.0a0, 9 bayt

£T±A¦(A=X

Dene

++ , 23 bayt ekle

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

Çevrimiçi deneyin!

Nasıl çalışır

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 bayt

ä¦Ug)åÄ

Dene

Retina 0.8.2 , 34 bayt

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

Çevrimiçi deneyin! Açıklama:

\b\d+\b

Her sayıyı sırayla eşleştirin.

(?<=(...)*)

Mümkün olduğunca çok sayıda maç için geriye doğru bakmaya başlayın. (Sonraki girişler, görünümün arkasındaki gibi sağdan sola sıralanır.)

\D*

Ayırıcıları atlayın.

(\3|(\d+))

Son sayıyla aynı sayıyı eşleştirmeye çalışın, ancak başarısız olursa, herhangi bir sayıyla eşleştirin, ancak yeni bir sayıyla eşleşmemiz gerektiğini unutmayın.

\b

Tam sayının eşleştiğinden emin olun.

$#3

Yeni sayıların sayısını sayın.

Stax , 10 bayt

▓ª2ªmD?Ä╧╖

Çalıştır ve hata ayıkla

Çıktı, ayırıcı olarak boşluk kullanır. Girdi, ayırıcı olarak virgül kullanan ve şimdi ayraçları kapsayan kesin özellikleri izler.

C (gcc) , 62 61 bayt

Bu, tam bir programın bir işlev gönderiminden daha kısa olduğu yerlerde yaptığım birkaç girişten biridir!

İlk geçişte, önceki değeri umursamıyorum, bu yüzden argvbir yere bir işaretçi olduğu ve [0..9] arasında olması pek mümkün olmadığına güveniyorum !

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

Çevrimiçi deneyin!

Scala , 114 bayt

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

Çevrimiçi deneyin!

C (gcc) , 62 bayt

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

Çevrimiçi deneyin!

Listeyi ve uzunluğunu bağımsız değişken olarak alan bir işlev.

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

Çevrimiçi deneyin!

Tekli çıktılar, 0s ile sınırlandırılmış