소수 자릿수 목록이 있습니다.

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

출력 형식

구분 기호로 구분 된 일련의 10 진수입니다. 프로그램은 항상 동일한 구분자를 사용해야합니다. 분리 문자는 0 비트보다 길어야합니다. 인코딩 : ASCII

표준 허점이 적용됩니다.

답변

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

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

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

+\1,2≠/

ŒɠµJx

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

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

¥Ā.¥>

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