ความท้าทาย

ได้รับการป้อนข้อมูลจำนวนเต็มxที่กลับผลของผู้มีอำนาจของทั้งสองว่าเมื่อสรุปให้1 <= x <= 255x

ตัวอย่าง

รับอินพุต:

86

โปรแกรมของคุณควรส่งออก:

64 16 4 2

การป้อนข้อมูล:

240

เอาท์พุท:

128 64 32 16

การป้อนข้อมูล:

1

เอาท์พุท:

1

การป้อนข้อมูล:

64

เอาท์พุท:

64

เอาท์พุทอาจมีค่าศูนย์ถ้ากำลังสองที่ไม่ได้อยู่ในผลรวม

ยกตัวอย่างเช่นการป้อนข้อมูลการส่งออกเดือนพฤษภาคม650 64 0 0 0 0 0 1

เกณฑ์การให้คะแนน

นี่คือรหัสกอล์ฟดังนั้นคำตอบที่สั้นที่สุดในแต่ละภาษาจะเป็นผู้ชนะ

JavaScript (ES6), 28 ไบต์

f=n=>n?[...f(n&~-n),n&-n]:[]

ลองออนไลน์!

Pure Bash , 20

echo $[2**{7..0}&$1]

ลองออนไลน์!

คำอธิบาย

          {7..0}     # Brace expansion: 7 6 5 4 3 2 1 0
       2**{7..0}     # Brace expansion: 128 64 32 16 8 4 2 1
       2**{7..0}&$1  # Brace expansion: 128&n 64&n 32&n 16&n 8&n 4&n 2&n 1&n (Bitwise AND)
     $[2**{7..0}&$1] # Arithmetic expansion
echo $[2**{7..0}&$1] # and output

เยลลี่ขนาด 4 ไบต์

-2 เนื่องจากเราอาจเอาท์พุทเลขศูนย์แทนพลังที่ไม่ได้ใช้ของ 2 :)

Ḷ2*&

ลองออนไลน์!

อย่างไร?

Ḷ2*& - Link: integer, n         e.g. 10
Ḷ    - lowered range of n            [  0,  1,  2,  3,  4,  5,  6,  7,  8,  9]
 2*  - two to the power of           [  1,  2,  4,  8, 16, 32, 64,128,256,512]
   & - bit-wise and                  [  0,  2,  0,  8,  0,  0,  0,  0,  0,  0]

เยลลี่ 6 ไบต์

BUT’2*

ลองออนไลน์!

คำอธิบาย

แต่ที่นี่เป็นคำอธิบาย (หมายเหตุ: ฉันคิดว่าเราอาจส่งออกพลังของ 2 ตัวเองและไม่มีอะไรอื่น):

BUT’2* – Monadic link. Takes a number N as input. Example: 86
B      – Convert N to binary.                              [1, 0, 1, 0, 1, 1, 0]
 U     – Reverse.                                          [0, 1, 1, 0, 1, 0, 1]
  T    – Truthy indices.                                   [2, 3, 5, 7]
   ’   – Decrement.                                        [1, 2, 4, 6]
    2* – Raise 2 to that power.                            [2, 4, 16, 64]

"พิสูจน์" ว่าทำงานอย่างถูกต้อง การแทนค่ามาตรฐานของจำนวนเต็มในฐาน 2 คือรายการ , โดยที่เช่นนั้น: ดัชนีที่นั้นเห็นได้ชัดว่าไม่มีส่วนร่วมดังนั้นเราจึงสนใจ หาเหล่านั้นว่า 1 เนื่องจากการลบจากไม่สะดวก (พลังของสองทั้งหมดมีเลขชี้กำลังของฟอร์มโดยที่คือดัชนีใด ๆ ของ$X$$\{x_1, x_2, x_3,\cdots, x_n\}$$x_i\in\{0,1\},\:\forall\:\: i\in\overline{1,n}$

Pythonขนาด 35 ไบต์

lambda n:[n&2**i for i in range(8)]

Little-endian ที่มีเลขศูนย์ที่ไม่ได้ใช้พลัง 2

ลองออนไลน์!

APL (Dyalog Extended) , 7 ไบต์^SBCS

ฟังก์ชันนำหน้าเงียบโดยไม่ระบุชื่อ ต้องใช้การจัดทำดัชนี 0 ( ⎕IO←0)

2*⍸⍢⌽⍤⊤

ลองออนไลน์!

2 สอง
* ยกกำลังของɩ ndices ที่แท้จริง ในขณะที่ ตรงกันข้าม ของ แทน binary
⍸
⍢
⌽
⍤
⊤

Sledgehammer 0.2, 3 ไบต์

⡔⡸⢣

{intLiteral[2],call[NumberExpand,2]}คลายลงไป

Sledgehammer เป็นคอมเพรสเซอร์สำหรับรหัสภาษา Wolfram โดยใช้อักษรเบรลล์เป็นหน้ารหัส ขนาดจริงของด้านบนคือ 2.75 ไบต์ แต่เนื่องจากกฎปัจจุบันเกี่ยวกับเมตาการขยายไปยังไบต์ที่ใกล้ที่สุดจะถูกนับเป็นขนาดรหัส

05AB1E , 3 ไบต์

Ýo&

พอร์ตของ@JonathanAllanคำตอบของ Jellyให้แน่ใจว่าได้ upvote เขา!

มีศูนย์ (รวมถึง - โหลดของ - ต่อท้ายศูนย์)

ลองมันออนไลน์หรือตรวจสอบกรณีทดสอบทั้งหมด

คำอธิบาย:

Ý      # Create a list in the range [0, (implicit) input]
       #  i.e. 15 → [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15]
       #  i.e. 16 → [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16]
 o     # Take 2 to the power of each value
       #  → [1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384,32768]
       #  → [1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384,32768,65536]
  &    # Bitwise-AND each value with the (implicit) input
       # 15 → [1,2,4,8,0,0,0,0,0,0,0,0,0,0,0,0]
       # 16 → [0,0,0,0,16,0,0,0,0,0,0,0,0,0,0,0,0]
       # (and output the result implicitly)

Catholiconขนาด 3 ไบต์

ṫĊŻ

ลองออนไลน์!

คำอธิบาย:

ṫ       Decompose         into the largest values where:
 Ċ               the input
  Ż       the bit count is truthy (equal to one)

ภาษา Wolfram (Mathematica)ขนาด 17 ไบต์

#~NumberExpand~2&

ลองออนไลน์!

Mathematica โจมตีอีกครั้ง

R , 27 23 ไบต์

bitwAnd(scan(),2^(7:0))

ลองออนไลน์!

รหัสที่ไม่ได้ควบคุมและคำอธิบาย:

A = scan()         # get input number A from stdin
                   # e.g. A = 65

bitwAnd( A , 2^(7:0))  # bitwise AND between all powers of 2 : 2^7 ... 2^0 and A
                       # and implicitly print the result
                       # e.g. B = bitwAnd(65, c(128,64,32,16,8,4,2,1)) = c(0,64,0,0,0,0,0,1)

• 4 ไบต์ต้องขอบคุณ @Kirill L.

C # (Visual C # Interactive คอมไพเลอร์) , 29 ไบต์

มี 5 อักขระที่ไม่สามารถพิมพ์ได้

n=>"€@ ".Select(a=>a&n)

คำอธิบาย

//Lambda taking one parameter 'n'
n=>
//String with ASCII characters 128, 64, 32, 16, 8, 4, 2, and 1
"€@ "
//Iterate through all the chars of the above string and transform them to
.Select(a=>
//A bitwise AND operation between the integer value of the current char and the input value
a&n)

ลองออนไลน์!

C # (Visual C # Interactive คอมไพเลอร์) , 38 ไบต์

x=>{for(int y=8;y-->0;Print(x&1<<y));}

ลองออนไลน์!

C (gcc) , 39 ไบต์

f(n){for(;n;n&=n-1)printf("%d ",n&-n);}

ลองออนไลน์!

05AB1E, 7 ไบต์

2вRƶ<oò

คำอธิบาย:

2в        convert input to binary array
R         reverse array
ƶ<        multiply each item by it's index and subtract 1
oò        2^item then round down

ลองออนไลน์!

Haskell , 29 ไบต์

(mapM(\n->[0,2^n])[7,6..0]!!)

ลองออนไลน์!

Ruby , 25 ไบต์

->n{8.times{|i|p n&2**i}}

ลองออนไลน์!

C (เสียงดังกราว) , 133 110 63 58 ไบต์

58 ไบต์วิธีการแก้ปัญหาต้องขอบคุณ @ceilingcat

x=256;main(y){for(scanf("%d",&y);x/=2;)printf("%d ",y&x);}

ลองออนไลน์!

MATL , 5 ไบต์

BPfqW

ลองออนไลน์!

คำอธิบาย

พิจารณาการป้อนข้อมูล86เป็นตัวอย่าง

B    % Implicit input. Convert to binary (highest to lowest digits)
     % STACK: [1 0 1 0 1 1 0]
P    % Flip
     % STACK: [0 1 1 0 1 0 1]
f    % Find: indices of nonzeros (1-based)
     % STACK: [2 3 5 7]
q    % Subtract 1, element-wise
     % STACK: [1 2 4 6]
W    % Exponential with base 2, element-wise. Implicit display
     % STACK: [2 4 16 64]

Perl 6 , 16 12 ไบต์

-4 ไบต์ขอบคุณ Jonathan Allan

*+&2**all ^8

ลองออนไลน์!

ส่งคืน All Junction ด้วย 8 องค์ประกอบ นี่เป็นวิธีที่ค่อนข้างไม่ได้มาตรฐานในการส่งคืน แต่โดยทั่วไป Junctions สามารถทำตามคำสั่ง (อย่างน้อยก็จนกว่าจะมีการใช้การเติมข้อความอัตโนมัติ) และสามารถดึงค่าจากหนึ่ง

คำอธิบาย:

*+&              # Bitwise AND the input with
   2**           # 2 raised to the power of
      all ^8     # All of the range 0 to 7

Japt, 8 5 ไบต์

Æ&2pX

ลองมัน

Æ&2pX     :Implicit input of integer U
Æ         :Map each X in the range [0,U)
 &        :  Bitwise AND of U with
  2pX     :  2 to the power of X

ทางเลือก

แนะนำโดยOliverเพื่อหลีกเลี่ยง0s ในเอาต์พุตโดยใช้-mfแฟล็ก

N&2pU

ลองมัน

N&2pU     :Implicitly map each U in the range [0,input)
N         :The (singleton) array of inputs
 &        :Bitwise AND with
  2pX     :2 to the power of U
          :Implicitly filter and output

05AB1E , 9 ไบต์

Ýoʒ›}æʒOQ

ลองออนไลน์!

สิ่งนี้ถูกต้องสำหรับ 6 ไบต์ด้วย แต่ก็ไม่เสร็จทันเวลาใน TIO สำหรับ 86:

05AB1E , 6 ไบต์

ÝoæʒOQ

ลองออนไลน์!

Julia 0.6 , 13 ไบต์

n->n&2.^(0:7)

ลองออนไลน์!

CJam , 12 ไบต์

{:T{2\#T&}%}

ลองออนไลน์!

K (oK) , 19 16 ไบต์

-3 ไบต์ด้วย ngn!

{*/x#2}'&|(8#2)\

ลองออนไลน์!

oK ไม่มีpowerโอเปอเรเตอร์นั่นคือสาเหตุที่ฉันต้องการฟังก์ชันตัวช่วย{*/x#2}(คัดลอก 2 xครั้งและลดรายการผลลัพธ์ด้วยการคูณ)

นักเล่นแร่แปรธาตุ 125 ไบต์

_->In_x+128a+m
m+x+a->m+b
m+0x+a->n+a
m+0a->o+Out_b+Out_" "
n+b->n+x+c
n+0b+a->n+c
n+0a->p
o+b->o+c
o+0b->p
p+2c->p+a
p+0c->m

ลองออนไลน์! หรือทดสอบทุกอินพุต!

คำอธิบาย

_->In_x+128a+m           # Initialize universe with input, 128a (value to compare to) and m (state)
m+x+a->m+b               # If c has been halved, subtract min(a, x) from a and x and put its value into b
m+0x+a->n+a              # If x < a, continue to state n
m+0a->o+Out_b+Out_" "    # Else print and continue to state o
n+b->n+x+c               # Add min(a, x) (i.e. x) back to x, and add it to c (we're collecting a back into c)
n+0b+a->n+c              # Then, add the rest of a to c
n+0a->p                  # Then, go to state p
o+b->o+c                 # Add min(a, x) (i.e. a) to c - x _is_ greater than a and so contains it in its binary representation, so we're not adding back to x
o+0b->p                  # Then, go to state p
p+2c->p+a                # Halve c into a
p+0c->m                  # Then go to state m

PHP ,41 39 ไบต์

for($c=256;$c>>=1;)echo$argv[1]&$c,' ';

ลองออนไลน์!

หรือ38 ที่ไม่มี>>=โอเปอเรเตอร์ที่สนุกและ PHP 5.6+:

for($x=8;$x--;)echo$argv[1]&2**$x,' ';

หรือ36 ที่มีเอาท์พุตน้อย ("0 2 4 0 16 0 64 0"):

while($x<8)echo$argv[1]&2**$x++,' ';

จริงๆฉันแค่อยากจะใช้>>=ประกอบการดังนั้นฉันติดกับ39

แบบทดสอบ:

$php pow2.php 86
0 64 0 16 0 4 2 0

$php pow2.php 240
128 64 32 16 0 0 0 0

$php pow2.php 1
0 0 0 0 0 0 0 1

$php pow2.php 64
0 64 0 0 0 0 0 0

$php pow2.php 65
0 64 0 0 0 0 0 1

TSQL, 43 39 ไบต์

ไม่พบโซลูชันแฟนซีที่สั้นกว่าดังนั้นนี่คือลูปมาตรฐาน -4 ไบต์ขอบคุณ MickyT และ KirillL

DECLARE @y int=255

,@ int=128s:PRINT @y&@ SET @/=2IF @>0GOTO s

ลองดู

Python 2 , 43 40 ไบต์

f=lambda n,p=1:n/p*[1]and f(n,p*2)+[p&n]

ลองออนไลน์!

C # (Visual C # Interactive Compiler), 33 ไบต์

n=>{for(;n>0;n&=n-1)Print(n&-n);}

คำตอบของ JavaScript (ES6)ของพอร์ตของ@Arnauld ดังนั้นอย่าลืมอัปเกรดเขา!

ลองออนไลน์

คำอธิบาย:

n=>{            // Method with integer parameter and no return-type
  for(;n>0      //  Continue looping as long as `n` is larger than 0:
      ;         //    After every iteration:
       n&=n-1)  //     Bitwise-AND `n` by `n-1`
    Print(      //   Print with trailing newline:
      n&-n);}   //    `n` bitwise-AND `-n`