การจัดกลุ่มใช้รายการและแยกเป็นรายการใหม่ขององค์ประกอบที่อยู่ติดกันเท่ากัน ตัวอย่างเช่น

[1,1,2,1,1] -> [[1,1],[2],[1,1]]

หากคุณใช้ความยาวของกลุ่มเหล่านี้คุณจะได้รับรายการจำนวนเต็มใหม่

[1,1,2,1,1] -> [2,1,2]

งานของคุณคือการเขียนโปรแกรมที่ใช้รายการจำนวนเต็มบวกและหาจำนวนครั้งที่คุณสามารถจัดกลุ่มและขยายได้ก่อนที่รายการผลลัพธ์จะมีองค์ประกอบเดียว ตัวอย่างเช่นรายการ[1,2,3,3,2,1]สามารถจัดกลุ่มใหม่ได้ 4 ครั้ง

[1,2,3,3,2,1]
[1,1,2,1,1]
[2,1,2]
[1,1,1]
[3]

นี่คือcode-golfดังนั้นคำตอบจะได้คะแนนเป็นไบต์ด้วยจำนวนไบต์น้อยกว่าจะดีกว่า

กรณีทดสอบ

[1,2,3,3,2,1] -> 4
[1,2,3,4,5,6,7] -> 2
[1,1,1,1,1,1] -> 1
[2] -> 0
[1,2,4] -> 2
[1,2,2,1,1,2] -> 4
[1,2,2,1,1,2,1,2,2] -> 5
[1] -> 0

Haskell, 49 ไบต์

import Data.List
f[_]=0
f c=1+f(length<$>group c)

ลองออนไลน์!

CJam , 18 ไบต์

q~_,{_e`0f=}*]:,1#

ลองออนไลน์!

Japt , 12 ไบต์

ÊÉ©1+ßUò¦ ml

ทดสอบออนไลน์!

คำอธิบาย

 Ê É © 1+ßUò¦  ml
Ul -1&&1+ßUò!= ml    Ungolfed
                     Implicit: U = input array
Ul -1                Take U.length - 1.
     &&              If this is non-zero:
          Uò!=         Split U between non-equal elements.
               ml      Take the length of each run of equal elements.
         ß             Run the entire program again on the resulting array.
       1+              Add one to the return value.

การเรียกซ้ำเป็นวิธีที่ไม่ธรรมดาสำหรับ Japt แต่ดูเหมือนว่าจะมีขนาดสั้นกว่า 4 ไบต์ทางเลือกถัดไป ...

Brachylogขนาด 12 ไบต์

;.{ḅlᵐ}ⁱ⁾l1∧

ลองออนไลน์!

คำอธิบาย

;.{   }ⁱ⁾        Iterate Output times the following predicate on the input:
   ḅ               Group consecutive equal elements together
    lᵐ             Map length
         l1∧     The result of this iteration must have length 1

C (gcc) , 108 ไบต์

j,k,n;f(A,l)int*A;{for(j=k=n=0;j<l;j++)if(n++,A[j]-A[k])A[k++]=--n,A[k]=A[j],n=1;A=l>1?-~f(A,k,A[k++]=n):0;}

ลองออนไลน์!

คำอธิบาย

j,k,n;                // array pos, group pos, group val
f(A,l)int*A;{         // function takes array and length
 for(j=k=n=0;j<l;j++) // initialize, loop through array
  if(n++,             // increase n (*), check if group ended
  A[j]-A[k])          // group ended
   A[k++]=--n,        // advance group pos, decrease n, counteracting (*)
   A[k]=A[j],         // store new group type
   n=1;               // group is at least one long
 A=l>1?               // check if array length is larger than one
  -~f(A,k,A[k++]=n)   // fix last group length, enter recursion
  :0;}                // array length is less than two, return zero

ลองออนไลน์!

JavaScript (ES6), 67 65 63 ไบต์

f=a=>a[1]?1+f(q=j=i=[],a.map(x=>x^a[++i]?j=!q.push(++j):++j)):0

น่าแปลกที่ JavaScript และ Japt ดูเหมือนจะมีอัลกอริธึมที่สั้นที่สุดเท่าเดิม ...

K (oK) , 20 19 ไบต์

วิธีการแก้:

#2_{#:'(&~~':x)_x}\

ลองออนไลน์!

ตัวอย่าง:

#2_{#:'(&~~':x)_x}\1 2 3 3 2 1
4
#2_{#:'(&~~':x)_x}\1 2 3 4 5 6 7
2
#2_{#:'(&~~':x)_x}\1 1 1 1 1 1
1
#2_{#:'(&~~':x)_x}\1#2
0
#2_{#:'(&~~':x)_x}\1 2 4
2

คำอธิบาย:

อันนี้ค่อนข้างง่ายฉันสงสัยว่ามีวิธีการที่ดีกว่านี้หรือไม่ ... ค้นหาดัชนีที่อินพุตแตกต่างแยกดัชนีเหล่านั้นแล้วนับความยาวของแต่ละรายการย่อย ทำซ้ำจนกว่าผลลัพธ์จะมาเป็น 1

#2_{#:'(&~~':x)_x}\ / the solution
   {             }\ / scan over lambda until results converge
                x   / implicit input
               _    / cut at indices
       (      )     / do this together
         ~~':x      / differ... not (~) match (~) each-previous (':) x)
        &           / indices where true
    #:'             / count (#:) each (')
 2_                 / drop first two results
#                   / count result

หมายเหตุ:

โซลูชัน14 ไบต์ต่อไปนี้ใช้ได้กับทุกคนยกเว้นรายการเดียว:

#1_(-':&~~':)\

ลองออนไลน์!

J , 25 23 ไบต์

บันทึกได้ 1 ไบต์ขอบคุณสำหรับนักช้อป

บันทึก 1 ไบต์ขอบคุณ FrownyFrog

2#@}.#;.1@(0,2=/\])^:a:

ลองออนไลน์!

วิธีแก้ปัญหาเบื้องต้น:

_2+[:#(#;.1~1,2~:/\])^:a:

ลองออนไลน์!

คำอธิบาย

      (               )^:a: - repeat until result stops changing, store each iteration
        ;.1~                - cut the input (args swapped)              
            1,2~:/\]      - where the items are no longer the same
       #                    - and take the length of the sublists
 2+[:#                      - finally subtract 2 from the number of steps

Stax , 9 ไบต์

ÆÑfá╒]`*Ä

เรียกใช้และตรวจแก้จุดบกพร่องออนไลน์

การเป็นตัวแทน ASCII ของโปรแกรมเดียวกันคือสิ่งนี้

{D}{|RMHgf%

สิ่งนี้ใช้คุณสมบัติ stax ที่เรียกว่าเครื่องกำเนิดที่สร้างมูลค่าตามการแปลงและบล็อกตัวกรอง

{ }            the filter for the generator
 D             tail of array; this is truthy for length >= 2
   {    gf     generator block - termination condition is when the filter fails
    |R         run-length encode into pairs [element, count]
      M        transpose matrix
       H       last element
          %    length of final generated array

Python 2 , 84 ไบต์

f=lambda a:len(a)>1and-~f(eval(''.join('1'+',+'[x==y]for x,y in zip(a,a[1:]))+'1,'))

ลองออนไลน์!

อย่างไร?

fเป็นฟังก์ชันแบบเรียกซ้ำซึ่งถ้าอินพุตaมีความยาว 2 หรือมากกว่า ( len(a)>1) จะคืนค่า1+f(x)* โดยที่xความยาวกลุ่มเป็นa; ในขณะที่ถ้าอินพุตคือความยาว 1 หรือ 0 จะส่งคืนFalse(เท่ากับ 0 ใน Python) - นี่เป็นเพราะด้านขวามือของandไม่ได้รับการประเมินเมื่อด้านซ้ายเป็นเท็จ

* -~f(x)เป็น-(-1 - f(x))แต่สามารถจดandแตกต่าง1+f(x)หรือf(x)+1)

eval(...)ความยาวของกลุ่มที่มีการคำนวณโดยการสร้างรหัสที่ได้รับการประเมินแล้วด้วย รหัสที่สร้างขึ้นเป็นสิ่งที่ต้องการ1,1,1+1+1,1,1+1,1,ที่จะประเมิน tuple (1,1,3,1,2,1)เหมือน

รหัสถูกสร้างขึ้นโดยการซิปผ่านaและaไม่มีหัว ( ...for x, y in zip(a,a[1:])การสร้างxและyแต่ละคู่ที่อยู่ติดกันaหากคู่มีค่าเท่ากันx==yประเมินเป็นTrue(1) มิฉะนั้นFalse(0) - ผลลัพธ์นี้ใช้เพื่อจัดทำดัชนีในสตริงที่,+ ให้ผลผลิต+และ,ตามลำดับ ตัวละครที่เกิดขึ้นนำหน้าด้วย1( '1'+...) - สิ่งทั้งหมดนั้นมีสุดท้าย, ต่อท้าย1,ท้ายตัวอย่างเช่นถ้าaเป็น[5,5,2,9,9,9]แล้วx,yคู่จะ(5,5)(5,2)(2,9)(9,9)(9,9)ทำให้เท่าเทียมกัน10011แล้วตัวละครจะเป็น+,,++ที่มีก่อนหน้านี้1จะกลายเป็น1+1,1,1+1+และต่อท้าย1,การสร้างสุดท้าย1+1,1,1+1+1,ซึ่งประเมิน(2,1,3)ว่าจำเป็น

โปรดทราบว่าการลากต่อท้าย,ทำให้มั่นใจได้ว่าอินพุตที่มีกลุ่มเดียวถูกประเมินเป็น tuple แทนที่จะเป็นจำนวนเต็ม (เช่น[3,3]-> 1+1,-> (2)มากกว่า[3,3]-> 1+1-> 2)

CJam , 19 ไบต์

q~{_);}{_e`0f=}w],(

ลองออนไลน์!

CJam , 20 ไบต์

l~{__,(}{e`z0=}w;;],

ลองออนไลน์!

Perl 5 , 53 50 49 45 ไบต์

รวม +3สำหรับ-p

ให้รายการตัวเลขเป็นหนึ่งบรรทัดบน STDIN

#!/usr/bin/perl -p
s%%$\+=1<s:\d+:$.++x($'-$&and$.=1):eg%eg}{

ลองออนไลน์!

แกลบ , 8 ไบต์

_{-1 ไบต์ขอบคุณ @Zgarb!}

←Vε¡(mLg

ลองออนไลน์!

คำอธิบาย

←Vε¡(mLg)  -- example input: [1,2,3,3,2,1]
   ¡(   )  -- repeatedly apply the function & collect results
    (  g)  -- | group: [[1],[2],[3,3],[2],[1]]
    (mL )  -- | map length: [1,1,2,1,1]
           -- : [[1,2,3,3,2,1],[1,1,2,1,1],[2,1,2],[1,1,1],[3],[1],[1],...
 V         -- index where
  ε        -- | length is <= 1: [0,0,0,0,1,1...
           -- : 5
←          -- decrement: 4

เยลลี่ 10 ไบต์

ŒgL€$ḊпL’

ลองออนไลน์!

05AB1E , 9 ไบต์

[Dg#γ€g]N

ลองออนไลน์!

คำอธิบาย

[Dg#   ]     # loop until the length of the current value is 1
    γ        # split into groups of consecutive equal elements
     €g      # get length of each
        N    # push the iteration variable N

ภาษา Wolfram (Mathematica)ขนาด 32 ไบต์

บันทึก 2 ไบต์ขอบคุณ Martin Ender ใช้การเข้ารหัส CP-1252 โดยที่±หนึ่งไบต์

±{_}=0;±x_:=1+±(Length/@Split@x)

ลองออนไลน์!

Ruby , 54 56 55 54 ไบต์

g=->l,d=0{l[1]?g[l.chunk(&:i).map{|i,j|j.size},d+1]:d}

ลองออนไลน์!

SmileBASIC, 110 108 ไบต์

DEF R L,J
K=LEN(L)FOR I=1TO K
N=POP(L)IF O-N THEN UNSHIFT L,0
INC L[0]O=N
NEXT
IF I<3THEN?J ELSE R L,J+1
END

ฟังก์ชั่นการโทรเป็นR list,0; เอาต์พุตถูกพิมพ์ไปที่คอนโซล

Python 2 , 85 ไบต์

from itertools import*
f=lambda a:~-len(a)and-~f([len(list(v))for k,v in groupby(a)])

ลองออนไลน์!

R , 51 45 ไบต์

f=function(a)"if"(sum(a|1)>1,f(rle(a)$l)+1,0)

ลองออนไลน์!

ใช้ความยาวของการเข้ารหัสความยาวในการเรียกใช้ซ้ำและเพิ่มตัวนับ

เรติน่า 0.8.2 , 31 ไบต์

,.*
$&_
}`(\b\d+)(,\1)*\b
$#2
_

ลองออนไลน์! ลิงค์รวมถึงกรณีทดสอบ คำอธิบาย:

,.*
$&_

หากมีเครื่องหมายจุลภาคเราจะทำการวนซ้ำอีกครั้งดังนั้นผนวกอักขระนับ

}`(\b\d+)(,\1)*\b
$#2

แทนที่การวิ่งแต่ละครั้งด้วยความยาวที่ลดลง ขั้นตอนข้างต้นทำซ้ำจนกว่าจะไม่มีเครื่องหมายจุลภาคเหลือ

_

นับจำนวนการวนซ้ำ

Perl 6 , 52 ไบต์

{+($_,*.comb(/(\d+)[" "$0»]*/).map(+*.words)...^1)}

ทดสอบมัน

ขยาย:

{  # bare block lambda with implicit parameter ｢$_｣

  + (              # turn the following into a Numeric (get the count)


      $_,          # seed the sequence with the input

      *.comb(      # turn into a string, and grab things that match:

        /          # regex
          ( \d+ )  # a run of digits (number)
          [
            " "    # a space
                   # (gets inserted between elements of list when stringified)

            $0     # another instance of that number
            »      # make sure it isn't in the middle of a number

          ]*       # get as many as possible
        /
      ).map(
        +*.words  # turn each into a count of numbers
      )

      ...^        # keep doing that until (and throw away last value)

      1           # it gives a value that smart-matches with 1
                  # (single element list)
  )
}

Brain-Flakขนาด 78 ไบต์

({}<>)<>({()<(<>{}<(())><>){({}[({})]<>){((<{}>))}{}((){})<>}<>{}({}<>)<>>}{})

ลองออนไลน์!

Pyth , 9 ไบต์

ltt.uhMr8

ชุดทดสอบ!

Kotlin , 123 ไบต์

List<Int>ยอมรับ

{var a=it;var b=0;while(a.size>1){var c=a[0];var d=0;with(a){a=listOf();forEach{if(it!=c){a+=d;d=0};d++;c=it};a+=d};b++};b}

อ่านเพิ่มเติมได้:

{ l ->
    var input = l
    var result = 0
    while (input.size > 1) {
        var last = input[0]
        var runSize = 0
        with(input) {
            input = listOf()
            forEach { current ->
                if (current != last) {
                    input += runSize
                    runSize = 0
                }
                runSize++
                last = current
            }
            input += runSize
        }
        result++
    }
    result
}

ลองออนไลน์!

131 ไบต์TIO

{l->var a=l;var b=0;while(a.size>1){var c=a[0];var d=0;a.let{a=arrayListOf();for(e in it){if(e!=c){a+=d;d=0};d++;c=e};a+=d};b++};b}

181 ไบต์TIO

รวม import kotlin.coroutines.experimental.*39

{l->var a=l;var b=0;while(a.size>1){var c=a[0];var d=0;a=buildSequence{for(e in a){if(e!=c){yield(d);d=0;};d++;c=e};yield(d)}.toList();b++};b}

สีแดง 140 ไบต์

func[b][n: 0 while[(length? b)> 1][l: copy[]parse split form b" "[any[copy s[set t string! thru any t](append l length? s)]]b: l n: n + 1]n]

ลองออนไลน์!

ฉันแค่อยากจะลองใช้ Parse ภาษาถิ่นของ Red อีกครั้ง

Ungolfed

f: func [b] [
    n: 0
    while [(length? b) > 1][
        l: copy []
        parse split form b " " [
            any [copy s [set t string! thru any t]
                (append l length? s)]
        ]
        b: l
        n: n + 1
    ]
    n
]