ম্যাজিক পপকাউন্ট নম্বর


25

32-বিট স্বাক্ষরবিহীন পূর্ণসংখ্যায় সেট বিটের সংখ্যা গণনা করার জন্য একটি বিখ্যাত কৌশলযুক্ত অ্যালগরিদম রয়েছে :

int popcount(unsigned x) {
   x = (x & 0x55555555) + ((x >> 1) & 0x55555555);
   x = (x & 0x33333333) + ((x >> 2) & 0x33333333);
   x = (x & 0x0F0F0F0F) + ((x >> 4) & 0x0F0F0F0F);
   x = (x & 0x00FF00FF) + ((x >> 8) & 0x00FF00FF);
   x = (x & 0x0000FFFF) + ((x >>16) & 0x0000FFFF);
   return x;
}

আমি এখানে এটি ব্যাখ্যা করব না। তবে 512-বিট সংখ্যার জন্য অনুরূপ কোডটি কল্পনা করুন! হেক্সাডেসিমাল ধ্রুবকগুলি বিশাল হবে এবং একটি সুন্দর ধরণ গঠন করবে। আপনার টাস্কটি কেবল এই নির্ভুল আউটপুট মুদ্রণ করা :

0x55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555
0x33333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333
0x0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f
0x00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff
0x0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff
0x00000000ffffffff00000000ffffffff00000000ffffffff00000000ffffffff00000000ffffffff00000000ffffffff00000000ffffffff00000000ffffffff
0x0000000000000000ffffffffffffffff0000000000000000ffffffffffffffff0000000000000000ffffffffffffffff0000000000000000ffffffffffffffff
0x00000000000000000000000000000000ffffffffffffffffffffffffffffffff00000000000000000000000000000000ffffffffffffffffffffffffffffffff
0x0000000000000000000000000000000000000000000000000000000000000000ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff

কোনও পিছনে স্থান নেই, দয়া করে - যদিও একক পেছনের নতুন লাইনটি isচ্ছিক।

এটি , তাই সংক্ষিপ্ত উত্তরটি (বাইটে) জেতে।


আমাদের কি ইনপুট নেওয়ার অনুমতি দেওয়া হয়েছে (0x0x0x0x0x0x0x0x0x0x এর মতো কিছু)?
আউটফ্লাক করুন

@ouflak নং ———
লিন

উত্তর:


3

05 এ বি 1 ই , 26 22 21 বাইট

05AB1E সিপি -1222 এনকোডিং ব্যবহার করে।

9F„0x0NÍo×9ooNoo>÷hJ,

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

9F                      # for N in [0 ... 8]
  „0x                   # push the string "0x"
     0NÍo×              # push 2**(N-2) zeroes
          9oo           # 2**2**9
                 ÷      # //
             Noo>       # (2**2**N+1)
                  h     # converted to base-16
                   J    # join everything to string
                    ,   # print with a newline

অন্যান্য সংস্করণগুলি উন্নত হতে পারে

9F9ooNoo>÷h¾6o×J7o£R…0xÿ,
9F9ooNoo>÷h0žy×ìR7o£R…0xÿ,
9FX0No×1No×JCh7o×1K7o£…0xÿ,
8ÝovX0y×1y×JCh7o×1K7o£…0xÿ,
9F1NoÅ0D>)˜JCh1K7o×7o£…0xÿ,

21

পাইথন 2, 52 49 46 বাইট

Kth নম্বর দিয়েছি 2**512/(2**2**k + 1)। এটি 512 বিট সংখ্যার জন্য, সুতরাং প্যাটার্নটি বিভিন্ন প্রস্থে প্রসারিত করা তুচ্ছ।

l=2;exec"print'0x%0128x'%(2**512/-~l);l*=l;"*9

3 বাইট ডেনিসকে ধন্যবাদ রক্ষা করেছে।
এক্সনোরকে 3 বাইট সংরক্ষণ করা হয়েছে।


2
স্বেচ্ছাসেবী-নির্ভুলতা পূর্ণসংখ্যার সুবিধাগুলি ...
ETH প্রোডাকশনগুলি

খুশী হলাম। এটি কয়েক বাইট সংরক্ষণ করে।
ডেনিস

স্কোয়ারিং রাখতে ছোট:l=2;exec"print'0x%0128x'%(2**512/-~l);l*=l;"*9
xnor

1
ভোটের নেতৃত্বে পাইথনটি দেখে আমার হৃদয়
উজ্জীবিত হয়

4
@ টুকুএক্সএক্স বিট টুইডলিং হ্যাকের সাথে আমার অনেক অভিজ্ঞতা আছে। আমি ওল্ফ্রাম আলফা প্রচুর পরিমাণে এবং এরকম সরল করার জন্য ব্যবহার করেছি। কিন্তু মূলত আমি প্যাটার্ন তৈরি 01010101, 00010001, 00000001, এবং তারপর ওই গুন 1, 11, 1111সঠিক বাইনারি নিদর্শন জন্য। উদাহরণস্বরূপ 01010101আপনি sum 2^(2*k) for k = 0, w/2 - 1এটি করে এবং এটি খুঁজে বের করে নির্দিষ্ট প্রস্থের জন্য সূত্রটি পেতে পারেন (2**w - 1)/3
orlp

7

পিএইচপি, 111 110 108 বাইট

একটি বাইট @ ব্যবহারকারী59178 এর জন্য ধন্যবাদ সংরক্ষণ করেছে।

<?=($p=str_pad)("0x",130,5).$p($s="\n0x",131,3);for($x=1;$x<65;$x*=2)echo($p($s,131,$p(0,$x,0).$p(f,$x,f)));

1024 বিটের প্যাটার্নটি কী? : ডি


1
$x<65পরিবর্তে ব্যবহার করে আপনি একটি বাইট সংরক্ষণ করতে পারেন $i++<7। এবার আমি এটি এবং সমস্ত কিছুর পরীক্ষা করেছি।
ব্যবহারকারী59178

6

রেটিনা , 43 বাইট

:`
0x128$*5
:`5
3
;{:`33
0f
0(f+)(0+)
0$2$1

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

এটি সাধারণভাবে নিচের :বিকল্পটির প্রচুর ব্যবহার করে যা আপনাকে মধ্যবর্তী ফলাফলগুলি মুদ্রণ করতে দেয়, কারণ পুরো আউটপুট তৈরির চেয়ে একক লাইনকে সংশোধন করা অনেক কম।

:`
0x128$*5

এটি 0x128 5s এর পরে খালি ইনপুটটি প্রতিস্থাপন করে এবং প্রথম লাইনটি তৈরি করতে প্রিন্ট করে।

:`5
3

এটি একের 5সাথে 3দ্বিতীয় লাইনের উত্পন্ন করার জন্য এসগুলির সাথে প্রতিস্থাপন করে এবং প্রিন্ট করে।

;{:`33
0f

এই শেষ বিশেষ-cased লাইন এবং এটি প্রতি দুই সক্রিয় 3মধ্যে গুলি 0fতৃতীয় লাইনটি তৈরি করতে। এটি শেষ দুটি পর্যায়ে ( {) পর্যায়ক্রমে একটি লুপ শুরু করে । যাইহোক, এই অবস্থার বর্তমান অবস্থা মুদ্রণ ব্যতীত প্রথম পুনরাবৃত্তির পরে কিছুই করবে না। ;শুষে প্রোগ্রাম খুব শেষে আউটপুট শেষ লাইনটি অনুরূপ এড়ানো।

0(f+)(0+)
0$2$1

এই প্রতিস্থাপনটি এখন প্রতিটি লাইনকে পরের দিকে রূপান্তরিত করে, প্রতিটি অন্যান্য fএস এবং এসকে অদলবদল করে 0। "প্রতিটি অন্যান্য জুটি" শর্তটি সামনের শূন্যের সাথে ম্যাচ করে প্রয়োগ করা হয় f, যা ম্যাচগুলি ওভারল্যাপ করতে পারে না বলে টানা জোড়া জোড়া মেলা অসম্ভব করে তোলে।


6

ভিম, 32 বাইট

i5<CR>3<Esc>qqYpVrf$<C-V>{yPG1vr0q6@q<C-V>{I0x<Esc>

আমি শুধু নিজে প্রথম লিখতে প্রয়োজন 5এবং 3, এবং ম্যাক্রো প্রতিবার এটি সঞ্চালিত হয় "বিট গণনা দ্বিগুন" বাকি যত্ন নেয়। ম্যাক্রোর ধাপগুলির ক্রমটি কিছুটা অদ্ভুত (একটি নতুন fলাইন তৈরি করুন, ব্লক-ভিত্তিক অনুলিপি করুন, লাইনের 0মধ্যে রাখার জন্য ভিজ্যুয়াল ব্লকের আকার পুনরায় ব্যবহার করুন f), তবে এটি আমার খুঁজে পাওয়া দ্রুততম বৈকল্পিক।


5

পাইথ, 26 বাইট

V9%"0x%0128x"/^2 512h^2^2N

আমার পাইথন উত্তর বন্দর।


5

জে, 46 34 বাইট

আমি এটি গল্ফ করে কাজ করছি, তবে এই শিশুটি 46 বাইটে থাকতে পছন্দ করে ... আর নয়! -12 মাইল ধন্যবাদ বাইট!

'0x',"1'5','3','0f'(128$#)"{~2^i.7

এটি অনলাইন চেষ্টা করুন! : ডি

ফল

   '0x',"1'5','3','0f'(128$#)"{~2^i.7
0x55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555
0x33333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333
0x0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f
0x00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff00ff
0x0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff0000ffff
0x00000000ffffffff00000000ffffffff00000000ffffffff00000000ffffffff00000000ffffffff00000000ffffffff00000000ffffffff00000000ffffffff
0x0000000000000000ffffffffffffffff0000000000000000ffffffffffffffff0000000000000000ffffffffffffffff0000000000000000ffffffffffffffff
0x00000000000000000000000000000000ffffffffffffffffffffffffffffffff00000000000000000000000000000000ffffffffffffffffffffffffffffffff
0x0000000000000000000000000000000000000000000000000000000000000000ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff

এই উত্তরের জন্য, আমি র‌্যাঙ্ক সহ একটি ক্রিয়া প্রয়োজন ( 0 1যাতে আদর্শ) এটি u"vর‌্যাঙ্কের সংজ্ঞাতে ব্যবহার করতে পারে ; যাইহোক, মাইল মাইল পর্যবেক্ষণ করা যা 0 _হাতের কাজটির জন্য যথেষ্ট।

┌──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┐
│= │< │<.│<:│> │>.│>:│+ │+.│+:│* │*.│*:│_ 0 0│_ 0 0│0 0 0│0 0 0│0 0 0│0 0 0│0 0 0│0 0 0│0 0 0│0 0 0│0 0 0│0 0 0│0 0 0│
├──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┤
│- │-.│-:│% │%.│%:│^ │^.│$ │$.│$:│~.│~:│0 0 0│0 _ _│0 _ _│0 0 0│2 _ 2│0 0 0│0 0 0│0 0 0│_ 1 _│_ _ _│_ _ _│_ 0 0│_ 0 0│
├──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┤
│| │|.│, │,.│,:│; │;:│# │#.│#:│! │/:│\:│0 0 0│_ 1 _│_ _ _│_ _ _│_ _ _│_ _ _│1 _ _│_ 1 _│1 1 1│_ 1 0│0 0 0│_ _ _│_ _ _│
├──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┤
│[ │[:│] │{ │{.│{:│}.│}:│".│":│? │?.│a │_ _ _│_ _ _│_ _ _│1 0 _│_ 1 _│_ 0 0│_ 1 _│_ 0 0│1 _ _│_ 1 _│0 0 0│_ 0 0│_ _ _│
├──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┤
│A │A.│b │C │C.│d │D │e │e.│E │E.│f │H │_ _ _│1 0 _│_ _ _│_ _ _│1 1 _│_ _ _│_ _ _│_ _ _│_ _ _│_ _ _│0 _ _│_ _ _│_ _ _│
├──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┤
│i │i.│i:│I │I.│j │j.│L │L.│M │o │o.│p │_ _ _│1 _ _│0 _ _│_ _ _│1 _ _│_ _ _│0 0 0│_ _ _│_ 0 0│_ _ _│_ _ _│0 0 0│_ _ _│
├──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼──┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┼─────┤
│p.│p:│q │q:│r │r.│s │s:│S │t │T │u:│x:│1 1 0│0 _ _│_ _ _│0 0 0│_ _ _│0 0 0│_ _ _│_ _ _│_ _ _│_ _ _│_ _ _│_ _ _│_ _ _│
└──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴──┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┘

এখানে আপনি নিজ নিজ স্তরের সাথে ক্রিয়াগুলির স্ট্রিং উপস্থাপনাগুলির একগুচ্ছ দেখতে পাচ্ছেন। এটি আমি তৈরি করতে ব্যবহৃত স্ক্রিপ্ট।


র‌্যাঙ্ক সহ একটি ক্রিয়া 0 _এখানে ঠিক আছে। আপনি এটিকে 34 বাইটে সংক্ষিপ্ত করতে পারেন'0x',"1'5','3','0f'(128$#)"{~2^i.7
মাইল

@ মাইলস হু আমি ভেবেছিলাম আমি চেষ্টা করেছি ... শীতল! এবং আমি জেটির অটো-রো-ফিল বৈশিষ্ট্যটি ভুলে গিয়েছি, আবারও ধন্যবাদ!
কনর ও'ব্রায়েন

4

আসলে , 25 বাইট

9r`╙╙u9╙╙\#"0x%0128x"%`Mi

এটি অনলাইন চেষ্টা করুন!

এই সমাধান যে সত্য ব্যবহার করে f(n) = 2**512//(2**2**n + 1) (যেখানে //মেঝে বিভাগ রয়েছে) মানগুলি তুলনা করতে।

ব্যাখ্যা:

9r`╙╙u9╙╙\#"0x%0128x"%`Mi
9r`╙╙u9╙╙\#"0x%0128x"%`M   for n in range(1, 10):
      9╙╙\                   2**2**9//
   ╙╙u                                (2**2**n + 1)
          #"0x%0128x"%       pad with zeroes to 128 digits, prefix with "0x"
                        i  flatten and implicitly print

4

জাভাস্ক্রিপ্ট (ফায়ারফক্স 30+), 139 113 112 92 83 83 বাইট

_=>[for(x of"970123456")(f=y=>y--?f(y)+(x>6?x-4:y>>x&1&&'f'):'0x')(128)].join`
`

শেষ পর্যন্ত পুনরাবৃত্তকারী মিষ্টি স্পটে আঘাত করুন :-) 3 বাইট ওভার বাঁচাতে হ্যান্ডি-ড্যান্ডি স্ট্রিং বোধগম্যতা ব্যবহার করে .map:

_=>[..."970123456"].map(x=>(f=y=>y--?f(y)+(x>6?x-4:y>>x&1&&'f'):'0x')(128)).join`
`

.replace এছাড়াও 83 বাইট হয়:

_=>"970123456".replace(/./g,x=>(f=y=>y--?f(y)+(x>6?x-4:y>>x&1&&'f'):'0x')(128)+`
`)

যদি শীর্ষস্থানীয় নিউলাইনটির অনুমতি দেওয়া হয় তবে এটি 80 বাইটও হবে:

_=>"970123456".replace(/./g,x=>(f=y=>y--?f(y)+(x>6?x-4:y>>x&1&&'f'):`
0x`)(128))


3

বুবলগাম , 65 বাইট

00000000: c5cb 4501 0441 1043 d17b d4fc 254b d110  ..E..A.C.{..%K..
00000010: f7cb 9761 9e7a 8d45 e451 4ce4 564c 04d7  ...a.z.E.QL.VL..
00000020: 2e11 b02b 8f08 80df aa5e 11fe fc77 762c  ...+.....^...wv,
00000030: 428b 5b8e ae8b 30c1 13b6 ce8b b091 377a  B.[...0.......7z
00000040: 01                                       .

বাধ্যতামূলক বুদবুদ উত্তর।


3

Haskell,, 84 72 বাইট

@ অরল্পের উত্তর পোর্টিং:

import Text.Printf
mapM(\n->printf"0x%0128x\n"$div(2^2^9)$2^2^n+1)[0..8]

পাওয়ার ব্যতীত 94 বাইট বিকল্প Text.Printf:

import Data.List
mapM(putStrLn.("0x"++))$transpose$("53"++).reverse<$>sequence(["0f"]<*[1..7])

r=[0..127]
mapM(putStrLn.("0x"++))$('5'<$r):('3'<$r):[["0f"!!mod(div x(2^y))2|x<-r]|y<-[0..6]]

@nimi উপস, লোড ছিল আবশ্যক Control.MonadREPL হবে। সংশোধন করা হয়েছে।
অ্যাঙ্গস

3

পাওয়ারশেল ভি 2+, 68 বাইট

5,3|%{"0x"+"$_"*128}
($a=1)..7|%{"0x"+('0'*$a+'f'*$a)*(128/($a*=2))}

পাওয়ারশেলের ব্যবহার ছাড়াই নির্বিচারে যথার্থ পূর্ণসংখ্যা নেই [bigint] কলগুলি এবং সেগুলি সহজেই হেক্সাডেসিমালে রূপান্তর করা যায় না, সুতরাং আমরা পরিবর্তে এটি স্ট্রিং-ভিত্তিক চ্যালেঞ্জ হিসাবে বিবেচনা করছি।

প্রথম লাইনটি পুনরাবৃত্তি পরিচালনা করে 5এবং 3কেবল একটি স্ট্রিং গুণ করে128 অক্ষরে অক্ষরে0x করে এবং সামনের দিকে একটি ট্যাক করে।

পরের লাইনে থেকে লুপ $a=1হয়7 , প্রতিটি পুনরাবৃত্তি অন্য স্ট্রিং আউটপুট করে। আবার আমরা আছে 0xসামনে সম্মুখের tacked, এবং আমরা মাঝখানে স্ট্রিং গুণ করছেন যথাযথ সংখ্যা গঠন করা 0এবং fএকসঙ্গে ঘনিভূত, এবং তারপর এর স্ট্রিং গুণ করছেন যে অক্ষর উপযুক্ত নম্বরে বাইরে। নোট করুন আমরা $aএখানে ভেরিয়েবল ব্যবহার করছি , এবং লুপের কাউন্টারটি ব্যবহার $_করি না, তাই আমরা সঠিকভাবে স্কেল করতে পারি (অন্যথায় আমাদের মতো লুপ দরকার 1,2,4,8,16,32,64|%{...}যা দীর্ঘ longer

ফলস্বরূপ স্ট্রিংগুলি পাইপলাইনে ফেলে রাখা Write-Outputহয় এবং উপাদানগুলির মধ্যে একটি নতুন লাইন সহ প্রোগ্রামের সমাপ্তির পরে ফলাফলের মাধ্যমে আউটপুট ঘটে happens


3

ভী , 43 বাইট

64i0fòYpÓ¨¨0«©¨f«©©û2}/²²³³òdd{3ÄÒ5jÒ3Îi0x

এটি অনলাইন চেষ্টা করুন!

এটি কোনও ভি উত্তরের মধ্যে আমার দরকার দীর্ঘতম সংকোচিত রেজেক্সগুলির একটি ব্যবহার করে। এখানে আরও পঠনযোগ্য সংস্করণ, যেখানে আমি পঠনযোগ্য রেইগেক্সগুলির জন্য একটি বাইট যুক্ত করেছি এবং অপ্রিনিতযোগ্য রক্ষা চরিত্রটি এতে পরিবর্তন করেছি<esc>

64i0f<esc>òYpÓö((0+)(f+)){2}/²²³³òdd{3ÄÒ5jÒ3Îi0x

ব্যাখ্যা (পঠনযোগ্য সংস্করণ ব্যবহার করে):

64i0f<esc>                                          " Insert 64 "0f"s and escape to normal mode
          ò                      ò                  " Recursively:
           Yp                                       "   Duplicate this line
             Ó                                      "   Substitute:
              ö                                     "     (Optionally Turn the readable version on)
               ((0+)(f+))                           "     One or more '0's followed by one or more 'f's
                         {2}                        "     Repeated twice
                            /                       "   With:
                             ²²                     "     The second capture group twice (the '0's)
                               ³³                   "     Followed by the third capture group twice (the 'f's)
                                                    "   Once the search is not found, the loop will break
                                  dd                " Delete a line (because we have one too many)
                                    {               " Move to the first line
                                     3Ä             " Make three copies of this line
                                       Ò5           " Replace the first one with '5's
                                         jÒ3        " Move down a line and replace the second with '3's
                                            Î       " On every line:
                                             i0x    "   Insert a '0x'

3

জাভাস্ক্রিপ্ট (ES6), 74 72 70 বাইট

Alচ্ছিক ট্রেলিং নিউলাইন অন্তর্ভুক্ত।

f=(i=1152)=>i--?f(i)+(i&127?'':`
0x`)+('53'[y=i>>7]||i&1<<y-2&&'f'):''



2

ব্যাচ, 216 বাইট

@echo off
set s=5
call:c
set s=3
call:c
set a=0
set b=f
for /l %%i in (1,1,7)do call:l %%i
exit/b
:l
set s=%a%%b%
:c
for /l %%j in (0%1,1,6)do call set s=%%s%%%%s%%
echo 0x%s%
set a=%a%%a%
set b=%b%%b%

2

ভিম 72 বাইট

i0x128a5Ypll128r3o0x64a0fa0Ypqqffdt0fft0p@qq@qqwYp@qq@w@w@w@w:%s/0$

TryItOnline!

Unprintables:

i0x^[128a5^[Ypll128r3o0x^[64a0f^[a0^[Ypqqffdt0fft0p@qq@qqwYp@qq@w@w@w@w:%s/0$

@wশেষে 4 জন আমাকে বগ করছে, কিন্তু যেহেতু আমি @qএকটি লাইনের শেষে ব্যর্থ হওয়ার জন্য নির্ভর করছিলাম , এটি @ ডাব্লুটিকেও ব্যর্থ করে। আমি সম্ভবত 32 বার কিউ চালানোর চেষ্টা করব এবং এটি পরে লাইনগুলিতে গণ্ডগোল হয়েছে কিনা তা দেখার জন্য।



2

ব্রেনফাক , 211 বাইট

+++++++>++>>-[>>>>+<<++<+<-----]>--->>++++++++++>++<<<<<<[->----[>+++<--]>-->.<.++++++++[->>>>.<<<<]>>>.>--[<]<<]+<[->>----[>+++<--]>-->.<.++++++++[<<[>+>->.<<<-]>[<+>>->>.<<<-]>]>>>.<<<<[-<+>]<[->++<]>[-<+>]<<]

এটি অনলাইন চেষ্টা করুন!


1
কিছু ভিন্ন লুপ চেকের মাধ্যমে 197 বাইট । আমি নিশ্চিত যে xজেনারেটরটি এখন লুপের বাইরে সরানো যেতে পারে
জো কিং



1

সি #, 168 বাইট

()={string R="",o="0",f="f";for(int i=0,j;i<9;i++){R+="0x";if(i>2){o+=o;f+=f;}for(j=0;j<128;){R+=i<1?"5":i<2?"3":o+f;j+=i>1?(int)Math.Pow(2,i-1):1;}R+="\n";}return R;};

1

স্ট্যাক্স , 19 বাইট

⌡hÅék╝94"ºé♪╛#V┐5í╒

এটি চালান এবং এটি ডিবাগ করুন

আনপ্যাকড, নিরবচ্ছিন্ন এবং মন্তব্য করা হয়েছে, এটি দেখতে এমন দেখাচ্ছে।

512r        [0..511]
{:Brm       convert each to bits and reverse each
M           transpose matrix, filling missing elements in rectangle with zero
m           map over each element of array, using the rest of the program.  outputs implicitly.
  4/        split bits into groups of 4
  {:b|Hm    convert each 4-bit binary number to single digit hex string
  .0xp      print "0x" without newline

এটি চালান


আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.