작업

주어진 세트

그리고 정수

N 번째 부분 집합을 찾으십시오.

입출력

N 은 stdin에서 부호없는 정수로 제공됩니다. 당신은 당신의 언어에 적합한 형식으로 N 번째의 부분 집합을 인쇄해야합니다 (이 포함 [1,2,3], {1,2,3}, [1, 2, 3], 1 2 3, 1,2,3등 오래는 사람이 읽을 수있는만큼 텍스트 형식).

서브셋에 대해 조금

기본 2의 부분 집합과 숫자 사이에는 관계가 있습니다. 각 숫자 는 세트 의 i 번째 요소가 서브 세트 내에 있는지 여부를 지정합니다 . 예를 들어 00000000 은 빈 세트이고 10000001 은 (마지막 및 첫 번째 요소)를 포함하는 서브 세트 입니다. 숫자를 밑수 2로 변환하여 N 번째 부분 집합을 얻은 다음 부분 집합에 모든 요소가 포함됩니다 . 따라서 세 번째 하위 집합 (3 = 00000011)에는가 포함 됩니다. 가장 오른쪽 숫자는 숫자 # 0입니다. 인쇄해도됩니다 . 세트를 정렬 할 필요는 없습니다.

부록 :

예, 세트는로 고정되어 1..8있습니다. 세트는 입력의 일부가 아닙니다. 입력은 단지 N 입니다.

예, 대체 입력 양식을 사용할 수 있습니다.

모든 N에 대한 모든 예상 출력 : https://tio.run/##SyotykktLixN/f/fyNS02qIoP8soJd1CwSAg2kY32LPWPaoqs7jg/38A

젤리 , 3 바이트

BUT

온라인으로 사용해보십시오!

작동 원리

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 바이트

which(intToBits(scan())>0)

온라인으로 사용해보십시오!

입력을 비트로 변환하고 위치가 1 인 인덱스를 반환합니다 TRUE. 이것은 이것을 Dennis 'Jelly 답변 의 포트로 만듭니다 .

integer(0)빈 정수 목록을 입력하여를 반환 합니다 0.

파이썬 2 , 40 바이트

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

온라인으로 사용해보십시오!

펄 6 , 33 바이트

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

온라인으로 사용해보십시오!

파이썬 2 , 42 바이트

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

온라인으로 사용해보십시오!

K4 , 7 바이트

해결책:

1+&|2\:

예:

처음 10 ...

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

설명:

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

MATLAB / 옥타브 , 31 29 27 바이트

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

• alephalpha 덕분에 2 바이트 감소

• 주세페 덕분에 2 바이트 감소

온라인으로 사용해보십시오!

apt, 7 바이트

ì2 Ôi ð

시도 해봐

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

¤¬²Ôð¥1

시도 해봐

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

껍질 , 5 바이트

`fN↔ḋ

stdin이 아닌 명령 줄 인수로 입력을 받습니다 ( 이것이 좋기를 바랍니다 ). 온라인으로 시도하십시오!

설명

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

하스켈 , 55 54 바이트

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

세트를 역순으로 출력하고 온라인으로 시도하십시오!

일반 버전, 56 바이트

$\{i\}_{i=1}^8$

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

온라인으로 사용해보십시오!

설명

이 용어 mapM (pure [0,1]) [1..n]는 목록 ( n=4)을 생성합니다 [[0,0,0,0],[0,0,0,1],[0,0,1,0],..,[1,1,1,1]]. 즉. 의 이진 표현 [0..2^n-1]. 로 인덱싱 n하면의 이진 표현이 제공 n됩니다.

이제 우리는 zip숫자를 뒤집어서 [1..n]이진수가 0이 아닌 요소 만 유지할 수 있습니다.

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

숯 , 11 바이트

↓⭆⮌↨Ｎ²×ιＩ⊕κ

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 공백없이 답을 가로로 인쇄 할 수 있으면 첫 번째 문자를 제거 할 수 있습니다. 설명:

    Ｎ       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

자바 스크립트 (ES6), 37 바이트

구분 기호가 필수 인 경우 +4 바이트이 구분 기호가 쉼표이고 선행 쉼표가 허용되는 경우
+3 바이트

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

온라인으로 사용해보십시오!

펄 6 , 21 바이트

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

온라인으로 사용해보십시오!

대안 :

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

공통 리스프, 57 바이트

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

온라인으로 사용해보십시오!

하스켈 , 33 바이트

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

온라인으로 사용해보십시오!

37 바이트

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

온라인으로 사용해보십시오!

니미의 테스트 사례.

J , 13 10 바이트

-3 bytes thanks to Bubbler

1+I.@|.@#:

온라인으로 사용해보십시오!

apt, 7 바이트

¢Ô¬ðÍmÄ

온라인 테스트

apt, 7 바이트

¤Ôð1 mÄ

온라인 테스트

C # (Visual C # 대화식 컴파일러) , 47 바이트

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

온라인으로 사용해보십시오!

독립적으로 내 것을 생각해 냈지만 Java 솔루션과 비슷하게 보입니다.

파이썬 3.6, 58 바이트

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

Wolfram Language (Mathematica) , 32 바이트

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

온라인으로 사용해보십시오!

Pari / GP , 31 바이트

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

온라인으로 사용해보십시오!

APL + WIN, 13 바이트

N에 대한 프롬프트 :

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

온라인으로 사용해보십시오! Dyalog Classic 제공

설명:

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

서브 세트를 역순으로 리턴

해 학적 인-8 바이트

8roR@j!!

온라인으로 사용해보십시오.

Oracle SQL, 77 바이트

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

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 바이트

â^mÉ┤\*─

온라인으로 사용해보십시오!

설명

â         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

대체 출력 형식

더 유연한 출력 형식 (개인적으로는 꽤 좋아 보인다고 생각합니다)을 사용하여 6 바이트를 만들 수 있습니다.

â^É┤\*

매핑 대신 암시 적 for-each를 사용하고 병합을 건너 뜁니다. 출력은 다음과 같습니다.

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

루비 , 31 바이트

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

온라인으로 사용해보십시오!

F # (모노) , 45 바이트

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

온라인으로 사용해보십시오!

나는 또한 일반 / 재귀 함수를 구현했지만 꽤 추악하고 바이트 수가 훨씬 큽니다 ...

F # (모노) , 107 바이트

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

온라인으로 사용해보십시오!

05AB1E , 6 바이트

bRSƶ0K

온라인으로 시도 하거나 가능한 모든 테스트 사례를 확인하십시오 .

설명:

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]

자바 8, 58 바이트

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

온라인으로 사용해보십시오.

설명:

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`