入力

入力は単一の正の整数です n

出力

出力のn最上位ビットはに設定されてい0ます。

テストケース

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

たとえば350、バイナリでは101011110です。その最上位ビット（すなわち、左端の設定1にビットを）0それが変身00101111010進数に相当する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 ^{floor（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バイト節約されました。参照インデックスの代わりに割り当てインデックスに切り替えると、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

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

オンラインでお試しください！

Mathematica、37バイト

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

オンラインでお試しください！

JavaScript、22 20バイト

ovsのおかげで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∘⊥…base-2からデコード
 …… ⍣¯1 負の1回（つまりbase-2でエンコード）

1↓ 最初のビットを落とす

2⊥ base-2からデコード

ルビー、26バイト

-7バイトはVenteroのおかげです。-historyratのおかげで2バイト。

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

C（gcc）、38バイト

組み込みのgccが使用されます。

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

ARMアセンブリ、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

オンラインでお試しください！

説明：入力バイナリー（¢）を取得し、最初の文字（Å）を切り取り、バイナリーとして解析して数値（n2）に戻します。

オクターブ、20バイト

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

オンラインでお試しください！

APL（Dyalog Unicode）、9バイト

⊢-2*∘⌊2⍟⊢

オンラインでお試しください！

Adamのおかげで-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

オンラインでお試しください！

単項の入出力（テストスイートには便宜上、10進数から10進数への変換が含まれています）。

説明

これは単項式で非常に簡単です。必要なのは、入力から最大の2のべき乗を削除することだけです。2のべき乗といくつかの前方参照を一致させることができます。実際には2 ⁿ -1の形式の値を照合する方が簡単なので、それを行い、1を個別に照合します。

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

グループは、最初に11つと一致して1物事を開始するか、最後の反復で2回一致します。それが一致するように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

オンラインでお試しください！

@Laikoniのおかげで-3バイト

古いソリューション、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))

面白くも何とも。