Giriş

Giriş, tek bir pozitif tamsayıdır. n

Çıktı

Çıkış, nen önemli biti olarak ayarlanmıştır 0.

Test Kılıfları

1 -> 0
2 -> 0
10 -> 2
16 -> 0
100 -> 36
267 -> 11
350 -> 94
500 -> 244

Örneğin: 350İkilidir 101011110. (Yani en soldaki en önemli bitin 1için bit) 0dönüşler o içine 001011110hangi ondalık tamsayı eşdeğerdir 94, çıkış. Bu OEIS A053645 .

C (gcc) , 49 44 40 39 bayt

i;f(n){for(i=1;n/i;i*=2);return n^i/2;}

Çevrimiçi deneyin!

Python 2,27 bayt

lambda n:n^2**len(bin(n))/8

Çevrimiçi deneyin!

26 bayt

Ne yazık ki, bu işe yaramazsa 1:

lambda n:int(bin(n)[3:],2)

Çevrimiçi deneyin!

05AB1E , 5 bayt

.²óo-

Çevrimiçi deneyin!

Bir tamsayıdan en önemli bit çıkarılması , N mesafeyi bulmak eşdeğerdir N yüksek tamsayıdır gücüne 2 daha düşük , N .

Böylece N - 2 ^kat formülünü kullandım ^{(log ₂ N)} :

• .²- Baz 2 ile logaritma .
• ó - Bir tamsayıya zemin.
• o- 2 , yukarıdaki sonucun gücüne yükseldi.
• - - Fark.

Jöle , 3 bayt

BḊḄ

Çevrimiçi deneyin!

açıklama

BḊḄ  Main Link
B    Convert to binary
 Ḋ   Dequeue; remove the first element
  Ḅ  Convert from binary

C (gcc) - 59 bayt

main(i){scanf("%d",&i);return i&~(1<<31-__builtin_clz(i));}

Bu gcc cevabı sadece bitsel ve aritmetik işlemleri kullanır. Burada logaritma yok! 0 girişi ile ilgili sorunları olabilir ve tamamen taşınabilir değildir.

Bu sitedeki ilk cevabım, bu yüzden geri bildirim ve iyileştirmeler yapmak isterim. Bitsel ifadeleri öğrenmekle çok eğlendim.

MATL , 8 6 bayt

B0T(XB

Çevrimiçi deneyin!

Cinaski sayesinde iki bayt kurtardı. Referans indeksleme yerine ödev indekslemeye geçiş 2 bayt daha kısa oldu :)

Açıklama:

          % Grab input implicitly: 267
B         % Convert to binary: [1 0 0 0 0 1 0 1 1]
 0T(      % Set the first value to 0: [0 0 0 0 0 1 0 1 1]
    XB    % Convert to decimal: 11

Java (OpenJDK 8) , 23 bayt

n->n^n.highestOneBit(n)

Çevrimiçi deneyin!

Üzgünüz, yerleşik: - /

Kabuğu , 3 bayt

ḋtḋ

Çevrimiçi deneyin!

Açıklama:

    -- implicit input, e.g. 350
  ḋ -- convert number to list of binary digits (TNum -> [TNum]): [1,0,1,0,1,1,1,1,0]
 t  -- remove first element: [0,1,0,1,1,1,1,0]
ḋ   -- convert list of binary digits to number ([TNum] -> TNum): 94

Ohm v2 , 3 bayt

b(ó

Çevrimiçi deneyin!

Python 2,27 bayt

lambda n:n-2**len(bin(n))/8

Çevrimiçi deneyin!

açıklama

lambda n:n-2**len(bin(n))/8  # Lambda Function: takes `n` as an argument
lambda n:                    # Declaration of Lambda Function
              len(bin(n))    # Number of bits + 2
           2**               # 2 ** this ^
                         /8  # Divide by 8 because of the extra characters in the binary representation
         n-                  # Subtract this from the original

Python 3 , 30 bayt

Caird coinheringaahing sayesinde -8 bayt. ^{Bunu bellekten yazdım. :O}

lambda n:int('0'+bin(n)[3:],2)

Çevrimiçi deneyin!

Mathematica, 37 bayt

Rest[#~IntegerDigits~2]~FromDigits~2&

Çevrimiçi deneyin!

JavaScript, 22 20 bayt

Ovs sayesinde 2 bayt kaydedildi

a=>a^1<<Math.log2(a)

Çevrimiçi deneyin!

Başka bir yaklaşım, 32 bayt

a=>'0b'+a.toString`2`.slice`1`^0

Çevrimiçi deneyin!

J, 6 bayt

}.&.#:

Oldukça basit.

açıklama

}.&.#:
    #:  convert to list of binary digits
  &.    apply right function, then left, then the inverse of right
}.      behead

APL (Dyalog) , 10 bayt

Tam önek işlevi.

2⊥1↓2∘⊥⍣¯1

Çevrimiçi deneyin!

2∘⊥… Baz-2'den kod çözme
 …… ⍣¯1 bir defa negatif (baz-2'de kodlama)

1↓ ilk biti bırak

2⊥ baz-2'den kod çözme

Ruby, 26 bayt

-7 Ventero sayesinde Bayt. Historicrat sayesinde -2 bayt.

->n{/./=~'%b'%n;$'.to_i 2}

C (gcc), 38 bayt

Dahili gcc kullanılmış.

f(c){return c^1<<31-__builtin_clz(c);}

ARM Meclisi, 46 43 bayt

(Kaynakla aynı olduğunda, hedef kayıt defterini ekleyerek ihmal edebilirsiniz)

clz x1,x0
add x1,1
lsl x0,x1
lsr x0,x1
ret

Pyth, 5 bayt

a^2sl

Test odası.

Açıklama:

    l   Log base 2 of input.
   s    Cast ^ to integer (this is the position of the most significant bit.)
 ^2     Raise 2 to ^ (get the value of said bit)
a       Subtract ^ from input

Alice , 8 bayt

./-l
o@i

Çevrimiçi deneyin!

açıklama

.   Duplicate an implicit zero at the bottom of the stack. Does nothing.
/   Switch to Ordinal mode, move SE.
i   Read all input as a string.
l   Convert to lower case (does nothing, because the input doesn't contain letters).
i   Try reading all input again, pushes an empty string.
/   Switch to Cardinal mode, move W.
.   Duplicate. Since we're in Cardinal mode, this tries to duplicate an integer.
    To get an integer, the empty string is discarded implicitly and the input is 
    converted to the integer value it represents. Therefore, at the end of this,
    we get two copies of the integer value that was input.
l   Clear lower bits. This sets all bits except the MSB to zero.
-   Subtract. By subtracting the MSB from the input, we set it to zero. We could
    also use XOR here.
/   Switch to Ordinal, move NW (and immediately reflect to SW).
o   Implicitly convert the result to a string and print it.
/   Switch to Ordinal, move S.
@   Terminate the program.

Japt , 6 bayt

^2p¢ÊÉ

Çevrimiçi deneyin!

açıklama

^2p¢ÊÉ
   ¢     Get binary form of input
    Ê    Get length of that
     É   Subtract 1
 2p      Raise 2 to the power of that
^        XOR with the input

Giriş 1başarısız olursa: 4 bayt

¢Ån2

Çevrimiçi deneyin!

Açıklama : giriş binary ( ¢) olsun , ilk char ( Å) 'ı dilimleyin , bir sayıya ( n2) geri ikili olarak ayrıştırın .

Oktav , 20 bayt

@(x)x-2^fix(log2(x))

Çevrimiçi deneyin!

APL (Dyalog Unicode) , 9 bayt

⊢-2*∘⌊2⍟⊢

Çevrimiçi deneyin!

Adam sayesinde -1 bayt

CJam , 7 bayt

{2b()b}

Çevrimiçi deneyin!

Açıklama:

{     }  Block:         267
 2b      Binary:        [1 0 0 0 0 1 0 1 1]
   (     Pop:           [0 0 0 0 1 0 1 1] 1
    )    Increment:     [0 0 0 0 1 0 1 1] 2
     b   Base convert:  11

Silmek zorunda kalmamak için MSB'yi (her zaman 1 olan) tekrar kullanın; Bu numara olmadan eşdeğer {2b1>2b}ya da olacaktır {2b(;2b}.

Retina , 15 13 bayt

^(^1|\1\1)*1

Çevrimiçi deneyin!

Tekli giriş ve çıkış (test paketi kolaylık sağlamak için onluk ve daha fazla sayıya dönüştürülebilir).

açıklama

Bu tekdüze yapmak oldukça kolaydır. Tek yapmak istediğimiz, girişteki en büyük 2 gücü silmek. Bazı ileri referanslar ile 2'nin gücünü eşleştirebiliriz. Bu formun değerleri eşleştirmek için aslında kolay 2 ⁿ -1 biz bunu ve bir maç olacak, böylece 1 ayrı:

^(^1|\1\1)*1

Grup 1tek maçları ya 1kapalı tekme şeyler başında veya buna son yineleme üzerinde yaptığımız iki kez eşleşir. Böylece eşleşir 1, o zaman 2, o zaman , 4vb. Bunlar eklendiğinden beri 1, sonunda belirlediğimiz her zaman 2 gücün bir eksikliğine sahibiz .

Sondaki satır beslemesi nedeniyle, eşleşme girişten kaldırılır.

R , 28 bayt

function(x)x-2^(log2(x)%/%1)

Çevrimiçi deneyin!

2 ^ floor(log2(x))R'de oldukça ayrıntılı olan temel dönüşümleri gerçekleştirmek yerine , en anlamlı bitini hesaplamak en kolayı

PARI / GP, 18 bayt

n->n-2^logint(n,2)

Alternatif çözüm:

n->n-2^exponent(n)

Haskell , 32 29 bayt

(!1)
x!y|2*y>x=x-y|z<-2*y=x!z

Çevrimiçi deneyin!

@Laikoni sayesinde -3 bayt

Daha eski çözüm, 32 bayt

f x=last[x-2^i|i<-[0..x],2^i<=x]

Çevrimiçi deneyin!

Excel, 20 bayt

=A1-2^INT(LOG(A1,2))

Excel, 36 31 bayt

-5 @ IanM_Matrix1 sayesinde bayt sayısı

=BIN2DEC(MID(DEC2BIN(A1),2,99))

İlginç bir şey yok.