ভূমিকা

এক্সওআর একটি ডিজিটাল লজিক গেট যা একটি এক্সক্লুসিভ বা কার্যকর করে। বেশিরভাগ সময়, এটি হিসাবে প্রদর্শিত হয় ^। বাইনারি সম্ভাব্য চারটি ফলাফল:

0 ^ 0 = 0
0 ^ 1 = 1
1 ^ 0 = 1
1 ^ 1 = 0

বাইনারি এটিকে অতিরিক্ত মডুলো 2 হিসাবেও দেখা যেতে পারে। দশমিক, আমাদের দশমিককে বাইনারি রূপান্তর করতে হবে, 35 = 100011এবং 25 = 11001। XOR মান গণনা করার জন্য, আমরা এগুলিকে একে অপরের উপরে স্থাপন করেছি:

100011
 11001 ^
--------
111010  = 58 in decimal

কাজটি : যখন 1 এর চেয়ে বড় পূর্ণসংখ্যা N প্রদান করা হয়, তখন N + 1 আকারের সাথে একটি XOR টেবিল আউটপুট করুন উদাহরণস্বরূপ, এন = 5:

 0 1 2 3 4 5
 1 0 3 2 5 4
 2 3 0 1 6 7
 3 2 1 0 7 6
 4 5 6 7 0 1
 5 4 7 6 1 0

আপনি দেখতে পাচ্ছেন যে প্রতিটি সংখ্যার সামনে একটি জায়গা রয়েছে, কারণ সারণীতে সর্বাধিক পরিমাণের দৈর্ঘ্য 1 রয়েছে। তবে, আমরা N = 9 নিলে আমরা নীচের গ্রিডটি পেয়েছি:

  0  1  2  3  4  5  6  7  8  9
  1  0  3  2  5  4  7  6  9  8
  2  3  0  1  6  7  4  5 10 11
  3  2  1  0  7  6  5  4 11 10
  4  5  6  7  0  1  2  3 12 13
  5  4  7  6  1  0  3  2 13 12
  6  7  4  5  2  3  0  1 14 15
  7  6  5  4  3  2  1  0 15 14
  8  9 10 11 12 13 14 15  0  1
  9  8 11 10 13 12 15 14  1  0

সর্বোচ্চ মানটির দৈর্ঘ্য 2 থাকে, সুতরাং মানটি 3 দৈর্ঘ্যে ডান-সংযুক্ত থাকে (সর্বোচ্চ দৈর্ঘ্য + 1)

নিয়মাবলী:

শীর্ষস্থানীয় হোয়াইটস্পেস বাধ্যতামূলক নয়, কেবলমাত্র যদি ধারাবাহিকভাবে ব্যবহৃত হয় (বা না হয়)
আপনাকে অবশ্যই উপরে প্রদর্শিত ফর্মটিতে একটি সারণী আউটপুট করতে হবে।
কলামগুলির মধ্যে প্যাডিং যতটা সম্ভব ছোট হওয়া উচিত
এটি কোড-গল্ফ , তাই সর্বনিম্ন পরিমাণ বাইটের সাথে জমাটি জয়!

code-golf grid bitwise

— আদনান
সূত্র

কলামগুলির মধ্যে কত প্যাডিং অনুমোদিত? কেবলমাত্র সর্বনিম্ন সম্ভাব্য পরিমাণ?

— মার্টিন এন্ডার

@ মার্টিনব্যাটনার হ্যাঁ, সম্ভাব্যতম পরিমাণ। আমি এটি বিবরণে যুক্ত করব।

— আদনান

সম্পর্কিত কোডগল্ফ.স্ট্যাকেক্সেঞ্জঞ্জ

— প্রশ্নগুলি /

উদাহরণগুলি দেখুনoutput an XOR table with the size N+1

— edc65

এন এর সর্বাধিক মান কত? ... (এন == 1000000 এর জন্য টেবিলের আকার 10 টেরাবাইটের কাছাকাছি হবে)

— edc65

12

এমএটিএল , 10 বাইট

0i2$:tXgZ~

সংকলকটি (এবং বিশেষত এই প্রোগ্রামটি) এখন অক্টোবায় কাজ করছে বলে মনে হচ্ছে যদিও এর এখনও কিছু সংশোধন প্রয়োজন। আপনি এই গিটহাব কমিটিকে অস্থায়ীভাবে ব্যবহার করতে পারেন ।

সম্পাদনা (30 মার্চ '16) : এটি অনলাইনে চেষ্টা করুন!

উদাহরণ

>> matl 0i2$:tXgZ~
> 9
0  1  2  3  4  5  6  7  8  9
1  0  3  2  5  4  7  6  9  8
2  3  0  1  6  7  4  5 10 11
3  2  1  0  7  6  5  4 11 10
4  5  6  7  0  1  2  3 12 13
5  4  7  6  1  0  3  2 13 12
6  7  4  5  2  3  0  1 14 15
7  6  5  4  3  2  1  0 15 14
8  9 10 11 12 13 14 15  0  1
9  8 11 10 13 12 15 14  1  0

ব্যাখ্যা

0i2$:       % vector 0, 1, 2, ... up to input number
t           % duplicate
Xg          % nd-grid
Z~          % bitxor

— লুইস মেন্ডো
সূত্র

সংকলন শীঘ্রই অক্টোবায় কাজ করছে ...

— লুইস মেন্ডো

... ভাল, আশা করি। এই সম্পর্কে কোন ধারণা , কেউ?

— লুইস মেন্ডো

5

কাজের জন্য অবশ্যই সঠিক সরঞ্জাম। +1

— একটি স্প্যাগেটো

1

কিছু টুইট করার পরে, সংকলকটি অক্টোবায় (4.0.0) কাজ করবে বলে মনে হচ্ছে। আমার আরও টেস্টিং করা দরকার, তবে আমি চেষ্টা করেছি এমন সমস্ত প্রোগ্রাম, এটি সহ, কাজ করে। আমি একটি নতুন প্রকাশের সময় পোস্ট করার সময়, অষ্টাভের মধ্যে এই কোডটি চালানোর জন্য বর্তমান গিটহাবের প্রতিশ্রুতিবদ্ধতার একটি লিঙ্ক এখানে । ভাষা পরিবর্তন হয়নি (এটি এখনও 5.0.0 প্রকাশিত হয়), সুতরাং এটি এই চ্যালেঞ্জের চেয়ে আগের

— লুইস মেন্ডো

5

বাশ + বিএসডি ব্যবহার, 45

eval echo \$[{0..$1}^{0..$1}]|rs -jg1 $[$1+1]

এর জন্য একটি ব্যবহারের সন্ধান করতে আমি দীর্ঘ সময় অপেক্ষা করছিলাম rs। এটি একটি ভাল বলে মনে হচ্ছে। rsলিনাক্স সিস্টেমে ইনস্টল করার প্রয়োজন হতে পারে। তবে এটি ওএস এক্সের বাক্সের ঠিক বাইরে চলেছে।

$1N তে প্রসারিত হয় এবং এভাবে echo \$[{0..$1}^{0..$1}]প্রসারিত হয়echo $[{0..N}^{0..N}]
এটি তখন evalসম্পাদনা করা হয়:
বন্ধনী সম্প্রসারণ প্রসারিত হয় $[0^0] $[0^1] $[0^2] ... $[0^N] ... $[N^N]
এটি এক্সওর গাণিতিক বিস্তারের একটি সিরিজ যা শর্তগুলির এক লাইনে প্রসারিত
rs(পুনঃ আকার) এই লাইনটিকে N + 1 সারিগুলিতে পুনরায় আকার দেয়। -jডান ন্যায্যতা -g1দেয় , এবং একটি জলের প্রস্থ 1 দেয়। এটি নিশ্চিত করে যে চূড়ান্ত আউটপুট টেবিলের কলামগুলির মধ্যে ন্যূনতম প্রস্থ রয়েছে।

আমি এন = 1000 পর্যন্ত পরীক্ষা করেছি, যা 3.8 সেকেন্ড সময় নিয়েছে। লার্জ এন তাত্ত্বিকভাবে সম্ভব, যদিও ব্যাসটি ব্রেস প্রসারণের (N + 1) ² মেমরির ব্যবহারের সাথে মেমরির কোনও পর্যায়ে চলে যাবে।

— ডিজিটাল ট্রমা
সূত্র

4

সি, 114 128 152

সরলিকৃত স্থান গণনা সম্পাদনা করুন , খালেদ এ খুনায়েফারের কাজ থেকে অনুপ্রাণিত

এসি ফাংশন যা চশমা অনুসরণ করে।

T(n){int i=0,j,x=1,d=0;while(x<=n)x+=x,++d;for(;i<=n;i++)for(j=0;j<=n;j++)printf("%*d%c",d*3/10+1,i^j,j<n?32:10);}

এটি ডিফল্ট 9 হিসাবে ইনপুট হিসাবে এন প্রবেশ করার চেষ্টা করুন

কম গল্ফড

T(n)
{
   int i=0, j, x=1,d=0;
   while(x<=n) x+=x,++d; // count the digits
   // each binary digit is approximately 0.3 decimal digit
   // this approximation is accurate enough for the task
   for(;i<=n;i++)
     for(j=0;j<=n;j++)
       printf("%*d%c",d*3/10+1,
              i^j,
              j < n ? 32:10); // space between columns, newline at end
}

— edc65
সূত্র

3

জাভাস্ক্রিপ্ট (ES6) 120 122

2 বাইট সংরক্ষণ করুন THX ETH প্রোডাকশনগুলি

একটি বেনামে ফাংশন। দ্রষ্টব্য: টেবিলের সংখ্যাটি digit ডিজিটের মধ্যে সীমাবদ্ধ, এটি একটি সংখ্যার বড় আকারের জন্য সারণীর সামগ্রিক আকারের চেয়ে যুক্তিসঙ্গত চেয়ে বেশি

লগারিদম এড়িয়ে সর্বোচ্চ কলামগুলির আকার পাওয়ার জন্য এখন আমার একটি আরও ছোট উপায় খুঁজে পাওয়া উচিত

n=>(a=Array(n+1).fill(-~Math.log10(2<<Math.log2(n)))).map((m,i)=>a.map((z,j)=>`       ${i^j}`.slice(~m)).join``).join`
`

পরীক্ষা

f=n=>(a=Array(n+1).fill(-~Math.log10(2<<Math.log2(n)))).map((m,i)=>a.map((z,j)=>`       ${i^j}`.slice(~m)).join``).join`\n`

function update() {
  var v=+I.value
  O.textContent = f(v)
}  

update()

N: <input id=I type=number value=9 oninput='update()'>
<pre id=O></pre>

স্নিপেট প্রসারিত করুন

— edc65
সূত্র

আশ্চর্যজনক, ~mএকটি অতিরিক্ত স্থান ক্যাপচারের ব্যবহার পছন্দ করুন । একটি টেম্পলেট স্ট্রিং ব্যবহার করে দুটি বাইট সংরক্ষণ করতে পারে:(z,j)=>`(7 spaces)${i^j}`.slice(~m)

— ETH প্রোডাকশনগুলি

@ ইথ প্রডাকশনস 1) ভাল পরামর্শ, ধন্যবাদ 2) আপনি কীভাবে একটি ... (আমি এটি জিজ্ঞাসা করতেও পারি না) ... 2 চর (96) এর ভিতরে একটি চর (96) রাখার ব্যবস্থা কীভাবে করেছিলেন?

— edc65

আহা, আপনি ঠিক (ignore this padding) ``abc`def`` (ignore this too)abc`def

— তেমন

3

সি, 149 বাইট

int i=0,j,n,k=2;char b[256];scanf("%d",&n);while((k*=2)<=n);k^=k-1;while(i++<=n&&putchar(10))for(j=0;j<=n;j++)printf(" %*d",sprintf(b,"%d",k),i-1^j);
---------

বিশদ

#include <stdio.h>

int main()
{
    int i=0, j, n, k=2;
    char b[256] = { 0 };

    scanf("%d", &n);

    // find max xor value in the table
    while((k*=2)<=n); k^=k-1;

    printf("> %d ~ %d", k, sprintf(b,"%d",k));

    while(i++ <= n && putchar(10))
    {
        for(j = 0; j <= n;j++)
        {
            printf(" %*d", sprintf(b,"%d",k), (i-1)^j);
        }
    }

    return 0;
}

— Khaled.K
সূত্র

1

ঠিক আপনার জাভা পোস্টের মতোই কলামগুলি সঠিকভাবে সারিবদ্ধ করার চেষ্টা করা হয়নি। এটাই এই চ্যালেঞ্জের একমাত্র কঠিন অঙ্গ । <8 বা> 64 ইনপুট দেওয়ার সময় এই কোডটি ভুল আউটপুট দেয়

— edc65

@ এডসি 65 আমি কীভাবে প্রান্তিককরণ করব তা জানতে পেরেছি, 11..1ইনপুট মানের ক্ষেত্রে সর্বাধিক জোরের মানটি বাইনারি হয় n, প্রথমে 2 এর নিকটতম শক্তি খুঁজে বের করে, তারপরে এটি পূর্ববর্তী সংখ্যার সাথে 0001 xor 1110 = 1111

— জোর করে

ভাল, আপনি এখন সঠিক পথে রয়েছেন। তবুও, আপনার আরও পরীক্ষা করা উচিত: কে দিয়ে লুপটি এন = 8 এর জন্য ভুল ফলাফল দেয় (এবং আপনার সংক্ষিপ্ত উত্তরটি স্থানীয় ভেরিয়েবল i থেকে 0 তে আরম্ভ করে না)

— edc65

এই সহজ লুপটি করা উচিত : for(k=1;k<=n;)k*=2;k--;. এখন আমি দেখতে পাচ্ছি যে এটির চেয়ে আমার সি প্রচেষ্টার চেয়ে অনেক ছোট (পারফরম্যান্সের জন্য আমার খনি ভাল, তবে এই চ্যালেঞ্জের মধ্যে পারফরম্যান্স কিছু যায় আসে না)

— edc65

@ edc65 আপনার 2^k xor 2^k -1জন্য max{2^k<=n}বা এর 2^k -1জন্য প্রয়োজন min{2^k>=n}। 11..1সেখানে সব পেতে

— খালেদ.কে

3

সি, 103 বাইট

Y(n){int i,j=n++;char*f="%2u";while(j/=8)++f[1];for(;j<n;++j,puts(""))for(i=0;i<n;++i)printf(f,i^j);}

— Ros
সূত্র

1

প্রোগ্রামিং ধাঁধা এবং কোড গল্ফ স্বাগতম! আমি যা দেখতে পাচ্ছি তার জন্য, আপনার উত্তরটি, দুর্ভাগ্যক্রমে এখানে আরো অনেকে, কলামের প্রান্তিককরণ বিন্দুটি সম্পূর্ণ মিস করে miss

— edc65

ইনপুট 5 (কলামগুলির মধ্যে খুব বেশি স্থান) বা 65 (খুব কম) দিয়ে এটি ব্যবহার করে দেখুন

— edc65

এটি সর্বশেষে এখানে 512 অবধি ঠিক থাকবে, শেষ এখানে ...

— রোজ

3

জেলি, অ-প্রতিযোগিতামূলক

7 বাইট এই উত্তরটি প্রতিদ্বন্দ্বিতামূলক নয়, কারণ এটি এমন বৈশিষ্ট্যগুলি ব্যবহার করে যা চ্যালেঞ্জ পরবর্তী পোস্ট করে দেয়।

0r©^'®G

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

কিভাবে এটা কাজ করে

0r©^'®G  Main link. Input: n (integer)

0r       Range; yield [0, ..., n].
  ©      Save the range in the register.

     ®   Yield the range from the register.
   ^'    XOR each integer in the left argument with each integer in the right one.
      G  Grid; separate rows by newlines, columns by spaces, with a fixed width for
         all columns. Since the entries are numeric, align columns to the right.

— ডেনিস
সূত্র

2

আপনার 1000 তম জবাবের জন্য অভিনন্দন :)

— আদনান

3

আর, 38 বাইট

সাধারণত আর আউটপুট ফর্ম্যাট করতে অনেকগুলি বাইট প্রয়োজন by এই ক্ষেত্রে এটি সম্পূর্ণ বিপরীত। outerযা সাধারণত দুটি অ্যারের বাইরের পণ্যকে বোঝায়, যখন কোনও ফাংশন সরবরাহ করা হয় তখন এটি ভেক্টরের মার্জিন জুড়ে এটি সম্পাদন করতে পারে। এই ক্ষেত্রে, আমরা বিটওয়াইস এক্সওআর ফাংশনটি প্রয়োগ করি bitwXor।

names(x)=x=1:scan();outer(x,x,bitwXor)

— Billywob
সূত্র

2

সিজেম, 29 27 বাইট

ri:X),_ff{^s2X2b,#s,)Se[}N*

এটি এখানে পরীক্ষা করুন।

ব্যাখ্যা

ri      e# Read input and convert to integer.
:X      e# Store in X.
),      e# Get range [0 1 ... X].
_ff{    e# Nested map over all repeated pairs from that range...
  ^     e#   XOR.
  s     e#   Convert to string.
  2     e#   Push 2.
  X2b,  e#   Get the length of the base-2 representation of X. This is the same as getting
        e#   getting the base-2 integer logarithm and incrementing it.
  #     e#   Raise 2 to that power. This rounds X up to the next power of 2.
  s,    e#   Convert to string and get length to determine column width.
  )     e#   Increment for additional padding.
  Se[   e#   Pad string of current cell from the left with spaces.
}
N*      e# Join with linefeeds.

— মার্টিন ইন্ডার
সূত্র

ঠিক আছে, তাড়াতাড়ি হাহা হয়েছিল

— আদনান

2

ম্যাথক্যাড, 187 বাইট

ম্যাথক্যাড সহজে টেবিলগুলিতে নির্মিত হ্যান্ডেলগুলি - তবে একেবারে বিটওয়াইস জোর নয়, ডেসিমাল থেকে বাইনারি বা বাইনারি থেকে দশমিক রূপান্তরকারী। ফাংশনগুলির জন্য সম্ভাব্য মানগুলির মাধ্যমে পুনরাবৃত্তি হয়। I, a2, Xa এবং Xb প্লে রাখে। সময় লুপটি সক্রিয়ভাবে বাইনারি রূপান্তরিত করে এবং বাইনারি রূপান্তর করার সময় জোওর ফাংশনও সম্পাদন করে (চারপাশের বৃত্তটির সাথে সামান্য ক্রস)। এটি বাইনারি নম্বর 0 এবং 1 এর সমন্বিত একটি বেস -10 নম্বরে সংরক্ষণ করে। এর পরে সামিট ফাংশনের মাধ্যমে এম ম্যাট্রিক্সে সংরক্ষণের আগে এটি রূপান্তরিত হয়।

এটি সহজেই গল্ফ করা যেতে পারে (কেবলমাত্র সংক্ষিপ্ত স্থানগুলির জন্য স্থানধারীদের অদল-বদল করে) তবে আমি বুঝতে পেরেছিলাম যে আমি এটি পোস্ট করেছি এবং যদি কেউ বাইনারি থেকে ডেসিমাল রূপান্তরকারীকে অন্য কোনও কিছুর চেয়ে আরও বেশি গল্ফ করতে পারে কিনা তা দেখেছি।

— ছাপ
সূত্র

2

k4, 50 বাইট

{-1@" "/:'(-|//#:''x)$x:$2/:''~x=/:\:x:0b\:'!1+x;}

উদাহরণ:

  {-1@" "/:'(-|//#:''x)$x:$2/:''~x=/:\:x:0b\:'!1+x;}9
 0  1  2  3  4  5  6  7  8  9
 1  0  3  2  5  4  7  6  9  8
 2  3  0  1  6  7  4  5 10 11
 3  2  1  0  7  6  5  4 11 10
 4  5  6  7  0  1  2  3 12 13
 5  4  7  6  1  0  3  2 13 12
 6  7  4  5  2  3  0  1 14 15
 7  6  5  4  3  2  1  0 15 14
 8  9 10 11 12 13 14 15  0  1
 9  8 11 10 13 12 15 14  1  0

— হারুন ডেভিস
সূত্র

2

পাইথন 3, 133 131 বাইট

import math
n=int(input())
r,p=range(n+1),print
for y in r:[p(end='%%%dd '%len(str(2**int(math.log2(n)+1)-1))%(x^y))for x in r];p()

— Cyoce
সূত্র

1

গণিত, 108 বাইট

StringRiffle[Thread[Map[ToString,a=Array[BitXor,{#,#}+1,0],{2}]~StringPadLeft~IntegerLength@Max@a],"
"," "]&

ত্রুটি উপেক্ষা করুন, এটি Threadকী করছে তা কেবল তা জানে না।

— LegionMammal978
সূত্র

1

ইমাস লিস্প, 193 বাইট

(defun x(n)(set'a 0)(set'n(1+ n))(while(< a n)(set'b 0)(while(< b n)(princ(format(format"%%%ss "(ceiling(log(expt 2(ceiling(log n 2)))10)))(logxor a b)))(set'b(1+ b)))(set'a(1+ a))(message"")))

Ungolfed:

(defun x(n)
  (set'a 0)
  (set'n(1+ n))
  (while(< a n)
    (set'b 0)
    (while(< b n)
      (princ
        (format
          ;; some format string magic to get the length of the longest
          ;; possible string as a format string
          (format "%%%ss " (ceiling(log(expt 2(ceiling(log n 2)))10)))
          (logxor a b)))
      (set'b(1+ b)))
    (set'a(1+ a))
    ;; new line
    (message"")))

আউটপুটটি *Message*বাফারে প্রেরণ করা হয় , এটি stdoutযদি xকোনও স্ক্রিপ্টের অভ্যন্তরে ব্যবহৃত হয়।

(x 9)
 0  1  2  3  4  5  6  7  8  9 
 1  0  3  2  5  4  7  6  9  8 
 2  3  0  1  6  7  4  5 10 11 
 3  2  1  0  7  6  5  4 11 10 
 4  5  6  7  0  1  2  3 12 13 
 5  4  7  6  1  0  3  2 13 12 
 6  7  4  5  2  3  0  1 14 15 
 7  6  5  4  3  2  1  0 15 14 
 8  9 10 11 12 13 14 15  0  1 
 9  8 11 10 13 12 15 14  1  0

— লর্ড ইউয়ুমা
সূত্র

1

পাইথন 2, 114 বাইট

ভেরিয়েবল-প্রস্থের প্যাডিং করার উপায় খুঁজতে .format()কিছুটা লাগছিল (কিছু, খুব বেশি নয়) এবং এটি ডান-অ্যাডজাস্ট করা হয়েছে, তবে আমার মনে হয় আমি এখনই এটি অনুমান করার জন্য পেয়েছি। যদিও প্রস্থের গণনায় আরও গল্ফিং ব্যবহার করতে পারে।

N=input()+1
for i in range(N):print''.join(' {n:>{w}}'.format(w=len(`2**(len(bin(N))-2)`),n=i^r)for r in range(N))

— Sherlock9
সূত্র

1

ক্যাচ অবজেক্টস্ক্রিপ্ট , 127 বাইট

x(n)s w=$L(2**$bitfind($factor(n),1,100,-1))+1 f i=0:1:n { w $j(i,w) } f i=1:1:n { w !,$j(i,w) f j=1:1:n { w $j($zb(i,j,6),w) } }

বিশদ:

x(n)
 set w=$Length(2**$bitfind($factor(n),1,100,-1))+1
 for i=0:1:n {
     write $justify(i,w)
 }
 for i=1:1:n {
     write !,$justify(i,w)
     for j=1:1:n {
         write $justify($zboolean(i,j,6),w)
     }

 }

— adaptun
সূত্র

1

পাইক, 8 বাইট (প্রতিযোগী নয়)

hD]UA.&P

ব্যাখ্যা:

         - auto-add eval_or_not_input() to the stack
h        - increment the input
 D]      - Create a list containing [inp+1, inp+1]
   U     - Create a 2d range 
    A.^  - Deeply apply the XOR function to the range
       P - print it out prettily

এখানে চেষ্টা করুন

— নীল
সূত্র

0

পাইথন 2, 77 বাইট

n=input()+1
t=range(n)
for i in t: print "%3d"*n % tuple([x^i for x in t])

— pbochniak
সূত্র

3

প্রোগ্রামিং ধাঁধা এবং কোড গল্ফ স্বাগতম! আমি যা দেখতে পাচ্ছি তার জন্য, আপনার উত্তরটি হিসাবে দুর্ভাগ্যক্রমে এখানে আরও অনেকে, সম্পূর্ণরূপে কলাম অ্যালাইনমেন্ট পয়েন্টটি মিস করে।

— বিড়াল 14

0

জে , 10 বাইট

XOR/~@,~i.

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

— FrownyFrog
সূত্র

0

এক্সেল ভিবিএ, 95 বাইট

বেনামে VBE তাত্ক্ষণিক উইন্ডো ফাংশন যা [A1]কনসোলে পরিসর এবং আউটপুটগুলি থেকে ইনপুট নেয় ।

For y=0To[A1]:For x=0To[A1]:z=x Xor y:?Spc([Len(2^-Int(-Log(A1,2)))]-Len(z))Str(z);:Next:?:Next

— টেলর স্কট
সূত্র

0

ছোট বেসিক , 499 বাইট

একটি স্ক্রিপ্ট যা TextWindowঅবজেক্ট থেকে ইনপুট নেয় এবং একই সাথে আউটপুট নেয়

a=TextWindow.Read()
For y=0To a
For x=0To a
n=x
b()
z1=z
n=y
b()
l=Math.Max(Array.GetItemCount(z),Array.GetItemCount(z1))
o=0
For i=1To l
If z1[i]<>z[i]And(z[i]=1Or z1[i]=1)Then
z2=1
Else 
z2=0
EndIf
o=o+z2*Math.Power(2,i-1)
EndFor
TextWindow.Write(Text.GetSubText("      ",1,Text.GetLength(Math.Power(2,Math.Ceiling(Math.Log(a)/Math.Log(2))))-Text.GetLength(o))+o+" ")
EndFor
TextWindow.WriteLine("")
EndFor
Sub b
z=0
c=0  
While n>0
c=c+1
z[c]=Math.Remainder(n,2)
n=Math.Floor(n/2)
EndWhile
EndSub

স্মলব্যাসিক ডটকম এ চেষ্টা করুন ব্যবহার করে সিলভারলাইট ব্যবহার করে এবং তাই অবশ্যই আইই বা এজতে চালানো উচিত

কালো কনসোলটি নির্বাচন করুন, তারপরে ইনপুট পূর্ণসংখ্যা টাইপ করুন এবং টিপুন Enter।

— টেলর স্কট
সূত্র

0

পার্ল 5 `-n` , 62 বাইট

for$i(0..$_){printf+(" %".(0|log).d)x($_+1).$/,map$_^$i,0..$_}

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

— Xcali
সূত্র

একটি এক্সওআর টেবিল উত্পাদন করুন

ভূমিকা

এমএটিএল , 10 বাইট

উদাহরণ

ব্যাখ্যা

বাশ + বিএসডি ব্যবহার, 45

সি, 114 128 152

জাভাস্ক্রিপ্ট (ES6) 120 122

সি, 149 বাইট

সি, 103 বাইট

জেলি, অ-প্রতিযোগিতামূলক

কিভাবে এটা কাজ করে

আর, 38 বাইট

সিজেম, 29 27 বাইট

ব্যাখ্যা

k4, 50 বাইট

পাইথন 3, 133 131 বাইট

গণিত, 108 বাইট

ইমাস লিস্প, 193 বাইট

পাইথন 2, 114 বাইট

ক্যাচ অবজেক্টস্ক্রিপ্ট , 127 বাইট

পাইক, 8 বাইট (প্রতিযোগী নয়)

পাইথন 2, 77 বাইট

জে , 10 বাইট

এক্সেল ভিবিএ, 95 বাইট

ছোট বেসিক , 499 বাইট

পার্ল 5 -n , 62 বাইট

পার্ল 5 `-n` , 62 বাইট