У мене є список десяткових цифр:

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

Список десяткових цифр відомий як елементи. Ми можемо сформувати "шматки" з цих предметів, згрупувавши разом однакові та суміжні числа. Я хочу призначити кожному фрагменту унікальне число, починаючи з 1 і збільшуючи на 1 в порядку, коли шматки відображаються в початковому списку. Отже, вихід для даного прикладу виглядатиме так:

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

Формат введення

Список цифр. (0-9) Ви можете використовувати свої вбудовані мови, щоб прочитати цей список, як би ви хочете. Кодування: ASCII

Формат виводу

Серія десяткових чисел, розділених роздільником. Ваша програма завжди повинна використовувати один і той же роздільник. Розмежувач повинен бути довше 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

Спробуйте в Інтернеті!

Збережено один байт завдяки 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]

Мова Вольфрама (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)

Спробуйте в Інтернеті!

Функція Anonymous pointfree, яка бере список і повертає список

J , 12 байт

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

Спробуйте в Інтернеті!

Схожа на відповідь Адама 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 у "змінну за замовчуванням" $_. Потім він здійснює пошук і замінює всі цифри $_лічильником $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])

-2 байти завдяки панові Xcoder

Scala , 75 байт

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

Спробуйте в Інтернеті!

Якщо введення та вихід мають бути розділені комами String (а не List), то 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 потрібно попередньо робити заздалегідь через нагляд ... Хоча в Jelly є ще 5-байтний, я насправді зберігайте це, оскільки він використовує інший метод.

Для кожної пари сусідніх елементів вхідного списку $L$, перевірити, якщо $L_i\ne L_{i+1}, \forall 1\le i<|L|$і збережіть ці результати у списку. Потім візьміть сукупну суму цього списку і збільште їх на 1, щоб відповідати системі індексації шматка. TL; DR. Щоразу, коли ми стикаємося з різними сусідніми елементами, ми збільшуємо індекс шматка на 1 .

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.

Thx to @ Night2 для приборканого '0' == 0виправлення порівняння!

Джулія 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

Спробуй це

Додайте ++ , 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)åÄ

Спробуй це

Сітківка 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 байт

Це одна з небагатьох записів, які я зробив, коли повна програма коротша, ніж функція!

По першому пропуску, мені не байдуже попереднє значення, тому я можу покластися на те, що 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