Tujuan

Dengan bilangan bulat non-negatif, buat fungsi yang mengembalikan posisi awal jumlah 1 terbesar berturut-turut dalam nilai biner bilangan bulat itu.

Saat diberi input 0, kembali 0.

Jika angka memiliki beberapa goresan dengan panjang yang sama, Anda harus mengembalikan posisi goresan terakhir.

Memasukkan

Integer lebih besar dari atau sama dengan 0.

Keluaran

Bilangan bulat dihitung seperti dijelaskan di bawah ini.

Aturan

• Ini adalah kode-golf, jadi kode terpendek dalam byte di setiap bahasa menang.
• Celah standar dilarang.

Contoh dan Kasus Uji

Contoh 1

• Fungsi Anda melewati bilangan bulat 142
• 142 sama dengan 10001110 dalam biner
• Coretan terpanjang adalah "111" (coretan tiga yang)
• Garis mulai pada posisi 2 ^ 1
• Fungsi Anda mengembalikan 1 sebagai hasilnya

Contoh 2

• Fungsi Anda melewati integer 48
• 48 sama dengan 110000 dalam biner
• Coretan terpanjang adalah "11" (coretan dua yang)
• Garis mulai pada posisi 2 ^ 4
• Fungsi Anda mengembalikan 4 sebagai hasilnya

Contoh 3

• Fungsi Anda melewati bilangan bulat 750
• 750 sama dengan 1011101110 dalam biner
• Coretan terpanjang adalah "111" (coretan tiga yang)
• Karena ada dua garis dengan panjang yang sama, kami mengembalikan garis selanjutnya.
• Coretan selanjutnya dimulai pada posisi 2 ^ 5
• Fungsi Anda mengembalikan 5 sebagai hasilnya

Jelly , 10 8 byte

Ba\ÐƤṀċ¬

Cobalah online!

Bagaimana itu bekerja

Ba\ÐƤṀċ¬  Main link. Argument: n


B         Binary; convert n to base 2.

   ÐƤ     Apply the link to the left to all postfixes of the binary array.
 a\         Cumulatively reduce by logical AND.

          For example, the array

          [1, 0, 1, 1, 1, 0, 1, 1, 1, 0]

          becomes the following array of arrays.

          [1, 0, 0, 0, 0, 0, 0, 0, 0, 0]
             [0, 0, 0, 0, 0, 0, 0, 0, 0]
                [1, 1, 1, 0, 0, 0, 0, 0]
                   [1, 1, 0, 0, 0, 0, 0]
                      [1, 0, 0, 0, 0, 0]
                         [0, 0, 0, 0, 0]
                            [1, 1, 1, 0]
                               [1, 1, 0]
                                  [1, 0]
                                     [0]

     Ṁ    Take the lexicographical maximum, i.e., the array with the most 1's at
          the beginning, breaking ties by length.

       ¬  Yield the logical NOT of n, i.e., 0 if n > 0 and 1 if n = 0.

      ċ   Count the occurrences of the result to the right in the one to the left.

JavaScript (ES6), 41 40 36 34 byte

Disimpan 4 byte berkat @ThePirateBay

f=x=>(k=x&x/2)?f(k):Math.log2(x)|0

Uji kasus

f=x=>(k=x&x/2)?f(k):Math.log2(x)|0

console.log(f(0))
console.log(f(142))
console.log(f(48))
console.log(f(750))

Bagaimana?

Kasus umum x> 0

Kami secara rekursif DAN input x dengan x / 2 yang secara progresif mengurangi pola bit set berurutan hingga hanya bit paling kanan dari urutan yang tersisa. Kami menyimpan salinan dari nilai non-nol terakhir dan menentukan posisi bit paling signifikan dengan membulatkan logaritma basis-2.

Berikut adalah langkah-langkah yang kami lalui untuk x = 750 ( 1011101110 dalam biner).

    1011101110 --.
,----------------'
'-> 1011101110
AND 0101110111
    ----------
=   0001100110 --.
,----------------'
'-> 0001100110
AND 0000110011
    ----------
=   0000100010 --.  --> output = position of MSB = 5  (0000100010)
,----------------'                                         ^
'-> 0000100010
AND 0000010001
    ----------
=   0000000000

Kasing tepi x = 0

Kasus khusus x = 0segera mengarah ke Math.log2(0) | 0. Logaritma dari 0evaluasi ke -Infinitydan bitwise biner ATAU memaksa pemaksaan ke bilangan bulat 32-bit. Sesuai dengan spesifikasi operasi abstrak ToInt32 , ini memberikan yang diharapkan 0:

Jika angka adalah NaN , +0 , −0 , + ∞ , atau −∞ , kembalikan +0

kode mesin x86, 14 byte

Menggunakan @ algoritma Arnauld ini dari x &= x>>1dan mengambil set posisi bit tertinggi pada langkah sebelumnya xmenjadi 0.

Dipanggil dari C / C ++ dengan tanda tangan unsigned longest_set(unsigned edi);di Sistem V86 ABI x86-64. Byte kode mesin yang sama akan mendekode dengan cara yang sama dalam mode 32-bit, tetapi konvensi pemanggilan standar 32-bit tidak memasukkan arg pertama edi. (Mengubah register input ke ecxatau edxuntuk Windows _fastcall/ _vectorcallatau gcc -mregparmdapat dilakukan tanpa merusak apa pun.)

   address   machine-code
             bytes
                         global longest_set
 1                       longest_set:
 2 00000000 31C0             xor  eax, eax    ; 0 for input = 0
 3                       
 4                       .loop:               ; do{
 5 00000002 0FBDC7           bsr  eax, edi    ;  eax = position of highest set bit
 6                           ;; bsr leaves output unmodified when input = 0 (and sets ZF)
 7                           ;; AMD documents this; Intel manuals say unspecified but Intel CPUs implement it
 8 00000005 89F9             mov  ecx, edi
 9 00000007 D1E9             shr  ecx, 1
10 00000009 21CF             and  edi, ecx
11 0000000B 75F5             jnz .loop        ; } while (x &= x>>1);
12                       
13 0000000D C3               ret

BSRInstruksi x86 (Bit Scan Reverse) sangat cocok untuk ini, memberikan kami indeks-bit secara langsung, daripada menghitung angka nol di depan. ( bsrtidak secara langsung menghasilkan 0 untuk input = 0 seperti 32-lzcnt(x)akan, tetapi kita perlu bsr = 31-lzcnt untuk input non-nol, jadi lzcntbahkan tidak akan menyimpan instruksi, apalagi jumlah byte. Mem-kosongkan eax sebelum loop bekerja karenabsr ' perilaku setengah resmi meninggalkan tujuan tidak dimodifikasi ketika inputnya nol.)

Ini akan menjadi lebih pendek jika kita dapat mengembalikan posisi MSB dari perjalanan terpanjang. Dalam hal ini, lea ecx, [rdi+rdi](3 byte) akan menyalin + kiri- alih alih-alih mov+ shr(4 byte).

Lihat tautan TIO ini untuk pemanggil asm yang melakukannyaexit(longest_set(argc-1));

Pengujian dengan loop shell:

l=(); for ((i=0;i<1025;i++));do 
    ./longest-set-bitrun "${l[@]}";   # number of args = $i
    printf "$i %#x: $?\n" $i; 
    l+=($i); 
done | m

0 0: 0
1 0x1: 0
2 0x2: 1
3 0x3: 0
4 0x4: 2
5 0x5: 2
6 0x6: 1
7 0x7: 0
8 0x8: 3
9 0x9: 3
10 0xa: 3
11 0xb: 0
12 0xc: 2
13 0xd: 2
14 0xe: 1
15 0xf: 0
16 0x10: 4
17 0x11: 4
18 0x12: 4
19 0x13: 0
20 0x14: 4
21 0x15: 4

...

747 0x2eb: 5
748 0x2ec: 5
749 0x2ed: 5
750 0x2ee: 5
751 0x2ef: 0
752 0x2f0: 4
753 0x2f1: 4
754 0x2f2: 4

Jelly , 19 17 11 byte

HÐĿ&\ḟ0ṪBL’

Cobalah online!

-6 (!) Byte berkat pengamatan tajam @ Dennis

Bagaimana itu bekerja

HÐĿ&\ḟ0ṪBL’
HÐĿ         - halve repeatedly until reaching 0 due to rounding
   &\       - cumulative AND
     ḟ0Ṫ    - final non-zero, or 0 if all elements are 0
        BL  - length of binary representation (log base 2). 0->[0]->1
          ’ - decrement

Python 2 , 45 byte

f=lambda x:f(x&x/2)if x&x/2else len(bin(x))-3

Cobalah online!

Menyimpan banyak byte berkat Dennis! (Kepala untuk len(bin(...))-3bukannya math.frexp)

Terima kasih kepada @xnor karena menemukan bug, yang untungnya mudah diperbaiki!

Perl 6 ,45 35 byte

Versi yang sangat ditingkatkan ini adalah milik @nwellnhof.

{.msb+1-(.base(2)~~m:g/1+/).max.to}

Cobalah online!

Python 2 , 89 78 byte

m=t=i=j=0
for c in bin(input()):
 t=-~t*(c>'0');i+=1
 if t>m:j=i;m=t
print i-j

Cobalah online!

EDIT: Disimpan 11 byte berkat Tn. Xcoder.

05AB1E , 14 12 11 byte

bDγàŠrkrJgα

Cobalah online! atau menjalankan test case .

Penjelasan

bDγàŠrkrJgα  Implicit input (ex: 750)
bD           Convert input to binary string and duplicate
                 '1011101110', '1011101110'
  γ          Split into groups of 1s or 0s
                 '1011101110', ['1', '0', '111', '0', '111', '0']
   à         Pull out max, parsing each as an integer
                 '1011101110', ['1', '0', '0', '111', '0'], '111'
    Šrk      Rearrange stack and get first index of max run of ones
                 ['1', '0', '0', '111', '0'], 2
       rJg   Reverse stack, join the array to a string, and get its length
                 2, 7
          α  Get absolute difference
                 5

J , 18 17 byte

(#-0{#\\:#.~\)@#:

Cobalah online!

Penjelasan

(#-0{#\\:#.~\)@#:  Input: integer n
               #:  Binary
     #\            Length of each prefix
       \:          Sorted down using
         #.~\      Mixed base conversion on each prefix
   0{              Get the value at index 0
  -                Subtract from
 #                 Length

C # (.NET Core) , 64 60 byte

T=a=>(a&a/2)>0?T(a&a/2):Math.Log(a,2)<0?0:(int)Math.Log(a,2)

Cobalah online!

Versi AC # dari jawaban @ Arnauld

Ucapan Terima Kasih

4 byte disimpan berkat Kevin Cruijssen.

C # (.NET Core) , 131 123 + 18 = 141 byte

a=>{string s=Convert.ToString(a,2),t=s.Split('0').OrderBy(x=>x.Length).Last();return a<1?0:s.Length-s.IndexOf(t)-t.Length;}

Cobalah online!

+18 byte untuk using System.Linq;

Ucapan Terima Kasih

8 byte disimpan berkat Grzegorz Puławski.

Merosot

a=>{
    string s=Convert.ToString(a,2),      // Convert to binary
    t=s.Split('0')                       // get largest group of 1's
       .OrderBy(x=>x.Length)
       .Last();
    return 
        a<1?0:                          // handle 0 case
        s.Length-s.IndexOf(t)-t.Length; // get position in reversed string
}

C # (.NET Core) , 164 161 byte

a=>{var s=Convert.ToString(a,2);int c=0,l=0,p=0,k=0,j=s.Length-1,i=j;for(;i>=0;i--){if(s[i]>'0'){if(i==j||s[i+1]<'1'){p=i;c=0;}if(++c>=l){l=c;k=p;}}}return j-k;}

Cobalah online!

Sebuah non-Linq solusi , yang saya yakin dapat ditingkatkan, meskipun tidak ada yang langsung terlihat.

Merosot

a=>{
    var s=Convert.ToString(a,2); // Convert to binary
    int c=0,l=0,p=0,k=0,j=s.Length-1,i=j;
    for(;i>=0;i--)               // Loop from end of string
    {
        if(s[i]>'0')             // if '1'
        {
            if(i==j||s[i+1]<'1') // if first digit or previous digit was '0'
            {
                p=i;             // set the position of the current group
                c=0;             // reset the count
            }
            if(++c>=l)           // if count is equal or greater than current largest count
            {
                l=c;             // update largest count
                k=p;             // store position for this group
            }
        }
    }
    return j-k;                  // as the string is reversed, return string length minus position of largest group
}

Sekam , 12 byte

→S§-€¤≠Lo▲gḋ

Cobalah online!

Penjelasan

                 Implicit input, e.g                           750
           ḋ     Convert to binary                             [1,0,1,1,1,0,1,1,1,0]
          g      Group equal elements                          [[1],[0],[1,1,1],[0],[1,1,1],[0]]
        o▲       Maximum                                       [1,1,1]
    €            Index of that substring in the binary number  3
     ¤≠L         Absolute difference of lengths                abs (3 - 10) = 7
 S§-             Subtract the two                              7 - 3 = 4
→                Increment                                     5

Jelly ,  14 13 12  11 byte

Bµṣ0Ṫ$ƤMḢạL

Tautan monadik yang mengambil dan mengembalikan bilangan bulat non-negatif.

Cobalah online! atau lihat test-suite .

Bagaimana?

Bµṣ0Ṫ$ƤMḢạL - Main link: number, n                   e.g. 750
B           - convert to a binary list                    [1,0,1,1,1,0,1,1,1,0]
 µ          - monadic chain separation, call that b
      Ƥ     - map over prefixes:  (i.e. for [1], [1,0], [1,0,1], [1,0,1,1],...)
     $      -   last two links as a monad:                e.g.: [1,0,1,1,1,0,1,1]
   0        -     literal zero                                   0
  ṣ         -     split (prefix) at occurrences of (0)           [[1],[1,1,1],[1,1]]
    Ṫ       -     tail                                                        [1,1]
       M    - maximal indices                             [5,9]
        Ḣ   - head                                        5
          L - length (of b)                               10
         ạ  - absolute difference                         5

Jelly , 19 byte

BŒgḄṀB
BwÇɓÇL+ɓBL_‘

Cobalah online!

Terima kasih kepada Jonathan Allan karena telah menghemat  4  6 byte!

Saya telah bekerja terlalu banyak untuk meninggalkan ini, meskipun agak lama. Saya benar-benar ingin menambahkan solusi yang benar-benar mencari substring terpanjang1 dalam representasi biner ...

Penjelasan

BŒgḄṀB - Tautan pembantu monadik. Akan digunakan dengan Ç di tautan selanjutnya.

B - Representasi biner.
 Œg - Grup berjalan dengan elemen yang sama berturut-turut.
   Ḅ - Konversi dari biner ke integer.
    Ṁ - Nilai maksimum.
     B - Konversi dari integer ke biner.


BwÇɓÇL + ɓBL_ '- Tautan utama.

B - Representasi biner (dari input).
  Ç - Tautan terakhir sebagai monad. Mengambil integer input.
 w - Indeks sublist pertama.
   ɓ - Mulai rantai diad yang terpisah. Membalikkan argumen.
    Ç - Tautan terakhir sebagai monad.
     L - Panjang.
      + - Tambahan
       ɓ - Mulai rantai diad yang terpisah. Membalikkan argumen.
        B - Biner.
         L - Panjang.
          _ '- Kurangi dan tambahkan hasilnya (karena Jelly menggunakan pengindeksan 1).
              - Output tersirat.

Kotlin , 77 byte

{val b=it.toString(2)
b.reversed().lastIndexOf(b.split(Regex("0+")).max()!!)}

Yg diperindahkan

{
    val b = it.toString(2)
    // Find the left position of the first instance of
    b.reversed().lastIndexOf(
            // The largest group of 1s
            b.split(Regex("0+")).max()!!)
}

Uji

var s:(Int)->Int =
{val b=it.toString(2)
b.reversed().lastIndexOf(b.split(Regex("0+")).max()!!)}
fun main(args: Array<String>) {
    r(0, 0)
    r(142, 1)
    r(48, 4)
    r(750, 5)
}

fun r(i: Int, i1: Int) {
    var v = s(i)
    println("$i -> $v [$i1] ${i1 == v}")
}

Haskell , 101 98 96 75 byte

snd.maximum.(`zip`[0..]).c
c 0=[0]
c n|r<-c$div n 2=sum[r!!0+1|mod n 2>0]:r

Cobalah online! Penggunaan: snd.maximum.(`zip`[0..]).c $ 142hasil 1.

Penjelasan:

• cmengubah input menjadi biner sementara pada saat yang sama menghitung panjang goresan satu, mengumpulkan hasilnya dalam daftar. r<-c$div n 2rekursif menghitung sisa rdaftar ini, sambil sum[r!!0+1|mod n 2>0]:rmenambahkan panjang beruntun saat ini ke r. Pemahaman daftar memeriksa apakah mod n 2>0, yaitu apakah digit biner saat ini adalah satu, dan jika demikian, mengambil panjang dari garis sebelumnya (elemen pertama r) dan menambahkannya. Kalau tidak, pemahaman daftar kosong, dan sum[]menghasilkan 0. Sebagai input contoh, c 142menghasilkan daftar [0,3,2,1,0,0,0,1,0].

• (`zip`[0..])menambahkan posisi ke setiap elemen dari daftar sebelumnya sebagai komponen kedua tupel. Sebagai contoh ini memberi [(0,0),(3,1),(2,2),(1,3),(0,4),(0,5),(0,6),(1,7),(0,8)].

• maximummenemukan tupel maksimal leksikografis dalam daftar ini, yaitu panjang garis dianggap pertama karena mereka adalah komponen pertama, dan jika terjadi ikatan komponen kedua, yaitu indeks yang lebih besar, memutuskan. Ini menghasilkan (3,1)dalam contoh, dan sndmengembalikan komponen kedua dari tupel.

Python 2 atau 3 , 58 byte

import math
f=lambda x:x&x>>1and f(x&x>>1)or len(bin(x))-3

Cobalah online!

C (gcc) , 81 80 byte

i,l,c,r;f(n){for(i=l=c=r=0;n;n/=2,i++)c=n&1?c+1:c>=l?r=i-(l=c),0:0;n=c<l?r:i-c;}

Cobalah online!

C (gcc) , 43 byte

Versi AC dari jawaban @ Arnauld

k;f(n){n=(k=n&n/2)?f(k):(k=log2(n))<0?0:k;}

Cobalah online!

MS SQL Server, 437 426 407 398 byte

SQL Fiddle

Saya yakin bahwa saya bisa menghapus jeda baris, dll, tapi ini kompak seperti yang saya inginkan:

create function j(@ int)
returns int
as BEGIN
declare @a varchar(max)='',@b int,@c int=0,@d int=0,@e int=0,@f int=0,@g int=0,@h int=0
while @>0 BEGIN SELECT @a=cast(@%2 as char(1))+@a,@=@/2
END
SET @b=len(@a)
while @<@b
BEGIN
select @c=@d,@d=cast(substring(@a,@b-@,1)as int)
IF @d=1
BEGIN IF @c=0
SELECT @e=@,@g=1
else SET @g+=1 END
IF @g>=@h BEGIN select @h=@g,@f=@e END
SET @+=1
END
return @f
END

Ini versi yang lebih mudah dibaca:

create function BinaryString(@id int)
returns int
as BEGIN
  declare @bin varchar(max)
  declare @binLen int
  declare @pVal int = 0
  declare @Val int = 0
  declare @stC int = 0 --start of current string of 1s
  declare @stB int = 0 --start of biggest string of 1s
  declare @lenC int = 0 --length of current string of 1s
  declare @lenB int = 0 --length of biggest string of 1s

  set @bin = ''

    while @id>0
      BEGIN
        SET @bin = cast(@id%2 as varchar(1)) + @bin
        SET @id = @id/2
      END

    SET @binLen = len(@bin)

    while @id<@binLen
      BEGIN
        set @pVal = @Val
        set @Val = cast(substring(@bin,@binLen-@id,1) as int)
        IF @Val = 1 and @pVal = 0
          BEGIN 
            SET @stC = @id
            SET @lenC = 1
          END
        IF @Val = 1 and @pVal = 1
          BEGIN 
            SET @lenC = @lenC + 1
          END
        IF @lenC >= @lenB
          BEGIN
            set @lenB = @lenC
            set @StB = @StC
          END

        SET @id = @id + 1 
      END

  return @StB
END

Trik sebenarnya adalah sejauh yang saya bisa temukan, tidak ada fungsi SQL asli untuk mengubah angka dari desimal menjadi biner. Akibatnya, saya harus mengkodekan konversi ke biner secara manual, kemudian saya dapat membandingkannya sebagai string, satu karakter pada satu waktu sampai saya menemukan nomor yang tepat.

Saya yakin ada cara yang lebih baik untuk melakukan ini, tapi saya tidak melihat (n) jawaban SQL, jadi saya pikir saya akan membuangnya di sana.

APL (Dyalog Unicode) , 22 karakter = 53 byte

Membutuhkan ⎕IO←0yang default pada banyak sistem.

⊃⌽⍸(∨⌿↑⊆⍨b)⍷⌽b←2⊥⍣¯1⊢⎕

Cobalah online!

⎕ meminta input

⊢ hasilkan itu (terpisah ¯1dari ⎕)

2⊥⍣¯1 konversikan ke basis-2, menggunakan posisi sebanyak yang diperlukan

b← simpan sebagai b(untuk b inary)

⌽ membalikkan

(... ) tandai posisi awal sebagai berikut:

 ⊆⍨b partisi sendiri b(yaitu 1-coretan b)

 ↑ campur (buat daftar daftar menjadi matriks, diisi dengan nol)

 ∨⌿ pengurangan OR vertikal (menghasilkan goresan terpanjang)

⍸ d ndices posisi awal

⌽ membalikkan

⊃ pilih yang pertama (hasilkan nol jika tidak ada yang tersedia)

MATL , 15 byte

`tt2/kZ&t]xBnq&

Cobalah online!

Gunakan separuh dan ide AND. Yang kdiperlukan hanya untuk membuatnya berakhir1 - karena alasan tertentu, 1 DAN 0,5 mengembalikan 1, menyebabkan loop tak terbatas.

(solusi alternatif: BtnwY'tYswb*&X>)-dengan mengkonversi ke pengkodean biner dan run-length)

Google Sheets, 94 byte

=Len(Dec2Bin(A1))-Find(MAX(Split(Dec2Bin(A1),0)),Dec2Bin(A1))-Len(MAX(Split(Dec2Bin(A1),0)))+1

Tidak, tidak terlalu cantik. Sungguh menyenangkan bisa menyimpanDec2Bin(A1) sebagai variabel untuk referensi.

Poin utama: Seperti Excel, Dec2Binfungsi ini memiliki nilai input maksimal 511. Apa pun yang lebih besar dari itu akan mengembalikan kesalahan, seperti yang terlihat di bawah ini.

R, 117 Bytes

z=rev(Reduce(function(x,y)ifelse(y==1,x+y,y),strtoi(intToBits(scan())),,,T));ifelse(!sum(z),0,33-which.max(z)-max(z))

Excel VBA, ₅₄ 44 Bytes

-10 Bytes berkat @EngineerToast

Fungsi jendela langsung VBE anonim yang mengambil input dari jarak [A1]dan keluaran ke jendela langsung VBE

?Instr(1,StrReverse([Dec2Bin(A1)]),1)+[A1>0]

APL (Dyalog Classic) , 24 21 byte

63|-⊃⍒+/×\↑,⍨\⎕⊤⍨64⍴2

Cobalah online!

Pyth , 17 byte

Ini adalah fungsi rekursif. Tautan ini termasuk yuntuk memanggil fungsi pada input yang diberikan.

L|&K.&b/b2yKsl|b1

Verifikasi semua kasus uji.

Pyth , 20 byte

-lK.B|Q1+xKJeScK\0lJ

Verifikasi semua kasus uji.

R, 66 Bytes

function(i){a=rle(intToBits(i));max(0,a[[1]][which(a[[2]]==1)])}

Penjelasan:

function(i){
  a = rle(                  # Run-length encode
    intToBits(i)            # The bits in i
  );                        # And assign it to a.
  max(0,                    # Return the maximum of zero and
      a[[1]][               # The lengths of a,
        which(a[[2]]==1)    # But only those where the repeated bit is 1
        ])
}

Python 2 , 41 byte

f=lambda n:n/2and(n&n/2<1)+f(n&n/2or n/2)

Cobalah online!

Berdasarkan solusi ini oleh Mr. Xcoder .

Javascript, 54 karakter

f=i=>i.toString(2).split(0).sort().reverse()[0].length

• i.toString(2) mendapat string biner untuk integer.
• The .split(0)mendapat masing-masing orang bagian berurutan dalam elemen array.
• .sort().reverse() memberi kita nilai tertinggi sebagai yang pertama.
• The [0].lengthmemberi kita panjang yang nilai pertama.

Perl 5, 45 + 1 (-p)

(sprintf"%b",$_)=~/(1+)(?!.*1\1)/;$_=length$'

Jika Anda menulis ini di baris perintah sebagian besar shell, Anda mungkin harus mengetik ini sebagai:

perl -pE'(sprintf"%b",$_)=~/(1+)(?!.*1\1)/;$_=length$'"'"

Tarian kutipan di akhir hanya untuk mendapatkan perl melihat a ', yang seharusnya dikonsumsi oleh shell.

Retina , 52 43 byte

Konversikan ke biner, lalu ganti dengan panjang dari apa yang mengikuti string terbesar.

.*
$*
+`(1+)\1
$+0
01
1

$'¶
O`
A-3`
^1+

.

Coba online - semua test case

Disimpan 9 byte berkat Martin.