एक सेट की नौवीं सबसेट

Question

काम

सेट दिया

$$S = \left[{1,2,3,4,5,6,7,8}\right]$$

और एक पूर्णांक

$$0 \leq N < 2^{|S|}$$

Nth सबसेट खोजें।

इनपुट आउटपुट

N को stdin पर अहस्ताक्षरित पूर्णांक के रूप में दिया जाता है। आप अपनी भाषा के लिए उपयुक्त एक प्रारूप में वां सबसेट मुद्रित चाहिए (इसमें शामिल हो सकते हैं [1,2,3], {1,2,3}, [1, 2, 3], 1 2 3, 1,2,3आदि जब तक यह एक मानव पठनीय है के रूप में के लिए पाठ प्रारूप)।

थोड़ा सा सबटेट्स के बारे में

आधार दो में सबसेट और संख्याओं के बीच एक संबंध है। प्रत्येक अंक निर्दिष्ट करता है कि क्या सेट का i th तत्व सबसेट के भीतर है। उदाहरण के लिए 00000000 खाली सेट होगा और 10000001 वाला सबसेट (अंतिम और पहला तत्व) है। आप संख्या 2 को आधार 2 में परिवर्तित करके Nth सब्मिट प्राप्त करते हैं और फिर सब्मिट में वे सभी तत्व शामिल होते हैं जहाँ d i > 0 होता है । इस प्रकार 3 सबसेट (3 = 00000011) शामिल है । सबसे सही अंक # 0 अंक है। छापना ठीक है । सेट को क्रमबद्ध नहीं करना है।

$$d_{i}$$ [1,8] $$d_{i} > 0$$ [1,2][2,1]

परिशिष्टों:

हां, सेट तय है 1..8। सेट इनपुट का हिस्सा नहीं है। इनपुट सिर्फ N है ।

हां, आप वैकल्पिक इनपुट फ़ॉर्म का उपयोग कर सकते हैं।

सभी एन के लिए सभी अपेक्षित आउटपुट : https://tio.run/##SyotykktLixN/f/fyNS02qIoP8soJd1CwSAg2kY32LPWPPqqb7jg/38A

Comments

सेट विशेष रूप 1से है 8, या यह कोई सेट है?

— जो राजा

मुझे आश्चर्य नहीं है कि पहले किसी ने भी नहीं पूछा: क्या आप ऐसे कार्यों को प्रस्तुत करने की अनुमति देने के लिए दयालु होंगे जो इनपुट को तर्क के रूप में लेते हैं और भाषाओं को स्टडिन का उपयोग करने के लिए मजबूर नहीं करते हैं (जो कुछ करने में सक्षम नहीं हैं)? सवाल सबसेट्स के बारे में है और इनपुट्स के साथ नहीं।

— ბიმო

आपको हर किसी को यह बताने की ज़रूरत नहीं है कि उनका समाधान सही है या नहीं, यह बताने के लिए आप खुद को सीमित कर सकते हैं।

— '14

चूँकि सेट 1..8 तक सीमित है , जैसे कि आउटपुट "123"असंदिग्ध होगा। क्या यह मान्य है?

— अरनौलद

क्या हम [1,8] के बजाय 0-अनुक्रमित [0,7] का उपयोग कर सकते हैं?

— निकोलग्राफ

Answer 1

जेली , 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.

Comments

लेकिन, लेकिन, लेकिन ...?

— अरनौलद

@ अरनल्ड बट्ट सब कुछ एक झूठ है! आपको लगता है कि सब कुछ बाइनरी है, एह? खैर ... कि upended सत्य है! तो, नहीं, सब कुछ द्विआधारी नहीं है। ग्रे क्षेत्र में आपका स्वागत है!

— निकोलगर्फ़

Answer 2

आर , 52 26 बाइट्स

which(intToBits(scan())>0)

इसे ऑनलाइन आज़माएं!

इनपुट को उसके बिट्स में रूपांतरित करता है और 1-आधारित सूचकांकों को लौटाता है जहां वे हैं TRUE। यह डेनिस के जेली जवाब का एक बंदरगाह बनाता है ।

रिटर्न integer(0), पूर्णांक की खाली सूची, इनपुट के लिए 0।

Comments

हालांकि इस उत्तर में कोई IFs, ANDs या BUTs नहीं हैं।

— एनएमसी

Answer 3

पायथन 2 , 40 बाइट्स

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

इसे ऑनलाइन आज़माएं!

Answer 4

पर्ल 6 , 33 बाइट्स

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

इसे ऑनलाइन आज़माएं!

Answer 5

पायथन 2 , 42 बाइट्स

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

इसे ऑनलाइन आज़माएं!

Answer 6

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

Answer 7

MATLAB / ऑक्टेव , 31 29 27 बाइट्स

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

• alephalpha के लिए धन्यवाद 2 बाइट्स की कमी

• Giuseppe की बदौलत 2 बाइट्स कम हो गए

इसे ऑनलाइन आज़माएं!

Comments

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

— एलेफाल्पा

@alephalpha धन्यवाद!

— पाईकोट

Answer 8

जाप, 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

Answer 9

भूसी , 5 बाइट्स

`fN↔ḋ

कमांड लाइन तर्क के रूप में इनपुट को स्टड पर ले जाता है ( मुझे आशा है कि यह ठीक है ), इसे ऑनलाइन आज़माएं!

व्याख्या

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

Answer 10

हास्केल , 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 ]

Answer 11

चारकोल , 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

Answer 12

जावास्क्रिप्ट (ईएस 6), 37 बाइट्स

+4 बाइट्स यदि एक विभाजक अनिवार्य है
+3 बाइट्स यदि यह विभाजक एक अल्पविराम है और एक अग्रणी अल्पविराम की अनुमति है

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

इसे ऑनलाइन आज़माएं!

Answer 13

पर्ल 6 , 21 बाइट्स

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

इसे ऑनलाइन आज़माएं!

वैकल्पिक:

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

Answer 14

आम लिस्प, 57 बाइट्स

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

इसे ऑनलाइन आज़माएं!

Answer 15

हास्केल , 33 बाइट्स

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

इसे ऑनलाइन आज़माएं!

---

37 बाइट्स

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

इसे ऑनलाइन आज़माएं!

निमि से परीक्षण के मामले।

Answer 16

जे , 13 10 बाइट्स

-3 bytes thanks to Bubbler

1+I.@|.@#:

इसे ऑनलाइन आज़माएं!

Comments

10 बाइट्स ।

— बबलर

@ बब्बर धन्यवाद! मुझे लगा कि मैंने यह कोशिश की है - जाहिरा तौर पर नहीं :)

— गैलन इवानोव

Answer 17

जाप, 7 बाइट्स

¢Ô¬ðÍmÄ

इसे ऑनलाइन टेस्ट करें

---

जाप, 7 बाइट्स

¤Ôð1 mÄ

इसे ऑनलाइन टेस्ट करें

Answer 18

C # (विजुअल C # इंटरएक्टिव कंपाइलर) , 47 बाइट्स

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

इसे ऑनलाइन आज़माएं!

अब जावा समाधान के समान दिखता है, हालांकि मैं स्वतंत्र रूप से खान के साथ आया था।

Answer 19

पायथन 3.6, 58 बाइट्स

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

Answer 20

वोल्फ्राम भाषा (गणितज्ञ) , 32 बाइट्स

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

इसे ऑनलाइन आज़माएं!

Answer 21

परी / जीपी , 31 बाइट्स

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

इसे ऑनलाइन आज़माएं!

Answer 22

एपीएल + विन, 13 बाइट्स

एन के लिए संकेत:

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

इसे ऑनलाइन आज़माएं! दरियाल क्लासिक के सौजन्य से

स्पष्टीकरण:

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

रिवर्स ऑर्डर में सब्मिट करता है

Answer 23

बर्लेस्क - 8 बाइट्स

8roR@j!!

इसे ऑनलाइन आज़माएं।

Answer 24

ओरेकल SQL, 77 बाइट्स

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

एसक्यूएल प्लस में टेस्ट

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

Answer 25

मठगोल्फ , 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][]

Answer 26

रूबी , 31 बाइट्स

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

इसे ऑनलाइन आज़माएं!

Answer 27

एफ # (मोनो) , 45 बाइट्स

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

इसे ऑनलाइन आज़माएं!

मैंने एक सामान्य / पुनरावर्ती कार्य भी कार्यान्वित किया, लेकिन इसकी बहुत बदसूरत और बाइट गिनती बहुत बड़ी है ...

एफ # (मोनो) , 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

इसे ऑनलाइन आज़माएं!

Answer 28

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]

Answer 29

जावा 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`