Вхідні дані

Вхід є єдиним натуральним числом n

Вихід

Вихід має nнайзначніший біт 0.

Випробування

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

Наприклад: 350у двійковій є 101011110. Встановлення його найбільш значущого біта (тобто крайнього лівого 1біта) 0перетворює його в 001011110який еквівалентний десятковому цілому числу 94. Це OEIS A053645 .

C (gcc) , 49 44 40 39 байт

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

Спробуйте в Інтернеті!

Python 2 , 27 байт

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

Спробуйте в Інтернеті!

26 байт

На жаль, це не працює для 1:

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

Спробуйте в Інтернеті!

05AB1E , 5 байт

.²óo-

Спробуйте в Інтернеті!

Видалення найбільш значимий біт з цілих чисел N еквівалентно знаходженню відстані від N до найвищого цілій степені 2 нижче , ніж N .

Таким чином, я використав формулу N - 2 ^{поверх (log ₂ N)} :

• .²- Логарифм із основою 2 .
• ó - Поверх до цілого числа.
• o- 2 підняті до сили результату вище.
• - - Різниця.

Желе , 3 байти

BḊḄ

Спробуйте в Інтернеті!

Пояснення

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

C (gcc) - 59 байт

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

Ця відповідь gcc використовує лише цілі побітові та арифметичні операції. Тут немає логарифмів! У нього можуть виникнути проблеми із входом 0, і він є абсолютно не портативним.

Це моя перша відповідь на цьому сайті, тому я хотів би отримати відгуки та вдосконалення. Я впевнено розважався з навчанням розрядних виразів.

MATL , 8 6 байт

B0T(XB

Спробуйте в Інтернеті!

Збережено два байти завдяки Cinaski. Перехід на індексацію призначення замість опорної індексації був на 2 байти коротшим :)

Пояснення:

          % 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 байти

n->n^n.highestOneBit(n)

Спробуйте в Інтернеті!

Вибачте, вбудований: - /

Лушпиння , 3 байти

ḋtḋ

Спробуйте в Інтернеті!

Пояснення:

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

Ом v2 , 3 байти

b(ó

Спробуйте в Інтернеті!

Python 2 , 27 байт

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

Спробуйте в Інтернеті!

Пояснення

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 байт

-8 байт завдяки співпраці у співтоваристві. ^{Я набрав це з пам'яті. : o}

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

Спробуйте в Інтернеті!

Математика, 37 байт

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

Спробуйте в Інтернеті!

JavaScript, 22 20 байт

Збережено 2 байти завдяки ов

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

Спробуйте в Інтернеті!

Ще один підхід, 32 байти

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

Спробуйте в Інтернеті!

J, 6 байт

}.&.#:

Досить просто.

Пояснення

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

APL (Dyalog) , 10 байт

Мовчазна префіксальна функція.

2⊥1↓2∘⊥⍣¯1

Спробуйте в Інтернеті!

2∘⊥... розшифровує з бази-2 ...
 ... ⍣¯1 негативний момент один (тобто закодувати в базі-2)

1↓ киньте перший шматочок

2⊥ декодування з бази-2

Рубін, 26 байт

-7 байт завдяки Вентеро. -2 байти завдяки Historrat.

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

C (gcc), 38 байт

Використовуваний вбудований gcc.

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

Збірка АРМ, 46 43 байт

(Ви можете опустити реєстр призначення при додаванні, коли такий же, як джерело)

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

Pyth, 5 байт

a^2sl

Тестовий набір.

Пояснення:

    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

Аліса , 8 байт

./-l
o@i

Спробуйте в Інтернеті!

Пояснення

.   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 байт

^2p¢ÊÉ

Спробуйте в Інтернеті!

Пояснення

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

Якщо введення 1не може: 4 байти

¢Ån2

Спробуйте в Інтернеті!

Пояснення : отримати вхідний бінарний ( ¢), відрізати перший char ( Å), проаналізувати як двійковий назад до числа ( n2).

Октава , 20 байт

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

Спробуйте в Інтернеті!

APL (Dyalog Unicode) , 9 байт

⊢-2*∘⌊2⍟⊢

Спробуйте в Інтернеті!

-1 байт завдяки Адамові

CJam , 7 байт

{2b()b}

Спробуйте в Інтернеті!

Пояснення:

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

Використовуйте повторно MSB (який завжди 1), щоб уникнути необхідності його видалення; еквівалент без цього фокусу був би {2b1>2b}або {2b(;2b}.

Сітківка , 15 13 байт

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

Спробуйте в Інтернеті!

Введення та виведення не одинаково (тестовий набір включає перетворення з та в десяткові для зручності).

Пояснення

Це зробити досить просто в одинарному режимі. Все, що ми хочемо зробити, - це видалити найбільшу потужність 2 із входу. Ми можемо порівняти потужність 2 з деякими прямими посиланнями. Насправді простіше зіставити значення форми 2 ⁿ -1 , тому ми зробимо це і порівняємо один 1 окремо:

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

Група 1або 1на початку поєднується з синглом, щоб розпочати щось, або вдвічі збігається з тим, що було зроблено в останній ітерації. Так воно співпадає 1, потім 2, потім 4і так далі. Оскільки вони додаються, у нас завжди не вистачає потужності 2, яку ми фіксуємо 1в кінці.

У зв'язку із зворотним подачею лінії, сірник просто видаляється із вхідних даних.

R , 28 байт

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

Спробуйте в Інтернеті!

Найпростіше обчислити найзначніший біт за допомогою, 2 ^ floor(log2(x))а не здійснити базові перетворення, які є досить багатослівними в R

PARI / GP, 18 байт

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

Альтернативне рішення:

n->n-2^exponent(n)

Haskell , 32 29 байт

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

Спробуйте в Інтернеті!

-3 байти завдяки @Laikoni

Старіше рішення, 32 байти

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

Спробуйте в Інтернеті!

Excel, 20 байт

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

Excel, 36 31 байт

-5 байт завдяки @ IanM_Matrix1

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

Нічого цікавого.