Cel

Biorąc pod uwagę nieujemną liczbę całkowitą, utwórz funkcję, która zwraca pozycję początkową liczby największych kolejnych 1 w wartości binarnej tej liczby całkowitej.

Po otrzymaniu danych wejściowych 0powróć 0.

Jeśli liczba ma wiele pasów o równej długości, musisz zwrócić pozycję ostatniej pasma.

Wkład

Liczba całkowita większa lub równa 0.

Wydajność

Liczba całkowita obliczona jak wyjaśniono poniżej.

Zasady

• To jest golf golfowy, więc wygrywa najkrótszy kod w bajtach w każdym języku.
• Standardowe luki są zabronione.

Przykłady i przypadki testowe

Przykład 1

• Twoja funkcja ma liczbę całkowitą 142
• 142 jest równa 10001110 w systemie binarnym
• Najdłuższa seria to „111” (seria trzech)
• Smuga zaczyna się od pozycji 2 ^ 1
• Twoja funkcja zwraca 1 jako wynik

Przykład 2

• Twoja funkcja ma liczbę całkowitą 48
• 48 jest równa 110000 w systemie binarnym
• Najdłuższa seria to „11” (seria dwóch)
• Seria zaczyna się od pozycji 2 ^ 4
• Twoja funkcja zwraca 4 jako wynik

Przykład 3

• Twoja funkcja ma liczbę całkowitą 750
• 750 jest równa 1011101110 w systemie binarnym
• Najdłuższa seria to „111” (seria trzech)
• Ponieważ są dwie smugi o równej długości, zwracamy później smugę.
• Późniejsza seria rozpoczyna się od pozycji 2 ^ 5
• Twoja funkcja zwraca 5 jako wynik

Galaretka , 10 8 bajtów

Ba\ÐƤṀċ¬

Wypróbuj online!

Jak to działa

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 bajtów

Zaoszczędź 4 bajty dzięki @ThePirateBay

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

Przypadki testowe

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

W jaki sposób?

Przypadek ogólny x> 0

Rekurencyjnie ORAZ wejście x za pomocą x / 2, które stopniowo zmniejsza wzorce kolejnych ustawionych bitów, aż pozostanie tylko najbardziej prawy bit sekwencji. Przechowujemy kopię ostatniej niezerowej wartości i określamy pozycję jej najbardziej znaczącego bitu, zaokrąglając podłogę do logarytmu podstawy 2.

Poniżej znajdują się kroki, które wykonujemy dla x = 750 ( 1011101110 w systemie binarnym).

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

Przypadek krawędzi x = 0

Specjalny przypadek x = 0natychmiast prowadzi do Math.log2(0) | 0. Logarytm 0wartościowania -Infinityi binarna OR bitowa wymusza przymus na 32-bitową liczbę całkowitą. Zgodnie ze specyfikacją abstrakcyjnej operacji ToInt32 daje to oczekiwane 0:

Jeśli liczba to NaN , +0 , −0 , + ∞ lub −∞ , zwróć +0

kod maszynowy x86, 14 bajtów

Korzystanie @ algorytmu Arnauld za dnia x &= x>>1i biorąc najwyższą ustaloną pozycję bit w kroku zanim xstaje 0.

Możliwość wywołania z C / C ++ z podpisem unsigned longest_set(unsigned edi);w x86-64 System V ABI. Te same bajty kodu maszynowego będą dekodowane w ten sam sposób w trybie 32-bitowym, ale standardowe 32-bitowe konwencje wywoływania nie umieszczają pierwszego argumentu edi. (Zmiana rejestru wejściowego na ecxlub edxna Windows _fastcall/ _vectorcalllub gcc -mregparmmoże być wykonana bez zerwania czegokolwiek.)

   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

BSRInstrukcja x86 (Bit Scan Reverse) jest do tego idealna, dając nam bezpośrednio indeks bitowy, zamiast zliczać wiodące zera. ( bsrnie tworzy bezpośrednio 0 dla wejścia = 0, tak jak 32-lzcnt(x)byśmy potrzebowali, ale potrzebujemy bsr = 31-lzcnt dla niezerowych danych wejściowych, więc lzcntnawet nie zapisałbym instrukcji, nie mówiąc już o liczeniu bajtów. Zerowanie eax przed pętlą działa z powodu bsr' s półoficjalne zachowanie pozostawiania celu niezmodyfikowanego, gdy wartość wejściowa wynosi zero).

Byłoby to jeszcze krótsze, gdybyśmy mogli zwrócić pozycję MSB najdłuższego biegu. W takim przypadku lea ecx, [rdi+rdi](3 bajty) skopiuje + lewy Shift zamiast mov+ shr(4 bajty).

Zobacz ten link TIO dla dzwoniącego asm, który to robiexit(longest_set(argc-1));

Testowanie za pomocą pętli powłoki:

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

Galaretka , 19 17 11 bajtów

HÐĿ&\ḟ0ṪBL’

Wypróbuj online!

-6 (!) Bajtów dzięki bystrym obserwacjom @ Dennisa

Jak to działa

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 bajtów

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

Wypróbuj online!

Zaoszczędź mnóstwo bajtów dzięki Dennis! (Heads up len(bin(...))-3zamiast zamiast math.frexp)

Dzięki @xnor za znalezienie błędu, który na szczęście łatwo było naprawić!

Perl 6 ,45 35 bajtów

Ta wysoce ulepszona wersja udostępniona dzięki uprzejmości @nwellnhof.

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

Wypróbuj online!

Python 2 , 89 78 bajtów

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

Wypróbuj online!

EDYCJA: Oszczędź 11 bajtów dzięki Mr. Xcoder.

05AB1E , 14 12 11 bajtów

bDγàŠrkrJgα

Wypróbuj online! lub uruchom przypadki testowe .

Wyjaśnienie

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 bajtów

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

Wypróbuj online!

Wyjaśnienie

(#-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 bajtów

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

Wypróbuj online!

AC # wersja odpowiedzi @ Arnauld

Podziękowanie

4 bajty zapisane dzięki Kevin Cruijssen.

C # (.NET Core) , 131 123 + 18 = 141 bajtów

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

Wypróbuj online!

+18 bajtów dla using System.Linq;

Podziękowanie

8 bajtów zaoszczędzonych dzięki Grzegorzowi Puławskiemu.

Degolfed

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 bajtów

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

Wypróbuj online!

To nierozwiązanie Linq, które z pewnością można poprawić, choć nic nie jest od razu widoczne.

Degolfed

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
}

Łuska , 12 bajtów

→S§-€¤≠Lo▲gḋ

Wypróbuj online!

Wyjaśnienie

                 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

Galaretka ,  14 13 12  11 bajtów

Bµṣ0Ṫ$ƤMḢạL

Łącze monadyczne przyjmujące i zwracające nieujemne liczby całkowite.

Wypróbuj online! lub zobacz zestaw testowy .

W jaki sposób?

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

Galaretka , 19 bajtów

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

Wypróbuj online!

Dziękujemy Jonathanowi Allanowi za uratowanie  4  6 bajtów!

Za dużo pracowałem, żeby to porzucić, choć to trochę za długo. Naprawdę chciałem dodać rozwiązanie, które dosłownie wyszukuje najdłuższe podciągi 1w reprezentacji binarnej ...

Wyjaśnienie

BŒgḄṀB - Monadic link pomocnika. Zostanie użyty z Ç w następnym linku.

B - Reprezentacja binarna.
 --G - Grupowe serie kolejnych równych elementów.
   Ḅ - Konwertuj z binarnej na całkowitą.
    Ṁ - Maksymalna wartość.
     B - Konwertuj z liczb całkowitych na binarne.


BwÇɓÇL + ɓBL_ '- Główny link.

B - Reprezentacja binarna (wejścia).
  Ç - Ostatni link jako monada. Pobiera wejściową liczbę całkowitą.
 w - Pierwszy indeks podlisty.
   ɓ - Rozpocznij oddzielny łańcuch dyadiczny. Odwraca argumenty.
    Ç - Ostatni link jako monada.
     L - długość.
      + - Dodawanie
       ɓ - Rozpocznij oddzielny łańcuch dyadiczny. Odwraca argumenty.
        B - Binarny.
         L - długość.
          _ '- Odejmij i zwiększ wynik (ponieważ Jelly używa indeksowania 1).
              - Wyjściowy wynik.

Kotlin , 77 bajtów

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

Upiększony

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

Test

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 bajtów

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

Wypróbuj online! Zastosowanie: snd.maximum.(`zip`[0..]).c $ 142plony 1.

Wyjaśnienie:

• ckonwertuje dane wejściowe na binarne, jednocześnie licząc długość pasm jednego, zbierając wyniki na liście. r<-c$div n 2rekurencyjnie oblicza resztę rtej listy, jednocześnie sum[r!!0+1|mod n 2>0]:rdodając bieżącą długość pasma r. Zrozumienie listy sprawdza, czy mod n 2>0to znaczy, czy bieżąca cyfra binarna to jedna, a jeśli tak, bierze długość poprzedniej serii (pierwszy element r) i dodaje jedną. W przeciwnym razie zrozumienie listy jest puste i sum[]daje wynik 0. Dla przykładowego wejścia c 142zwraca listę [0,3,2,1,0,0,0,1,0].

• (`zip`[0..])dodaje pozycję do każdego elementu z poprzedniej listy jako drugi składnik krotki. Na przykład daje to [(0,0),(3,1),(2,2),(1,3),(0,4),(0,5),(0,6),(1,7),(0,8)].

• maximumznajduje leksykograficznie maksymalną krotkę na tej liście, to znaczy długości smug są uważane za pierwsze, ponieważ są one pierwszym składnikiem, aw przypadku powiązania decyduje drugi składnik, a mianowicie większy indeks. Daje to (3,1)w przykładzie i sndzwraca drugi składnik krotki.

Python 2 lub 3 , 58 bajtów

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

Wypróbuj online!

C (gcc) , 81 80 bajtów

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

Wypróbuj online!

C (gcc) , 43 bajty

Wersja AC odpowiedzi @ Arnauld

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

Wypróbuj online!

MS SQL Server, 437 426 407 398 bajtów

SQL Fiddle

Jestem pewien, że mógłbym usunąć podziały linii itp., Ale jest to tak kompaktowe, jak chciałem to zrobić:

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

Oto bardziej czytelna wersja:

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

Prawdziwa sztuczka polega na tym, że o ile mogłem znaleźć, nie ma natywnej funkcjonalności SQL do konwersji liczby z dziesiętnej na binarną. W rezultacie musiałem ręcznie zakodować konwersję do pliku binarnego, a następnie mogłem porównać to jako ciąg, jeden znak na raz, aż znajdę właściwą liczbę.

Jestem pewien, że jest lepszy sposób, aby to zrobić, ale nie widziałem (n) odpowiedzi SQL, więc pomyślałem, że ją tam wyrzucę.

APL (Dyalog Unicode) , 22 znaki = 53 bajty

Wymaga ⎕IO←0ustawienia domyślnego w wielu systemach.

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

Wypróbuj online!

⎕ monit o wprowadzenie

⊢ dochód, (wydzielane ¯1z ⎕)

2⊥⍣¯1 przekonwertować na base-2, używając tyle pozycji, ile potrzeba

b← przechować b(dla b inary)

⌽ rewers

(… ) Zaznacz pozycje początkowe następujących pozycji:

 ⊆⍨b samo-podział b(tj. 1-pasmowy b)

 ↑ mix (zmień listę list w macierz, dopełnianie zerami)

 ∨⌿ redukcja pionowa OR (daje najdłuższą smugę)

⍸ Wskaźniki pozycji początkowych

⌽ rewers

⊃ wybierz pierwszy (daje zero, jeśli nie jest dostępny)

MATL , 15 bajtów

`tt2/kZ&t]xBnq&

Wypróbuj online!

Wykorzystuje połowę i AND. Jest kto konieczne tylko po to, aby zakończyć działanie 1- z jakiegoś powodu 1 ORAZ 0,5 zwraca 1, powodując nieskończoną pętlę.

(alternatywne rozwiązanie: BtnwY'tYswb*&X>)-przez konwersję na kodowanie binarne i długość przebiegu)

Arkusze Google, 94 bajty

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

Nie, to nie jest bardzo ładne. Byłoby naprawdę miło móc przechowywać Dec2Bin(A1)jako zmienną w celach informacyjnych.

Kluczowy punkt: Podobnie jak Excel, Dec2Binfunkcja ma maksymalną wartość wejściową wynoszącą 511. Wszystko większe niż to zwraca błąd, jak pokazano poniżej.

R, 117 bajtów

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 bajtów

-10 Bajtów dzięki @EngineerToast

Anonimowa funkcja bezpośredniego okna VBE, która przenosi dane wejściowe z zakresu [A1]i wyjścia do bezpośredniego okna VBE

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

APL (Dyalog Classic) , 24 21 bajtów

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

Wypróbuj online!

Pyth , 17 bajtów

To jest funkcja rekurencyjna. Link zawiera yw celu wywołania funkcji na danym wejściu.

L|&K.&b/b2yKsl|b1

Sprawdź wszystkie przypadki testowe.

Pyth , 20 bajtów

-lK.B|Q1+xKJeScK\0lJ

Sprawdź wszystkie przypadki testowe.

R, 66 bajtów

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

Wyjaśnienie:

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 bajtów

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

Wypróbuj online!

Na podstawie tego rozwiązania autorstwa pana Xcodera .

JavaScript, 54 znaki

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

• i.toString(2) pobiera ciąg binarny dla liczby całkowitej.
• .split(0)Dostaje każdy sekwencyjną jedynek udział w elemencie tablicy.
• .sort().reverse() dostaje pierwszą najwyższą wartość.
• [0].lengthDaje nam długość tej pierwszej wartości.

Perl 5, 45 + 1 (-p)

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

Jeśli wypiszesz to w wierszu poleceń większości powłok, być może będziesz musiał wpisać to jako:

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

Taniec cytatów na końcu polega na tym, aby perl zobaczył a ', który w innym przypadku zostałby zużyty przez powłokę.

Siatkówka , 52 43 bajty

Konwertuj na binarny, a następnie zamień na długość ciągu największego z nich.

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

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

.

Wypróbuj online - wszystkie przypadki testowe

Zaoszczędź 9 bajtów dzięki Martinowi.