एक बाइट सरणी को थोड़ा सरणी में विभाजित करें

Question

एक फ़ंक्शन लिखें जो बफ़र दिए जाने पर b(1 - 104857600 बाइट्स लंबा) और बिट्स की संख्या n(1 <= n <= 64), बफ़र्स को nबिट्स के टुकड़ों में विभाजित करता है । राइट-पैड के साथ पिछले हिस्सा 0करने के लिए s तक nबिट्स।

जैसे

बफ़र b = "f0oBaR"या समकक्ष दिया [102,48,111,66,97,82]और n = 5, वापस

[12, 24, 24, 6, 30, 16, 19, 1, 10, 8]

इसका कारण यह है कि उपरोक्त बफर, जब द्विआधारी के रूप में प्रतिनिधित्व किया जाता है:

01100110 00110000 01101111 01000010 01100001 01010010

और जब 5s में फिर से समूहीकृत किया जाता है तो यह दिखता है:

01100 11000 11000 00110 11110 10000 10011 00001 01010 010[00]

जब वापस दशमलव में परिवर्तित किया जाता है तो उत्तर देता है।

टिप्पणियाँ

• बफर का प्रतिनिधित्व करने के लिए आप अपनी भाषा में जो भी डेटा टाइप बनाते हैं उसका उपयोग कर सकते हैं। PHP में आप शायद एक स्ट्रिंग का उपयोग करेंगे, नोड में आप एक बफर का उपयोग करना चाह सकते हैं
  • यदि आप बफर का प्रतिनिधित्व करने के लिए एक स्ट्रिंग का उपयोग करते हैं, तो मान लें कि यह ASCII के लिए है -> अंतर रूपांतरण
  • यदि आप पसंद करते हैं तो आप इनपुट के लिए ints (0-255) की एक सरणी का उपयोग कर सकते हैं
• रिटर्न मान एक सरणी या किलों की सूची होना चाहिए

परीक्षण के मामलों

> b = "Hello World", n = 50
318401791769729, 412278856237056

> b = [1,2,3,4,5], n = 1
0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1

> b = "codegolf", n = 32
1668244581, 1735355494

> b = "codegolf" n = 64
7165055918859578470

> b = "codegolf" n = 7
49, 91, 108, 70, 43, 29, 94, 108, 51, 0

> b = "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Pellentesque vel est eu velit lacinia iaculis. Nulla facilisi. Mauris vitae elit sapien. Nullam odio nulla, laoreet at lorem eu, elementum ultricies libero. Praesent orci elit, sodales consectetur magna eget, pulvinar eleifend mi. Ut euismod leo ut tortor ultrices blandit. Praesent dapibus tincidunt velit vitae viverra. Nam posuere dui quis ipsum iaculis, quis tristique nisl tincidunt. Aliquam ac ligula a diam congue tempus sit amet quis nisl. Nam lacinia ante vitae leo efficitur, eu tincidunt metus condimentum. Cras euismod quis quam vitae imperdiet. Ut at est turpis.", n = 16
19567, 29285, 27936, 26992, 29557, 27936, 25711, 27759, 29216, 29545, 29728, 24941, 25972, 11296, 25455, 28275, 25955, 29797, 29813, 29216, 24932, 26992, 26995, 25449, 28263, 8293, 27753, 29742, 8272, 25964, 27749, 28276, 25971, 29045, 25888, 30309, 27680, 25971, 29728, 25973, 8310, 25964, 26996, 8300, 24931, 26990, 26977, 8297, 24931, 30060, 26995, 11808, 20085, 27756, 24864, 26209, 25449, 27753, 29545, 11808, 19809, 30066, 26995, 8310, 26996, 24933, 8293, 27753, 29728, 29537, 28777, 25966, 11808, 20085, 27756, 24941, 8303, 25705, 28448, 28277, 27756, 24876, 8300, 24943, 29285, 25972, 8289, 29728, 27759, 29285, 27936, 25973, 11296, 25964, 25965, 25966, 29813, 27936, 30060, 29810, 26979, 26981, 29472, 27753, 25189, 29295, 11808, 20594, 24933, 29541, 28276, 8303, 29283, 26912, 25964, 26996, 11296, 29551, 25697, 27749, 29472, 25455, 28275, 25955, 29797, 29813, 29216, 28001, 26478, 24864, 25959, 25972, 11296, 28789, 27766, 26990, 24946, 8293, 27749, 26982, 25966, 25632, 28009, 11808, 21876, 8293, 30057, 29549, 28516, 8300, 25967, 8309, 29728, 29807, 29300, 28530, 8309, 27764, 29289, 25445, 29472, 25196, 24942, 25705, 29742, 8272, 29281, 25971, 25966, 29728, 25697, 28777, 25205, 29472, 29801, 28259, 26980, 30062, 29728, 30309, 27753, 29728, 30313, 29793, 25888, 30313, 30309, 29298, 24878, 8270, 24941, 8304, 28531, 30053, 29285, 8292, 30057, 8305, 30057, 29472, 26992, 29557, 27936, 26977, 25461, 27753, 29484, 8305, 30057, 29472, 29810, 26995, 29801, 29045, 25888, 28265, 29548, 8308, 26990, 25449, 25717, 28276, 11808, 16748, 26993, 30049, 27936, 24931, 8300, 26983, 30060, 24864, 24864, 25705, 24941, 8291, 28526, 26485, 25888, 29797, 28016, 30067, 8307, 26996, 8289, 28005, 29728, 29045, 26995, 8302, 26995, 27694, 8270, 24941, 8300, 24931, 26990, 26977, 8289, 28276, 25888, 30313, 29793, 25888, 27749, 28448, 25958, 26217, 25449, 29813, 29228, 8293, 29984, 29801, 28259, 26980, 30062, 29728, 28005, 29813, 29472, 25455, 28260, 26989, 25966, 29813, 27950, 8259, 29281, 29472, 25973, 26995, 28015, 25632, 29045, 26995, 8305, 30049, 27936, 30313, 29793, 25888, 26989, 28773, 29284, 26981, 29742, 8277, 29728, 24948, 8293, 29556, 8308, 30066, 28777, 29486

> b = [2,31,73,127,179,233], n = 8
2, 31, 73, 127, 179, 233

Comments

यह n8 से अधिक के मूल्यों के लिए काम करने वाला है ? यदि ऐसा है, nतो 64 से अधिक के मूल्यों के बारे में क्या , जो कि अधिकांश भाषा के पूर्णांक परिशुद्धता से बड़ा है।

— स्पीडप्लेन

क्यों वापसी मान होना जरूरी है ints ?

— wizzwizz4

@ wizzwizz4 मुझे ऐसा नहीं लगता। वे बाइट्स नहीं कर सकते क्योंकि उनके पास 8 बिट्स नहीं हैं। बिटवाइज़ ऑपरेटर सामान्य रूप से चींटियों पर काम करते हैं और बहुत कुछ नहीं। यदि आपके पास एक बेहतर सुझाव है तो मैं सुन रहा हूं, लेकिन अन्यथा यह है।

— मपेन २२'१६

@ wizzwizz4 क्योंकि मैं नहीं चाहता कि लोग एक कदम छोड़ सकें। मुझे इस तरह के जवाब नहीं चाहिए जैसे "इस बाइट के पहले 5 बिट्स में उत्तर होता है" - परिणाम में किसी भी तरह की शानदार जानकारी नहीं होनी चाहिए, और इसे आसानी से ASCII या कुछ कैरेक्टर मैपिंग (वास्तविक जीवन में उपयोग) में परिवर्तित किया जाना चाहिए। मामला)। इसके अलावा, अब तक के जवाबों की संख्या को देखते हुए, यह एक समस्या नहीं है।

— मपेन २२'१६

@ मैं उलझन को देखता हूं। charएक पूर्णांक है जो एक बाइट लंबा होता है।

— wizzwizz4

Answer 1

पायथ, 18 17 बाइट्स

iR2c.[t.B+C1z\0QQ

एक बाइट के लिए @lirtosiast को धन्यवाद !

            z      get input
         +C1       prepend a 0x01 to prevent leading zeroes from disappearing
       .B          convert to binary string
      t            remove the leading 1 from ^^
    .[       \0Q   pad right with zeroes to multiple of second input
   c            Q  get chunks/slices of length second input
iR2                map(x: int(x, 2))

Answer 2

जेली, 13 बाइट्स

1;ḅ256æ«BḊsḄṖ

यह इनपुट को पूर्णांकों की सूची के रूप में लेता है। इसे ऑनलाइन आज़माएं!

यह काम किस प्रकार करता है

1;ḅ256æ«BḊsḄṖ  Main link. Arguments: A (list), n (integer)

1;             Prepend 1 to A.
  ḅ256         Convert from base 256 to integer.
      æ«       Bitshift the result n units to the left.
        B      Convert to binary.
         Ḋ     Discard the first binary digit (corresponds to prepended 1).
          s    Split into chunks of length n.
           Ḅ   Convert each chunk from binary to integer.
            Ṗ  Discard the last integer (corresponds to bitshift/padding).

Answer 3

जूलिया, 117 बाइट्स

f(x,n,b=join(map(i->bin(i,8),x)),d=endof,z=rpad(b,d(b)+d(b)%n,0))=map(i->parse(Int,i,2),[z[i:i+n-1]for i=1:n:d(z)-n])

यह एक फ़ंक्शन है जो पूर्णांक सरणी और पूर्णांक को स्वीकार करता है और पूर्णांक सरणी देता है। यह फ़ंक्शन तर्क दुरुपयोग में एक अभ्यास है।

Ungolfed:

function f(x::Array{Int,1},                  # Input array
           n::Int,                           # Input integer
           b = join(map(i -> bin(i, 8), x)), # `x` joined as a binary string
           d = endof,                        # Store the `endof` function
           z = rpad(b, d(b) + d(b) % n, 0))  # `b` padded to a multiple of n

    # Parse out the integers in base 2
    map(i -> parse(Int, i, 2), [z[i:i+n-1] for i = 1:n:d(z)-n])
end

Comments

आपने इसे अस्थायी रूप से क्यों हटाया?

— कैलक्यूलेटरफलाइन

@CatsAreFluffy मैंने महसूस किया कि मैंने शुरू में कुछ गलत किया था कि यह परीक्षण मामले के लिए काम करता है लेकिन सामान्य रूप से जरूरी नहीं होगा। हालांकि अब सब अच्छा होना चाहिए। :)

— एलेक्स ए।

Answer 4

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

f=(a,n,b=0,t=0,r=[])=>b<n?a.length?f(a.slice(1),n,b+8,t*256+a[0],r):b?[...r,t<<n-b]:r:f(a,n,b-=n,t&(1<<b)-1,[...r,t>>b])

पूर्णांक सरणियों पर पुनरावर्ती बिट ट्विडलिंग। Ungolfed:

function bits(array, nbits) {
    var count = 0;
    var total = 0;
    var result = [];
    for (;;) {
        if (nbits <= count) {
            // We have enough bits to be able to add to the result
            count -= nbits;
            result.push(total >> count);
            total &= (1 << count) - 1;
        } else if (array.length) {
            // Grab the next 8 bits from the array element
            count += 8;
            total <<= 8;
            total += array.shift();
        } else {
            // Deal with any leftover bits
            if (count) result.push(total << nbits - count);
            return result;
        }
    }
}

Comments

@WashingtonGuedes मैं अपने समाधान के अपने खुद के गोल्फ से एक और 9 बाइट्स गोल्फ में कामयाब रहा, लेकिन यह अभी भी 129 बाइट्स है, क्षमा करें:"(s,n)=>(s.replace(/./g,x=>(256+x.charCodeAt()).toString(2).slice(1))+'0'.repeat(n-1)).match(eval(`/.{${n}}/g`)).map(x=>+`0b${x}`)".length

— नील

तुम्हें यकीन है कि यह एक रन? Ungolfed संस्करण Chrome को क्रैश कर रहा है।

— मपेन

@mpen गोल्फ का संस्करण निश्चित रूप से फ़ायरफ़ॉक्स पर चलता है। अनगुल्ड संस्करण में इसमें त्रुटियां हो सकती हैं।

— नील

अहा! और इसलिए यह करता है। मुझे लगा कि क्रोम का JS इंजन FF से आगे था, लेकिन मुझे लगता है कि नहीं।

— मपेन २२'१६

@mpen ने आपके लिए मेरे ungolfed कोड में सूक्ष्म बगों के एक जोड़े को तय किया।

— नील

Answer 5

पायथन 3, 102 बाइट्स

j=''.join
lambda s,n:[int(j(k),2)for k in zip(*[iter(j([bin(i)[2:].zfill(8)for i in s+[0]]))]*n)][:-1]

समूह स्ट्रिंग में पुनरावृति चाल का उपयोग करें

• s: इनपुट स्ट्रिंग / बफर
• n: प्रत्येक विभाजित चंक में बिट्स की संख्या

परिणाम

>>> f([102,48,111,66,97,82],4)
[6, 6, 3, 0, 6, 15, 4, 2, 6, 1, 5, 2, 0]

>>> f([102,48,111,66,97,82],5)
[12, 24, 24, 6, 30, 16, 19, 1, 10, 8]

>>> f([102,48,111,66,97,82],6)
[25, 35, 1, 47, 16, 38, 5, 18]

>>> f([102,48,111,66,97,82],8)
[102, 48, 111, 66, 97, 82]

Comments

आपको यह समझाने के लिए अपने कोड को प्रलेखित करना चाहिए कि 'n' परम क्या करता है?

— nullptr

@nullptr nका प्रश्न से एक ही अर्थ है:splits the buffer into chunks of n bits

— एरवन

Answer 6

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

->s,n{a=s.bytes.map{|b|b.to_s(2).rjust 8,?0}.join.split""
r=[]
r<<a.shift(n).join.ljust(n,?0).to_i(2)while a[0]
r}

थोड़ा क्लीनर:

f = -> str, num {
    arr = str.bytes.map {|byte|
        byte.to_s(2).rjust(8, "0")
    }.join.split("")
    result = []
    while arr.size > 0
        result << arr.shift(num).join.ljust(num, "0").to_i(2)
    end
    result
}

puts f["f0oBaR", 5]

Answer 7

पर्ल 6, 93 68 बाइट्स

{@^a».&{sprintf "%08b",$_}.join.comb($^b)».&{:2($_~0 x$b-.chars)}}

Answer 8

पीएचपी, 262 217 189 बाइट्स

function f($b,$n){$M='array_map';return$M('bindec',$M(function($x)use($n){return str_pad($x,$n,0);},str_split(implode('',$M(function($s){return str_pad($s,8,0,0);},$M('decbin',$b))),$n)));}

( इस्माइल मिगुएल के सुझावों के साथ अद्यतन )

पठनीयता के लिए प्रारूपित:

function f($b, $n) {
    $M = 'array_map';
    return $M('bindec', $M(function ($x) use ($n) {
        return str_pad($x, $n, 0);
    }, str_split(implode('', $M(function ($s) {
        return str_pad($s, 8, 0, 0);
    }, $M('decbin', $b))), $n)));
}

उदाहरण:

> implode(', ',f(array_map('ord',str_split('f0oBaR')),5));
"12, 24, 24, 6, 30, 16, 19, 1, 10, 8"

Comments

इसके बजाय str_pad($s,8,'0',STR_PAD_LEFT), आप उपयोग कर सकते हैं str_pad($s,8,0,0)। आप उद्धरण को हटा सकते हैं bindecऔर decbin4 बाइट्स बचा सकते हैं। अधिक बचाने के लिए, आप array_mapएक चर में स्टोर कर सकते हैं और इसके बजाय इसे पास कर सकते हैं । यहां आप जाएं: function f($b,$n){$M=array_map;return$M(bindec,$M(function($x)use($n){return str_pad($x,$n,0);},str_split($M('',array_map(function($s){return str_pad($s,8,0,0);},$M(decbin,$b))),5)));}(184 बाइट्स)।

— इस्माइल मिगुएल

धन्यवाद @IsmaelMiguel मुझे लगता है कि आपने इसके implodeसाथ $Mभी प्रतिस्थापित किया है ।

— मपेन

अगर मैंने किया, तो यह गलती से हुआ। मैं वास्तव में माफी चाहता हूँ। लेकिन मुझे खुशी है कि आपको अपने कोड की मेरी भिन्नता पसंद आई।

— इस्माइल मिगुएल

Answer 9

सीजेएम, 30 बाइट्स

{_@{2b8 0e[}%e_0a@*+/-1<{2b}%}

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

यह एक अनाम ब्लॉक है जो इंट बफर और स्टैक पर विखंडू की मात्रा की अपेक्षा करता है और स्टैक पर परिणाम छोड़ता है।

सीजेएम को एक कोशिश देने का फैसला किया। इसे पूरा करने में मुझे केवल 2 घंटे लगे ^ ^ यह शायद बहुत लंबा है, सुझावों का बहुत स्वागत है!

व्याख्या

_ ई # डुप्लीकेट गणना
@ ई ​​# स्टैक स्टैक, अब शीर्ष पर सरणी और नीचे की तरफ गिनता है
{e # एक नया ब्लॉक शुरू करें
 2 बी ई # बाइनरी में कनवर्ट करें
 8 0e [e # बाईं ओर शून्य जोड़ें, इसलिए बाइनरी 8 बिट्स है
} e # अंतिम पिछला ब्लॉक
% e # इस ब्लॉक को प्रत्येक ऐरे-एलिमेंट (मैप) पर लागू करें
e_ e # समतल सरणी
0a e # स्टैक के लिए एक शून्य के साथ एक सरणी धक्का
@ ई ​​# रोटेट स्टैक, स्टैक में अब एन [सरणी] [0] एन होते हैं
* e # दोहराएं सरणी [0] n बार
+ e # दो एरे को सम्‍मिलित करें
/ e # लंबाई n के भाग में विभाजित है, अब ढेर में केवल सरणी होती है
-1 <e # आखिरी हिस्सा त्यागें
{2b}% e # हर चंक को वापस दशमलव में बदलें

Comments

1. आप बाइट को बचाने के 2b8Tबजाए लिख सकते हैं 2b8 0(चर Tका पूर्वाभास हो गया है 0) 2. अंतिम चंक को डिस्क के साथ किया जा सकता है W<(चर Wको प्रारंभिक किया गया है -1) या );(अंतिम तत्व को बाहर निकालें और इसे त्यागें)।

— 20:38 पर फल

इसे 25 तक पहुंचा दिया ।

— फल

Answer 10

जावास्क्रिप्ट (ईएस 6) 104

बिट फिडलिंग द्वारा निष्क्रिय बिट,

5 बाइट्स संपादित करें thx @Neil को सहेजें

(s,g,c=g,t=0)=>(s.map(x=>{for(i=8;i--;--c||(s.push(t),c=g,t=0))t+=t+(x>>i)%2},s=[]),c-g&&s.push(t<<c),s)

कम गोल्फ वाला

( 
 // parameters
 s, // byte source array
 g, // output bit group size
 // default parameters used as locals 
 c = g, // output bit counter
 t = 0  // temp bit accumulator
) => (
  s.map(x => 
    { // for each byte in s
      for(i = 8; // loop for 8 bits
        i--; 
        )
        // loop body
        t += t + (x>>i) % 2, // shift t to left and add next bit
        --c // decrement c,if c==0 add bit group to output and reset count and accumulator
          ||(s.push(t), c=g, t=0)
    }, 
    s=[] // init output, reusing s to avoid wasting another global
  ),
  c-g && s.push(t<<c), // add remaining bits, if any
  s // return result
)

परीक्षा

f=(s,g,c=g,t=0)=>(s.map(x=>{for(i=8;i--;--c||(s.push(t),c=g,t=0))t+=t+(x>>i)%2},s=[]),c-g&&s.push(t<<c),s)

function test()
{
  var a = A.value.match(/\d+/g)||[]
  var g = +G.value
  var r = f(a,g)
  
  O.textContent = r
  K.innerHTML = a.map(x=>`<i>${(256- -x).toString(2).slice(-8)}</i>`).join``
  + '\n'+ r.map(x=>`<i>${(256*256*256*256+x).toString(2).slice(-g)}</i>`).join``
}  

test()

#A { width: 50% }
#G { width: 5% }
i:nth-child(even) { color: #00c }
i:nth-child(odd) { color: #c00 }

Input array <input id=A value="102,48,111,66,97,82">
Group by bits <input id=G value=5> (up to 32)<br>
Output <button onclick="test()">-></button>
<span id=O></span>
<pre id=K></pre>

Comments

xहर बार दोहरीकरण के बजाय , xदाहिने iबिट्स को स्थानांतरित क्यों नहीं किया जाता है ?

— नील

@ नील उह ... क्यों ... मूढ़?

— edc65

मैंने अभी देखा है कि c-g?[...s,t<<c]:sआप कुछ और बाइट्स बचा सकते हैं।

— नील

@ यह कुछ विचार की आवश्यकता है

— edc65

Answer 11

जे, 24 बाइट्स

[:#.-@[>\;@(_8:{."1#:@])

यह एक अनाम फ़ंक्शन है, जो लेता है n इसके बाएं तर्क के bरूप में और इसके सही तर्क के रूप में संख्याओं को है।

परीक्षा:

      5 ([:#.-@[>\;@(_8:{."1#:@])) 102 48 111 66 97 82
12 24 24 6 30 16 19 1 10 8

स्पष्टीकरण:

[:#.-@[>\;@(_8:{."1#:@])

                   #:@]   NB. Convert each number in `b` to bits
            _8:{."1       NB. Take the last 8 items for each
                          NB.    (padding with zeroes at the front)
         ;@               NB. Make a list of all the bits
    -@[                   NB. Negate `n` 
                          NB. (\ gives non-overlapping infixes if [<0)
       >\                 NB. Get non-overlapping n-sized infixes
 [:#.                     NB. Convert those back to decimal 

Answer 12

हास्केल, 112 109 बाइट्स

import Data.Digits
import Data.Lists
n#x=unDigits 2.take n.(++[0,0..])<$>chunksOf n(tail.digits 2.(+256)=<<x)

प्रयोग उदाहरण: 5 # [102,48,111,66,97,82]-> [12,24,24,6,30,16,19,1,10,8]।

यह काम किस प्रकार करता है

import Data.Digits                  -- needed for base 2 conversion
import Data.Lists                   -- needed for "chunksOf", i.e. splitting in
                                    -- sublists of length n

           (                  =<<x) -- map over the input list and combine the
                                    -- results into a single list:
            tail.digits 2.(+256)    -- convert to base two with exactly 8 digits    
         chunksOf n                 -- split into chunks of length n    
       <$>                          -- convert every chunk (<$> is map)
    take n.(++[0,0..])              -- pad with 0s
unDigits 2                          -- convert from base 2   

Answer 13

जावा, 313 306 322 बाइट्स

मुझे आशा है कि यह PHP को हरा देगा ... और नहीं। मूर्ख लंबे समारोह के नाम।

-7 विभाजन से ठीक होने पर किसी त्रुटि को ठीक करने के लिए सार्वजनिक +16 से छुटकारा पाने के लिए @quartata को धन्यवाद, इसे पकड़ने के लिए @TheCoder के लिए धन्यवाद

int[] f(String b,int s){int i=0,o[]=new int[(int)Math.ceil(b.length()*8.0/s)],a=0;String x="",t;for(char c:b.toCharArray()){t=Integer.toString(c,2);while(t.length()<8)t="0"+t;x+=t;a+=8;while(a>=s){o[i++]=Integer.parseInt(x.substring(0,s),2);x=x.substring(s,a);a-=s;}}while(a++<s)x+="0";o[i]=Integer.parseInt(x,2);return o;}

Comments

मुझे नहीं लगता कि आपको कार्य को सार्वजनिक करना होगा।

— एक स्पेगेटो

जावा के किस संस्करण में आपने इसे चलाया? यह संकलन करने के लिए प्रतीत नहीं होता है: ideone.com/3tonJt

— MPen

@mpen आह, वूप्स। मैं भूल गया, मैंने इसे पोस्ट करने से पहले अपने कंप्यूटर पर बदल दिया। ठीक कर देंगे।

— ब्लू

@JackAmmo हाँ, ज़रूर किया। बेवकूफ छोटे फोन कीबोर्ड।

— ब्लू

o[]=new int[b.length()*8/s+1]- यह गलत आकार प्रदान करेगा यदि(b.length()*8)%s==0

— कोडर

Answer 14

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

->s,n{(s.unpack('B*')[0]+?0*~-n).scan(/.{#{n}}/).map{|x|x.to_i 2}}

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

इनपुट बफर को एक स्ट्रिंग के रूप में लेता है, ताकि कुछ परीक्षण तार सीधे फ़ुटप्रिंट से बचने के लिए पाद में निर्मित किए गए थे।

Answer 15

MATL , 9 बाइट्स

8&B!we!XB

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

इनपुट लेता है bएक स्ट्रिंग के रूप से सीमांकित ''या की तरह अल्पविराम विभाजित मान की एक सरणी के रूप में [102, 48, 111]है, तो n।

8           # push 8
&B          # implicitly take input b, and use 2-element convert to binary
            # to push a binary matrix of 8 bits
!           # transpose, so each column represents an input
w           # implicitly take input n and swap it with binary matrix to top of stack
e           # reshape into n rows, padding with zeros at end
            # this matrix will have each column as an n-bit integer
!           # transpose, so each row is now the n-bit integer
XB          # convert each row to decimal
            # implicit output

Answer 16

पर्ल 5 -nl -MData::Dump=pp , 96 बाइट्स

$}=$_;pp map{$_=sprintf"%-$}s",$_;y/ /0/;oct"0b$_"}(join'',map{sprintf"%08b",$_}<>)=~m/.{1,$_}/g

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

Data::Dumpमॉड्यूल की आवश्यकता है ।

nइनपुट की पहली पंक्ति और उसके बाद प्रत्येक पंक्ति पर संख्या लेता है।

STDERR को आउटपुट (TIO पर डीबग फ़ील्ड)।

निराश और ख़ुश:

BEGIN { $/ = "\n"; $\ = "\n"; }
use Data::Dump ( split( /,/, 'pp', 0 ) );
LINE: while ( defined( $_ = readline ARGV ) ) {
    chomp $_;
    $} = $_;
    pp(
        map( {
                $_ = sprintf( "%-$}s", $_ );
                tr/ /0/;
                oct "0b$_";
            } join( '', map( { sprintf '%08b', $_; } readline ARGV ) ) =~
              /.{1,$_}/g )
    );
}

Answer 17

पॉवरशेल 146 बाइट्स

param([int[]][char[]]$b,$n)-join($b|%{[convert]::ToString($_,2).PadLeft(8,"0")})-split"(.{$n})"|?{$_}|%{[convert]::ToInt32($_.PadRight($n,"0"),2)}

---

बफ़र में ले जाएं और इसे चार सरणी में और फिर एक पूर्णांक सरणी में परिवर्तित करें। उनमें से प्रत्येक के लिए बाइनरी में कनवर्ट करें, 0 की जरूरत के साथ प्रविष्टियों को पैड करें, और एक बड़े स्ट्रिंग के रूप में जुड़ें। N वर्णों पर उस स्ट्रिंग को विभाजित करें और बनाए गए रिक्त स्थान को छोड़ दें। विभाजन से प्रत्येक तत्व गद्देदार होता है (केवल अंतिम तत्व को वास्तव में इसकी आवश्यकता होगी) और एक पूर्णांक में वापस बदल दिया। आउटपुट एक सरणी है

Answer 18

पायथन 3.5 - 312 292 बाइट्स:

def d(a, b):
    o=[];o+=([str(bin(g)).lstrip('0b')if str(type(g))=="<class 'int'>"else str(bin(ord(g))).lstrip('0b')for g in a]);n=[''.join(o)[i:i+b]for i in range(0,len(''.join(o)),b)];v=[]
    for t in n:
        if len(t)!=b:n[n.index(t)]=str(t)+'0'*(b-len(t))
    v+=([int(str(f),2)for f in n])
    return v

हालांकि यह लंबा हो सकता है, यह, मेरी जानकारी में, त्रुटियों के बिना दोनों कार्यों और सरणियों को स्वीकार करने का सबसे छोटा तरीका है, और अभी भी पायथन 3.5 में कुछ सटीकता को बनाए रखने में सक्षम है ।

Answer 19

जावा, 253 247 बाइट्स

golfed

int i,l,a[];Integer I;String f="";int[]c(String s,int n){for(char c:s.toCharArray())f+=f.format("%08d",I.parseInt(I.toString(c, 2)));while(((l=f.length())%n)>0)f+="0";for(a=new int[l=l/n];i<l;)a[i]=I.parseInt(f.substring(i*n,i++*n+n),2);return a;}

UnGolfed

int i,l,a[];
Integer I;
String f="";
int[]c(String s,int n) {
    for(char c:s.toCharArray())
        f+=f.format("%08d",I.parseInt(I.toString(c,2)));
    while(((l=f.length())%n)>0)
        f+="0";
    for(a=new int[l=l/n];i<l;)
        a[i]=I.parseInt(f.substring(i*n,i++*n+n),2);
    return a;
}

Comments

c, 2=> c,2; ((l=f.length())%n)>0=> (l=f.length())%n>0;

— ज़ाचरी

Answer 20

जेली , 13 बाइट्स

+256BḊ€Ẏsz0ZḄ

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

डेनिस के जवाब से अलग।

नोट: इनपुट वास्तव में गैर-नकारात्मक पूर्णांकों की एक सूची है, लेकिन TIO लिंक आपके लिए दर्द को कम करता है, और ऐसी सूची या स्ट्रिंग को स्वीकार करता है।

Answer 21

स्टैक्स , 12 बाइट्स

è■àåk┘K¥xk└╣

इसे चलाएं और डीबग करें

यह एक चुनौती के रूप में निर्दिष्ट कार्य नहीं है, लेकिन एक कार्यक्रम, क्योंकि स्टैक्स कार्यों का समर्थन नहीं करता है। यह स्ट्रिंग्स या एरे शाब्दिकों के इनपुट का समर्थन करता है।

Answer 22

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

lambda a,n:[int(''.join(bin(x+256)[3:]for x in a+[0]*n)[n*i:][:n],2)for i in range((len(a)*8-1)/n+1)]

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

Answer 23

Dyalog एपीएल , 36 बाइट्स

{2∘⊥¨↓A⍴(×/A←⍺,⍨⌈⍺÷⍨8×≢⍵)↑∊↓⍉⍵⊤⍨8/2}

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

यह शायद नीचे और अधिक गोल्फ हो सकता है।

Answer 24

अमृत , 63 60 बाइट्स

&(s=&2-1)&&for<<x::size(&2)<-<<"#{&1}",0::size(s)>> >>,do: x

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

Elixir बाइनरी के रूप में इनपुट लेता है, पूर्णांकों की सूची को आउटपुट करता है।

यह कोड &1तर्क के रूप में प्रदान किए गए आकार के बिट ब्लॉकों में इनपुट बाइनरी को एलिक्जिर बिटस्ट्रिंग जनरेटर की समझ का उपयोग करता है &2। अंत में किसी भी बचे हुए बिट्स के लिए खाते में, हम बाइनरी को &2 - 1शून्य बिट्स के साथ पैड करते हैं । यहाँ वह जगह भी है जहाँ कुछ अवांछित &1क्रिया-कलाप सामने आते हैं : अगर हम स्पष्ट रूप से बिटस्ट्रिंग की घोषणा नहीं करते हैं तो अमृत की शिकायत होती है, और यह भावों का समर्थन नहीं करता हैsize(...) , इसलिए अतिरिक्त चर असाइनमेंट की आवश्यकता है।

ईस्टर अंडा: पाद लेख में, के IO.inspectसाथ बदलें IO.puts, और हमारे कार्य को जादुई रूप से "लोरेम इप्सम" लैटिन से चीनी में अनुवाद करता है - ऑनलाइन प्रयास करें!

Answer 25

जाप , 16 बाइट्स

बैठकों के एक लंबे दिन के बाद, ऐसा लगता है कि मैं भूल गया हूँ कि कैसे गोल्फ! बाद में ट्रेन घर पर इसके साथ खेलेंगे, देखें कि क्या मैं इस पर सुधार कर सकता हूं।

c_¤ùT8ÃòV úTV mÍ

कोशिश करो

Comments

क्या आप कह रहे हैं कि यह 16 बाइट्स है अगर आप इसे सांकेतिक शब्दों में बदलना IEC 8859-1चाहते हैं? क्या वह भी कानूनी है? क्या आपको एक खामी मिली? क्या उन्होंने निर्दिष्ट नहीं किया है कि इसे UTF-8 होना चाहिए? क्योंकि यह UTF-8 की 22 बाइट्स है।

— एमपीएन

@ 1.प्रत्येक भाषा का उपयोग करने के लिए स्वतंत्र है यह स्वयं का एन्कोडिंग / कोडपेज है। 2.ISO-8859-1 एक मानक मानक एन्कोडिंग है जो कई भाषाओं द्वारा उपयोग की जाती है और विशेष रूप से Japt या इस विशिष्ट समाधान के लिए नहीं। 3.आपकी कल्पना यह नहीं बताती है कि हमें UTF-8 में गिनना चाहिए । 4.यदि ऐसा होता है, तो आप इससे दृढ़ता से हतोत्साहित होते।

— झबरा

मैं कुछ भी थोपने की कोशिश नहीं कर रहा हूं, मैं सिर्फ यह जानना चाहता था कि क्या यह आम तौर पर स्वीकार किया गया था, और ऐसा प्रतीत होता है कि आप काफी सही कोडगुल्फ हैं ।meta.stackexchange.com/a/17800/23090 TIO स्कोर उसी तरह से जपते हैं, जो हो सकता है इसे प्राप्त करने का एक आसान तरीका हो सकता है tio.run/##y0osKPn/Pzn@0JLDO0MsDjcf3hSmcHhXSJhC7uHe// 2018 एडिट 3: ओह आपका लिंक बहुत ज्यादा TIO है।

— एमपीएन

Answer 26

पीएचपी ,135 129 124 बाइट्स

function($b,$n){foreach($b as$c)$a.=sprintf('%08b',$c);foreach(str_split($a,$n)as$s)$d[]=bindec(str_pad($s,$n,0));return$d;}

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

एक फ़ंक्शन के रूप में लागू किया गया, इनपुट बफ़र ints का एक सरणी है और ints की एक सरणी देता है।

उत्पादन

> b = "f0oBaR", n = 5
[12,24,24,6,30,16,19,1,10,8]

> b = "Hello World", n = 50
[318401791769729,412278856237056]

> b = [1,2,3,4,5], n = 1
[0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,1]

सभी परीक्षण मामलों की जाँच करें

Comments

अच्छा! मुझसे थोड़ा छोटा है।

— 22

Answer 27

एपीएल (एनएआरएस), 471 चार्ट, 942 बाइट्स

TH←{v←↑⍴⍴⍵⋄v>2:64⋄v=2:32⋄(v=1)∧''≡0↑⍵:20⋄''≡0↑⍵:4⋄v=1:16⋄⍵≢+⍵:8⋄⍵=⌈⍵:2⋄1}
TV←{x←TH¨⍵⋄k←↑x⋄t←↑⍴⍵⋄t=+/x=2:2⋄t=+/x≤2:1⋄(k≤8)∧⍬≡x∼k:k⋄0}
T←{v←↑⍴⍴⍵⋄v>2:64+TV⍵⋄v=2:32+TV⍵⋄(v=1)∧''≡0↑⍵:20⋄''≡0↑⍵:4⋄v=1:16+TV⍵⋄⍵≢+⍵:8⋄⍵=⌈⍵:2⋄1}
RI←{t←T⍵⋄(t≠1)∧(t≠2)∧(t≠17)∧(t≠18):0⋄∧/((1⊃⍺)≤⍵)∧⍵≤(2⊃⍺)}
B←{(8⍴2)⊤⍵}⋄C←{¯1+⎕AV⍳⍵}⋄f←{t←T⍵⋄(0 255 RI⍵)∧18=t:∊B¨⍵⋄(0 255 RI x←C¨⍵)∧20=t:∊B¨x⋄,¯1}⋄W←{((↑⍴⍵)⍴2)⊥⍵}
q←{(∼1 64 RI,⍺)∨2≠T⍺:,¯1⋄x←f⍵⋄¯1=↑x:,¯1⋄t←↑⍴x⋄k←(⍺-m)×0≠m←⍺∣t⋄W⍉((t+k)÷⍺)⍺⍴(((t⍴1),k⍴0)\x)}

टिप्पणी कोड और परीक्षण:

  ⍝TH⍵ return type its argument
  TH←{v←↑⍴⍴⍵⋄v>2:64⋄v=2:32⋄(v=1)∧''≡0↑⍵:20⋄''≡0↑⍵:4⋄v=1:16⋄⍵≢+⍵:8⋄⍵=⌈⍵:2⋄1}
  ⍝ TV⍵ check if type each element of array ⍵ is the same and basic 
  ⍝ (float(int and float too),int,char,complex) and return its number (or 0 if it is not basic)
  TV←{x←TH¨⍵⋄k←↑x⋄t←↑⍴⍵⋄t=+/x=2:2⋄t=+/x≤2:1⋄(k≤8)∧⍬≡x∼k:k⋄0}
  ⍝ T⍵ return the type of ⍵ [it would be ok if ⍵ is not a function]
  ⍝|1 Float|2 Int|4 Char|8 Complex,Quaternion or Oction|16 List|32 Matrix|64 Tensor
  ⍝|17 List Float|18 List Int|20 List Char=string|etc
  T←{v←↑⍴⍴⍵⋄v>2:64+TV⍵⋄v=2:32+TV⍵⋄(v=1)∧''≡0↑⍵:20⋄''≡0↑⍵:4⋄v=1:16+TV⍵⋄⍵≢+⍵:8⋄⍵=⌈⍵:2⋄1}
  ⍝ ⍺RI⍵ check if the numeric array ⍵ has elements in [1⊃⍺ 2⊃⍺]; if type is not ok return 0(false)
  RI←{t←T⍵⋄(t≠1)∧(t≠2)∧(t≠17)∧(t≠18):0⋄∧/((1⊃⍺)≤⍵)∧⍵≤(2⊃⍺)}

  B←{(8⍴2)⊤⍵}   ⍝ from decimal to binary of element 0..255
  C←{¯1+⎕AV⍳⍵}   ⍝ return the number of char that is in array AV seems the ascii number
  ⍝ f⍵ with ⍵ List int element in 0..255 or String with numeric element 0..255 
  ⍝ return the corrispondence disclosed binary array 
  f←{t←T⍵⋄(0 255 RI⍵)∧18=t:∊B¨⍵⋄(0 255 RI x←C¨⍵)∧20=t:∊B¨x⋄,¯1}
  W←{((↑⍴⍵)⍴2)⊥⍵} ⍝ from list of binary digit to decimal
  ⍝ the function for the exercise
  q←{(∼1 64 RI,⍺)∨2≠T⍺:,¯1⋄x←f⍵⋄¯1=↑x:,¯1⋄t←↑⍴x⋄k←(⍺-m)×0≠m←⍺∣t⋄W⍉((t+k)÷⍺)⍺⍴(((t⍴1),k⍴0)\x)}


  5 q    'f0oBaR'
12 24 24 6 30 16 19 1 10 8 
  50 q "Hello World"
318401791769729 412278856237056 
  1  q 1 2 3 4 5
0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 1 
  32 q "codegolf"
1668244581 1735355494 
  7 q "codegolf"
49 91 108 70 43 29 94 108 51 0 
  8 q 2 31 73 127 179 233
2 31 73 127 179 233 
  64 q 2 31 73 127 179 233
1.529217252E17 
  65 q 2 31 73 127 179 233
¯1 
  0 q 2 31 73 127 179 233
¯1 
  23 q '123'
1612057 4194304 
  23 q '123∞'
¯1 
  23 q '1' 2 3
¯1 
  23 q 2 3.3
¯1 
  23 q 2 
¯1 
  23 q '1'
¯1 
  23 q ,2 
65536 
  23 q ,'1'
1605632