Mục tiêu

Cho một số nguyên không âm, tạo một hàm trả về vị trí bắt đầu của số 1 liên tiếp lớn nhất trong giá trị nhị phân của số nguyên đó.

Khi được cung cấp một đầu vào 0, trả lại 0.

Nếu số có nhiều vệt có độ dài bằng nhau, bạn phải trả về vị trí của vệt cuối cùng.

Đầu vào

Một số nguyên lớn hơn hoặc bằng 0.

Đầu ra

Một số nguyên được tính như dưới đây.

Quy tắc

• Đây là mã golf, vì vậy mã ngắn nhất tính theo byte trong mỗi ngôn ngữ sẽ thắng.
• Sơ hở tiêu chuẩn bị cấm.

Ví dụ và trường hợp thử nghiệm

ví dụ 1

• Hàm của bạn được truyền số nguyên 142
• 142 bằng 10001110 trong nhị phân
• Chuỗi dài nhất là "111" (một chuỗi ba)
• Chuỗi bắt đầu ở vị trí 2 ^ 1
• Hàm của bạn trả về 1 là kết quả

Ví dụ 2

• Hàm của bạn được truyền số nguyên 48
• 48 bằng 110000 trong nhị phân
• Chuỗi dài nhất là "11" (một vệt hai)
• Chuỗi bắt đầu ở vị trí 2 ^ 4
• Kết quả là hàm của bạn trả về 4

Ví dụ 3

• Hàm của bạn được truyền số nguyên 750
• 750 bằng 1011101110 ở dạng nhị phân
• Chuỗi dài nhất là "111" (một chuỗi ba)
• Vì có hai vệt có độ dài bằng nhau, chúng ta trả lại vệt sau.
• Chuỗi sau bắt đầu ở vị trí 2 ^ 5
• Kết quả là hàm của bạn trả về 5

Thạch , 10 8 byte

Ba\ÐƤṀċ¬

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

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

Đã lưu 4 byte nhờ @ThePirateBay

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

Các trường hợp thử nghiệm

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))

Làm sao?

Trường hợp chung x> 0

Chúng tôi đệ quy VÀ đầu vào x với x / 2 làm giảm dần các mẫu của các bit được đặt liên tiếp cho đến khi chỉ còn lại bit ngoài cùng bên phải của chuỗi. Chúng tôi giữ một bản sao của giá trị khác không cuối cùng và xác định vị trí của bit quan trọng nhất của nó bằng cách làm tròn sàn logarit cơ sở 2 của nó.

Dưới đây là các bước chúng tôi thực hiện cho x = 750 ( 1011101110 ở dạng nhị phân).

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

Trường hợp cạnh x = 0

Trường hợp đặc biệt x = 0ngay lập tức dẫn đến Math.log2(0) | 0. Logarit của các 0ước lượng -Infinityvà nhị phân bit OR buộc một sự ép buộc thành một số nguyên 32 bit. Để tuân thủ các đặc điểm kỹ thuật của hoạt động trừu tượng ToInt32 , điều này mang lại sự mong đợi 0:

Nếu số là NaN , +0 , -0 , + ∞ , hoặc -∞ , trở về 0

mã máy x86, 14 byte

Sử dụng thuật toán của @ Arnauldx &= x>>1 và lấy vị trí bit được đặt cao nhất trong bước trước khi xtrở thành 0.

Có thể gọi từ C / C ++ với chữ ký unsigned longest_set(unsigned edi);trong Hệ thống V ABI x86-64. Các byte mã máy tương tự sẽ giải mã theo cùng một cách trong chế độ 32 bit, nhưng các quy ước gọi 32 bit tiêu chuẩn không đặt đối số đầu tiên vào edi. (Thay đổi thanh ghi đầu vào thành ecxhoặc edxcho Windows _fastcall/ _vectorcallhoặc gcc -mregparmcó thể được thực hiện mà không vi phạm bất cứ điều gì.)

   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

BSRHướng dẫn của x86 (Bit Scan Reverse) là hoàn hảo cho việc này, cung cấp cho chúng tôi chỉ số bit trực tiếp, thay vì đếm các số 0 đứng đầu. ( bsrKhông trực tiếp sản xuất 0 cho input = 0 như 32-lzcnt(x)sẽ, nhưng chúng tôi cần BSR = 31 lzcnt cho phi zero-đầu vào, vì vậy lzcntthậm chí sẽ không tiết kiệm hướng dẫn, chúng ta hãy đếm byte một mình. Zeroing eax trước khi công trình vòng lặp vì bsr' hành vi bán chính thức của việc rời khỏi đích không được sửa đổi khi đầu vào bằng không.)

Điều này thậm chí sẽ ngắn hơn nếu chúng ta có thể trả lại vị trí MSB của lần chạy dài nhất. Trong trường hợp đó, lea ecx, [rdi+rdi](3 byte) sẽ sao chép + dịch chuyển sang trái thay vì mov+ shr(4 byte).

Xem liên kết TIO này cho một người gọi asm màexit(longest_set(argc-1));

Kiểm tra với một vòng lặp 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

Thạch , 19 17 11 byte

HÐĿ&\ḟ0ṪBL’

Hãy thử trực tuyến!

-6 (!) Byte nhờ các quan sát sắc sảo của @ Dennis

Làm thế nào nó hoạt động

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

Hãy thử trực tuyến!

Đã lưu rất nhiều byte nhờ Dennis! (Những người đứng đầu len(bin(...))-3thay vì math.frexp)

Cảm ơn @xnor vì đã tìm ra một lỗi, rất may là có thể dễ dàng sửa chữa!

Perl 6 ,45 35 byte

Phiên bản cải tiến cao này là lịch sự của @nwellnhof.

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

Hãy thử trực tuyến!

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

Hãy thử trực tuyến!

EDIT: Đã lưu 11 byte nhờ ông Xcoder.

05AB1E , 14 12 11 byte

bDγàŠrkrJgα

Hãy thử trực tuyến! hoặc chạy thử trường hợp .

Giải trình

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{#\\:#.~\)@#:

Hãy thử trực tuyến!

Giải trình

(#-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)

Hãy thử trực tuyến!

Phiên bản AC # của câu trả lời của @ Arnauld

Lời cảm ơn

4 byte được lưu nhờ 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;}

Hãy thử trực tuyến!

+18 byte cho using System.Linq;

Lời cảm ơn

8 byte được lưu nhờ Grzegorz Puławski.

Bị khử

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;}

Hãy thử trực tuyến!

Một Linqgiải pháp không phải là giải pháp mà tôi chắc chắn có thể được cải thiện, mặc dù không có gì rõ ràng ngay lập tức.

Bị khử

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
}

Husk , 12 byte

→S§-€¤≠Lo▲gḋ

Hãy thử trực tuyến!

Giải trình

                 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

Thạch ,  14 13 12  11 byte

Bµṣ0Ṫ$ƤMḢạL

Một liên kết đơn lấy và trả về số nguyên không âm.

Hãy thử trực tuyến! hoặc xem bộ thử nghiệm .

Làm sao?

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

Thạch , 19 byte

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

Hãy thử trực tuyến!

Cảm ơn Jonathan Allan vì đã tiết kiệm  4  6 byte!

Tôi đã làm việc quá nhiều để từ bỏ điều này, mặc dù nó khá dài. Tôi thực sự muốn thêm một giải pháp tìm kiếm chuỗi con dài nhất 1trong biểu diễn nhị phân ...

Giải trình

BŒgḄṀB - Liên kết trợ giúp đơn nguyên. Sẽ được sử dụng với trong liên kết tiếp theo.

B - Đại diện nhị phân.
 G - Nhóm chạy các phần tử bằng nhau liên tiếp.
   Ḅ - Chuyển đổi từ nhị phân sang số nguyên.
    Ṁ - Giá trị tối đa.
     B - Chuyển đổi từ số nguyên sang nhị phân.


BwÇɓÇL + BL_ '- Liên kết chính.

B - Biểu diễn nhị phân (của đầu vào).
  - Liên kết cuối cùng là một đơn nguyên. Lấy số nguyên đầu vào.
 w - Chỉ mục danh sách con đầu tiên.
   - Bắt đầu một chuỗi dyadic riêng biệt. Đảo ngược các đối số.
    - Liên kết cuối cùng là một đơn nguyên.
     L - Chiều dài.
      + - Bổ sung
       - Bắt đầu một chuỗi dyadic riêng biệt. Đảo ngược các đối số.
        B - Nhị phân.
         L - Chiều dài.
          _ '- Trừ và tăng kết quả (vì Jelly sử dụng lập chỉ mục 1).
              - Ngẫu nhiên đầu ra.

Kotlin , 77 byte

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

Làm đẹp

{
    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()!!)
}

Kiểm tra

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

Hãy thử trực tuyến! Cách sử dụng: snd.maximum.(`zip`[0..]).c $ 142sản lượng 1.

Giải trình:

• cchuyển đổi đầu vào thành nhị phân đồng thời đếm chiều dài các vệt của một, thu thập kết quả trong một danh sách. r<-c$div n 2đệ quy tính toán phần còn lại rcủa danh sách này, đồng thời sum[r!!0+1|mod n 2>0]:rthêm độ dài hiện tại của vệt vào r. Việc hiểu danh sách kiểm tra xem mod n 2>0, đó là liệu chữ số nhị phân hiện tại có phải là một hay không, và nếu vậy, sẽ lấy độ dài của vệt trước đó (phần tử đầu tiên của r) và thêm một. Nếu không, sự hiểu biết danh sách là trống rỗng, và sum[]mang lại 0. Đối với đầu vào ví dụ, c 142mang lại danh sách [0,3,2,1,0,0,0,1,0].

• (`zip`[0..])thêm vị trí cho từng thành phần của danh sách trước làm thành phần thứ hai của bộ dữ liệu. Ví dụ này cho [(0,0),(3,1),(2,2),(1,3),(0,4),(0,5),(0,6),(1,7),(0,8)].

• maximumtìm thấy bộ dữ liệu tối đa từ vựng trong danh sách này, đó là độ dài vệt được xem xét đầu tiên vì chúng là thành phần đầu tiên và trong trường hợp liên kết thành phần thứ hai, cụ thể là chỉ số lớn hơn, sẽ quyết định. Điều này mang lại (3,1)trong ví dụ và sndtrả về thành phần thứ hai của bộ dữ liệu.

Python 2 hoặc 3 , 58 byte

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

Hãy thử trực tuyến!

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;}

Hãy thử trực tuyến!

C (gcc) , 43 byte

Phiên bản AC của câu trả lời của @ Arnauld

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

Hãy thử trực tuyến!

Máy chủ MS SQL, 437 426 407 398 byte

Câu đố SQL

Tôi chắc chắn rằng tôi có thể loại bỏ ngắt dòng, v.v., nhưng điều này nhỏ gọn như tôi sẵn sàng thực hiện:

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

Đây là một phiên bản dễ đọc hơn:

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

Thủ thuật thực sự là theo như tôi có thể tìm thấy, không có chức năng SQL gốc để chuyển đổi một số từ thập phân sang nhị phân. Kết quả là, tôi phải mã hóa chuyển đổi thành nhị phân theo cách thủ công, sau đó tôi có thể so sánh đó là một chuỗi, một ký tự tại một thời điểm cho đến khi tôi tìm thấy đúng số.

Tôi chắc chắn có một cách tốt hơn để làm điều này, nhưng tôi đã không thấy câu trả lời (n) SQL, vì vậy tôi nghĩ rằng tôi sẽ ném nó ra khỏi đó.

APL (Dyalog Unicode) , 22 ký tự = 53 byte

Yêu cầu ⎕IO←0mặc định trên nhiều hệ thống.

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

Hãy thử trực tuyến!

⎕ nhắc nhở cho đầu vào

⊢ mang lại (tách ¯1từ ⎕)

2⊥⍣¯1 chuyển đổi sang cơ sở 2, sử dụng càng nhiều vị trí cần thiết

b← lưu trữ dưới dạng b(đối với b inary)

⌽ đảo ngược

(... ) đánh dấu các vị trí bắt đầu của những điều sau đây trong đó:

 ⊆⍨b tự phân vùng b(tức là các vệt 1 b)

 ↑ trộn (lập danh sách các danh sách thành ma trận, đệm với số không)

 ∨⌿ giảm OR dọc (mang lại vệt dài nhất)

⍸ thông tin về vị trí bắt đầu

⌽ đảo ngược

⊃ chọn cái đầu tiên (mang lại số 0 nếu không có sẵn)

MATL , 15 byte

`tt2/kZ&t]xBnq&

Hãy thử trực tuyến!

Sử dụng một nửa và ý tưởng AND. Điều knày chỉ cần thiết để làm cho nó chấm dứt 1- vì một số lý do, 1 VÀ 0,5 trả về 1, gây ra một vòng lặp vô hạn.

(giải pháp thay thế: BtnwY'tYswb*&X>)-bằng cách chuyển đổi sang mã hóa nhị phân và độ dài chạy)

Google Sheets, 94 byte

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

Không, nó không đẹp lắm. Thật tuyệt khi có thể lưu trữ Dec2Bin(A1)dưới dạng một biến để tham khảo.

Điểm chính: Giống như Excel, Dec2Binhàm có giá trị đầu vào tối đa là 511. Bất cứ điều gì lớn hơn sẽ trả về một lỗi, như được thấy dưới đây.

R, 117 byte

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))

VBA Excel, ₅₄ 44 byte

-10 byte nhờ @EngineerToast

Chức năng cửa sổ tức thời VBE ẩn danh nhận đầu vào từ phạm vi [A1]và đầu ra cho cửa sổ ngay lập tức VBE

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

APL (Dyalog Classic) , 24 21 byte

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

Hãy thử trực tuyến!

Bình thường , 17 byte

Đây là một hàm đệ quy. Liên kết bao gồm yđể gọi hàm trên đầu vào đã cho.

L|&K.&b/b2yKsl|b1

Xác nhận tất cả các trường hợp thử nghiệm.

Bình thường , 20 byte

-lK.B|Q1+xKJeScK\0lJ

Xác nhận tất cả các trường hợp thử nghiệm.

R, 66 byte

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

Giải trình:

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)

Hãy thử trực tuyến!

Dựa trên giải pháp này của ông Xcoder .

Javascript, 54 ký tự

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

• i.toString(2) được chuỗi nhị phân cho số nguyên.
• Các phần .split(0)được nhận từng phần trong một phần tử mảng.
• .sort().reverse() được chúng tôi giá trị cao nhất như đầu tiên.
• Việc [0].lengthcho chúng ta độ dài của giá trị đầu tiên đó.

Perl 5, 45 + 1 (-p)

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

Nếu bạn viết nó ra trên dòng lệnh của hầu hết các shell, bạn có thể phải gõ nó như sau:

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

Vũ điệu của các trích dẫn ở cuối chỉ là để perl thấy a ', nếu không sẽ bị vỏ.

Võng mạc , 52 43 byte

Chuyển đổi thành nhị phân, sau đó thay thế bằng độ dài của chuỗi sau chuỗi lớn nhất.

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

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

.

Dùng thử trực tuyến - tất cả các trường hợp thử nghiệm

Lưu được 9 byte nhờ Martin.