Nhiệm vụ

Đưa ra bộ

và một số nguyên

tìm tập con Nth.

Đầu ra đầu vào

N được cho dưới dạng một số nguyên không dấu trên stdin. Bạn phải in các tập hợp con thứ N trong một định dạng thích hợp cho ngôn ngữ của bạn (điều này có thể bao gồm [1,2,3], {1,2,3}, [1, 2, 3], 1 2 3, 1,2,3vv cho miễn là nó là một người đọc được văn bản định dạng).

Một chút về tập con

Có một mối quan hệ giữa các tập con và số trong cơ sở hai. Mỗi chữ số

Phụ lục:

Có, bộ được cố định 1..8. Bộ này không phải là một phần của đầu vào. Đầu vào chỉ là N .

Có, bạn có thể sử dụng các hình thức đầu vào thay thế.

Tất cả các kết quả đầu ra dự kiến ​​cho tất cả N : https://tio.run/##SyotykktLixN/f/fyNS02qIoP8soJd1CwSAg2kY32LPWPaoqs7jg/38A

Thạch , 3 byte

BUT

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

BUT  Main link. Argument: n

B    Binary; convert n to base 2.
 U   Upend; reverse the resulting array, so it starts with the LSB.
  T  Truth; find all 1-based indices of set bits.

R , 52 26 byte

which(intToBits(scan())>0)

Hãy thử trực tuyến!

Chuyển đổi đầu vào thành các bit của nó và trả về các chỉ số dựa trên 1 về vị trí của chúng TRUE. Điều đó làm cho đây là một cảng của câu trả lời Dennis 'Jelly .

Trả về integer(0), danh sách số nguyên trống, cho đầu vào của 0.

Python 2 , 40 byte

lambda x:[i+1for i in range(8)if x>>i&1]

Hãy thử trực tuyến!

Perl 6 , 33 byte

(1..*Zxx*.base(2).flip.comb).flat

Hãy thử trực tuyến!

Python 2 , 42 byte

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

Hãy thử trực tuyến!

K4 , 7 byte

Giải pháp:

1+&|2\:

Thí dụ:

10 ...

q)k)(1+&|2\:)@'!10
`long$()
,1
,2
1 2
,3
1 3
2 3
1 2 3
,4
1 4

Giải trình:

1+&|2\: / the solution
    2\: / convert to base-2
   |    / reverse
  &     / indices where true
1+      / add 1

MATLAB / Octave , 31 29 27 byte

@(n)9-find(dec2bin(n,8)-48)

• giảm 2 byte nhờ alephalpha

• giảm 2 byte nhờ Giuseppe

Hãy thử trực tuyến!

Japt, 7 byte

ì2 Ôi ð

Thử nó

ì2          :Convert to base-2 digit array
   Ô        :Reverse
    i       :Prepend null element
      ð     :0-based indices of truthy elements

¤¬²Ôð¥1

Thử nó

¤           :Convert to base-2 string
 ¬          :Split
  ²         :Push 2
   Ô        :Reverse
    ð       :0-based indices of elements
     ¥1     :  Equal to 1

Husk , 5 byte

`fN↔ḋ

Đưa đầu vào là đối số dòng lệnh không có trên stdin ( Tôi hy vọng điều này ổn ), hãy thử trực tuyến!

Giải trình

`fN↔ḋ  -- example input: 6
    ḋ  -- convert to binary: [1,1,0]
   ↔   -- reverse: [0,1,1]
`      -- flip the arguments of
 fN    -- | filter the natural numbers by another list
       -- : [2,3]

Haskell , 55 54 byte

s n=[x|(x,d)<-zip[8,7..]$mapM(pure[0,1])[1..8]!!n,d>0]

Xuất ra các thiết lập theo thứ tự đảo ngược, thử trực tuyến!

Phiên bản chung, 56 byte

Điều này sẽ làm việc cho các bộ lớn hơn $\{i\}_{i=1}^8$:

s n=[x|(x,d)<-zip[n,n-1..]$mapM(pure[0,1])[1..n]!!n,d>0]

Hãy thử trực tuyến!

Giải trình

Thuật ngữ mapM (pure [0,1]) [1..n]tạo danh sách ( n=4) [[0,0,0,0],[0,0,0,1],[0,0,1,0],..,[1,1,1,1]]- tức là. các đại diện nhị phân của [0..2^n-1]. Lập chỉ mục vào nó nmang lại cho chúng ta biểu diễn nhị phân củan .

Bây giờ chúng ta có thể chỉ zipnó với các số đảo ngược [1..n]và chỉ giữ các phần tử trong đó chữ số nhị phân khác không:

 [ x | (x,digit) <- zip [n,n-1,..1] binaryRepN, digit > 0 ]

Than , 11 byte

↓⭆⮌↨Ｎ²×ιＩ⊕κ

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Nếu in câu trả lời theo chiều ngang mà không có khoảng trắng được chấp nhận thì ký tự đầu tiên có thể được loại bỏ. Giải trình:

    Ｎ       Input as a number
   ↨        Converted to base
     ²      Literal 2
  ⮌         Reversed
 ⭆          Map over bits and join
          κ Current index (0-indexed)
         ⊕  Incremented
        Ｉ   Cast to string
       ι    Current bit
      ×     Repeat string
↓           Print vertically

JavaScript (ES6), 37 byte

+4 byte nếu dấu phân cách là bắt buộc
+3 byte nếu dấu tách này là dấu phẩy và dấu phẩy dẫn đầu được cho phép

f=(n,i=1)=>n?(n&1?i:'')+f(n/2,i+1):''

Hãy thử trực tuyến!

Perl 6 , 21 byte

{1 X+grep $_+>*%2,^8}

Hãy thử trực tuyến!

Thay thế:

{grep $_*2+>*%2,1..8}

Lisp thông thường, 57 byte

(lambda(x)(dotimes(i 7)(format(logbitp i x)"~a "(1+ i))))

Hãy thử trực tuyến!

Haskell , 33 byte

s n=[x+1|x<-[0..7],odd$div n$2^x]

Hãy thử trực tuyến!

37 byte

concat.(mapM(\i->[[],[i]])[8,7..1]!!)

Hãy thử trực tuyến!

Các trường hợp thử nghiệm từ nimi.

J , 13 10 byte

-3 bytes thanks to Bubbler

1+I.@|.@#:

Hãy thử trực tuyến!

Japt, 7 byte

¢Ô¬ðÍmÄ

Kiểm tra trực tuyến

Japt, 7 byte

¤Ôð1 mÄ

Kiểm tra trực tuyến

C # (Trình biên dịch tương tác Visual C #) , 47 byte

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

Hãy thử trực tuyến!

Trông tương tự như giải pháp Java bây giờ, mặc dù tôi đã tự mình nghĩ ra.

Python 3.6, 58 byte

f=lambda n:[8-v for v,i in enumerate(f'{n:08b}')if int(i)]

Ngôn ngữ Wolfram (Mathicala) , 32 byte

Pick[r=Range@8,BitGet[#,r-1],1]&

Hãy thử trực tuyến!

Pari / GP , 31 byte

n->[x|x<-[1..8],bittest(n,x-1)]

Hãy thử trực tuyến!

APL + THẮNG, 13 byte

Lời nhắc cho N:

((8⍴2)⊤⎕)/⌽⍳8

Hãy thử trực tuyến! Lịch sự của Dyalog Classic

Giải trình:

((8⍴2)⊤⎕) prompt for N and convert to binary

/⌽⍳8 generate a vector from 1 to 8, reverse and select integers according to 1s in binary

Trả về tập hợp con theo thứ tự ngược lại

Burlesque - 8 byte

8roR@j!!

Hãy thử trực tuyến.

Oracle SQL, 77 byte

select*from(select rownum r,value(p)from t,table(powermultiset(x))p)where:n=r

Kiểm tra SQL Plus

SQL> var n number
SQL> exec :n:=67;

PL/SQL procedure successfully completed.

SQL> with t as (select ku$_vcnt(1,2,3,4,5,6,7,8) x from dual)
  2  select*from(select rownum r,value(p)from t,table(powermultiset(x))p)where:n=r
  3  /
        67
KU$_VCNT('1', '2', '7')

MathGolf , 8 byte

â^mÉ┤\*─

Hãy thử trực tuyến!

Giải trình

â         Convert first input to binary list
 ^        Zip with [1,2,3,4,5,6,7,8] (other input)
  mÉ      Map 2D array using the next 3 instuctions
    ┤     Pop from right of array
     \*   Swap top two elements and repeat array either 0 or 1 times
       ─  Flatten to 1D array

Định dạng đầu ra thay thế

Với định dạng đầu ra linh hoạt hơn (mà cá nhân tôi nghĩ trông khá tốt) tôi có thể đưa ra một 6 -terter:

â^É┤\*

Thay vì ánh xạ, tôi sử dụng ẩn cho mỗi, và tôi bỏ qua việc làm phẳng. Đầu ra trông như thế này:

[1][2][][4][5][6][7][]

Ruby , 31 byte

->n{n.times{|a|n[a]>0&&p(-~a)}}

Hãy thử trực tuyến!

F # (Mono) , 45 byte

let m x=Seq.where(fun y->x>>>y-1&&&1>0)[1..8]

Hãy thử trực tuyến!

Tôi cũng đã thực hiện một hàm chung / đệ quy, nhưng nó khá xấu và số byte lớn hơn rất nhiều ...

F # (Mono) , 107 byte

let rec g y i=
 if y>0 then seq{
  if y%2>0 then yield i
  yield!g(y/2)(i+1)
 }else Seq.empty
let f x=g x 1

Hãy thử trực tuyến!

05AB1E , 6 byte

bRSƶ0K

Hãy thử trực tuyến hoặc xác minh tất cả các trường hợp thử nghiệm có thể .

Giải trình:

b         # Convert the (implicit) integer input to binary
          #  i.e. 22 → "10110"
 R        # Reverse it
          #  i.e. "10110" → "01101"
  S       # Convert it to a list of 0s and 1s
          #  i.e. "01101" → ["0","1","1","0","1"]
   ƶ      # Multiply each with its 1-indexed index
          #  i.e. ["0","1","1","0","1"] → [0,2,3,0,5]
    0K    # Remove all 0s (and output implicitly)
          #  i.e. [0,2,3,0,5] → [2,3,5]

Java 8, 58 byte

n->{for(int i=0;i<8;)if((1&n>>i++)>0)System.out.print(i);}

Hãy thử trực tuyến.

Giải trình:

n->{                        // Method with integer as parameter and no return-type
  for(int i=0;i<8;)         //  Loop `i` in the range [0,8):
    if((1&n>>i++)>0)        //   If 1 AND `n` bitwise right-shifted to `i` is larger than 0
                            //   (with `i` increased by 1 afterwards with `i++`)
      System.out.print(i);} //    Print `i+1`