Завдання

Враховуючи набір

і ціле число

знайти N-му підмножину.

Введення-виведення

N задається як непідписане ціле число на stdin. Ви повинні надрукувати підмножина Nth в форматі , відповідному для вашої мови (це може включати в себе [1,2,3], {1,2,3}, [1, 2, 3], 1 2 3, і 1,2,3т.д., поки це людина читається текст формат).

Трохи про підмножини

Існує залежність між підмножинами та числами в базовій другій. Кожна цифра

Додатки:

Так, набір фіксовано на 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. Це робить портретом відповідь Дженніса Желе .

Повертає integer(0), порожній список цілих чисел, для введення 0.

Python 2 , 40 байт

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

Спробуйте в Інтернеті!

Perl 6 , 33 байти

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

Спробуйте в Інтернеті!

Python 2 , 42 байти

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

Спробуйте в Інтернеті!

К4 , 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 / Octave , 31 29 27 байт

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

• скорочено на 2 байти завдяки алефальфі

• скорочено на 2 байти завдяки Джузеппе

Спробуйте в Інтернеті!

Japt, 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]

Haskell , 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]і зберегти лише ті елементи, де двійкова цифра не дорівнює нулю:

 [ 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

JavaScript (ES6), 37 байт

+4 байти, якщо роздільник є обов’язковим
+3 байта, якщо цей роздільник є комою, і дозволена провідна кома

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

Спробуйте в Інтернеті!

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

Спробуйте в Інтернеті!

Haskell , 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.@|.@#:

Спробуйте в Інтернеті!

Japt, 7 байт

¢Ô¬ðÍmÄ

Перевірте це в Інтернеті

Japt, 7 байт

¤Ôð1 mÄ

Перевірте це в Інтернеті

C # (Visual C # Interactive Compiler) , 47 байт

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

Спробуйте в Інтернеті!

Схоже на рішення Java зараз, хоча я придумав самостійно.

Python 3.6, 58 байт

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

Мова Вольфрама (Mathematica) , 32 байти

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

Спробуйте в Інтернеті!

Парі / 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-байтний:

â^É┤\*

Замість відображення я використовую неявне для-кожного, і пропускаю вирівнювання. Вихід виглядає приблизно так:

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

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