ฉันมีรายการเลขทศนิยม:

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]

ภาษา 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)))

ลองออนไลน์!

ใช้วิธีผลรวมสะสมเช่นเดียวกับLuis Mendoและอื่น ๆ

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)

ลองออนไลน์!

ฟังก์ชั่น pointfree แบบไม่ระบุชื่อที่รับรายการและส่งคืนรายการ

J , 12 ไบต์

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

ลองออนไลน์!

คล้ายกับคำตอบ APL ของAdám

      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 ไบต์ขอบคุณ Mr. Xcoder

สกาลา , 75 ไบต์

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

ลองออนไลน์!

หากอินพุตและเอาต์พุตต้องคั่นด้วยเครื่องหมายจุลภาคString (และไม่ใช่รายการ) ดังนั้น 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-byter (โปรแกรมเดียวกัน แต่ไม่มีŻ) แต่ก็รู้ได้อย่างรวดเร็วว่า1ต้องถูกเตรียมทุกครั้งเนื่องจากการกำกับดูแล ... แม้ว่าจะมีอีก 5-byter ใน Jelly ฉันจะ จริง ๆ แล้วเก็บไว้นี้เนื่องจากใช้วิธีการอื่น

$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การป้อนข้อมูลผ่านทางบรรทัดคำสั่งออกไป

ขอบคุณ @ @ Night2 สำหรับ'0' == 0ข้อผิดพลาดการเปรียบเทียบข้อผิดพลาด!

Julia 1.0 , 56 bytes

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

จับคู่ตัวเลขแต่ละตัว

(?<=(...)*)

เริ่มมองย้อนกลับเพื่อดูการแข่งขันให้ได้มากที่สุด (รายการถัดไปจะอยู่ในลำดับจากขวาไปซ้ายเนื่องจากเป็นวิธีที่ lookbehind ทำงาน)

\D*

ข้ามตัวคั่น

(\3|(\d+))

พยายามจับคู่หมายเลขเดิมเป็นครั้งสุดท้าย แต่ล้มเหลวเพียงแค่จับคู่หมายเลขใด ๆ แต่โปรดจำไว้ว่าเราต้องจับคู่หมายเลขใหม่

\b

ตรวจสอบให้แน่ใจว่าหมายเลขทั้งหมดตรงกัน

$#3

นับจำนวนตัวเลขใหม่

Stax , 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);}

ลองออนไลน์!

สกาลา , 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);}

ลองออนไลน์!

เอาต์พุตใน unary คั่นด้วย0s