อินพุต

อินพุตเป็นจำนวนเต็มบวกเดียว n

เอาท์พุต

เอาท์พุทเป็นชุดบิตมากที่สุดอย่างมีนัยสำคัญn0

กรณีทดสอบ

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 ^{ชั้น (บันทึก₂ 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)

ลองออนไลน์!

ขออภัยในตัว: - /

Husk ขนาด 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 ไบต์ขอบคุณ caird coinheringaahing ^{ฉันพิมพ์จากหน่วยความจำ : o}

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

ลองออนไลน์!

Mathematica ขนาด 37 ไบต์

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

ลองออนไลน์!

จาวาสคริปต์, 22 20 ไบต์

บันทึก 2 ไบต์ขอบคุณovs

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 ไบต์

ฟังก์ชั่นนำหน้า Tacit

2⊥1↓2∘⊥⍣¯1

ลองออนไลน์!

2∘⊥... ถอดรหัสจากฐาน-2 ...
 ... ⍣¯1 ครั้งหนึ่งในเชิงลบ (เช่นการเข้ารหัสในฐาน 2)

1↓ ปล่อยบิตแรก

2⊥ ถอดรหัสจากฐาน -2

ทับทิมขนาด 26 ไบต์

-7 ไบต์ขอบคุณ Ventero -2 ไบต์ขอบคุณสำหรับ historicalrat

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

Japtap , 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 15ไบต์

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

ลองออนไลน์!

อินพุทและเอาท์พุทเป็นเอกภาพ (ชุดทดสอบประกอบด้วยการแปลงจากและเป็นทศนิยมเพื่อความสะดวก)

คำอธิบาย

มันค่อนข้างง่ายที่จะทำใน unary สิ่งที่เราต้องการทำคือลบกำลังที่ใหญ่ที่สุด 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))

ไม่มีอะไรน่าสนใจ.