Introducción

XOR es una puerta lógica digital que implementa un exclusivo o. La mayoría de las veces, esto se muestra como ^. Los cuatro resultados posibles en binario:

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

Esto también puede verse como módulo de adición 2 en binario. En decimal, necesitamos convertir el decimal a binario, 35 = 100011y 25 = 11001. Para calcular el valor XOR, los colocamos uno encima del otro:

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

La tarea : cuando se le da un valor entero N mayor que 1, genera una tabla XOR con el tamaño N + 1. Por ejemplo, N = 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

Puede ver que hay un espacio delante de cada número, porque la cantidad más alta en la tabla tiene longitud 1. Sin embargo, si tomamos N = 9, obtenemos la siguiente cuadrícula:

  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

El valor más alto tiene longitud 2, por lo que el valor está alineado a la derecha con la longitud 3 (longitud más alta + 1).

Reglas:

• Los espacios en blanco iniciales no son obligatorios, solo si se usan (o no) de manera consistente
• Debe generar una tabla en la forma que se muestra arriba.
• El relleno entre columnas debe ser lo más pequeño posible
• Este es el código de golf , por lo que gana el envío con la menor cantidad de bytes.

MATL , 10 bytes

0i2$:tXgZ~

El compilador (y en particular este programa) ahora parece funcionar en Octave, aunque todavía necesita un poco de refinamiento. Puede usar provisionalmente esta confirmación de GitHub .

Editar (Mar 30 '16) : ¡ Pruébelo en línea!

Ejemplo

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

Explicación

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

Bash + BSD utils, 45

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

He estado esperando mucho tiempo para encontrar un uso rs. Esto parece ser bueno. rsEs posible que deba instalarse en sistemas Linux. Pero se ejecuta de inmediato en OS X.

• $1se expande a N y, por lo tanto, se echo \$[{0..$1}^{0..$1}]expande aecho $[{0..N}^{0..N}]
• Esto luego se evaled:
• La expansión del corsé se expande a $[0^0] $[0^1] $[0^2] ... $[0^N] ... $[N^N]
• Esta es una serie de expansiones aritméticas xor que se expanden a una línea de términos
• rs (remodelar) reforma esta línea a N + 1 filas. -jla derecha justifica y -g1proporciona un ancho de canal de 1. Esto asegura que la tabla de salida final tenga un ancho mínimo entre columnas.

He probado hasta N = 1000, lo que tomó 3.8 segundos. Teóricamente, N grande es posible, aunque bash se quedará sin memoria en algún momento con el uso de memoria (N + 1) ² de la expansión de llaves.

C, 114 128 152

Editar Conteo espacial simplificado, inspirado en el trabajo de Khaled A Khunaifer

Función de CA que sigue las especificaciones.

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);}

Intentalo inserte n como entrada, por defecto 9

Menos golf

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
}

JavaScript (ES6) 120 122

Editar 2 bytes guardados gracias a ETHproductions

Una función anónima. Nota: el número en la tabla está limitado a 7 dígitos, eso es más que razonable dado el tamaño general de una tabla que permite números más grandes

Ahora debería encontrar una forma más corta de obtener el tamaño máximo de las columnas, evitando logaritmos

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

Prueba

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>

C, 149 bytes

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

Detallado

#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;
}

C, 103 bytes

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);}

Gelatina, no competidora

7 bytes Esta respuesta no es competitiva, ya que utiliza características que son posteriores al desafío.

0r©^'®G

Pruébalo en línea!

Cómo funciona

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.

R, 38 bytes

Por lo general, R requiere muchos bytes solo para formatear la salida. En este caso es todo lo contrario. outerque generalmente se refiere al producto externo de dos matrices, puede cuando se le proporciona una función realizar esto a través de los márgenes de los vectores. En este caso, aplicamos la función XOR bit a bit bitwXor.

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

CJam, 29 27 bytes

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

Pruébalo aquí.

Explicació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.

MathCAD, 187 bytes

MathCAD maneja tablas integradas fácilmente, pero no tiene absolutamente ningún Xor bit a bit, ni convertidores decimal a binario o binario a decimal. Las funciones for iteran a través de los valores posibles. El lugar i, a2, Xa y Xb se mantienen. El ciclo while se convierte activamente en binario, y mientras se convierte en binario también realiza la función xor (la pequeña cruz con el círculo a su alrededor). Almacena el número binario en un número de base 10 que consiste en 0 y 1. Esto se convierte antes de almacenarse en la matriz M mediante la función de suma.

Esto se puede reducir fácilmente (aunque solo sea cambiando los marcadores de posición por otros más cortos), pero pensé que lo publicaría y vería si alguien puede reducir el convertidor binario a decimal más que cualquier otra cosa.

k4, 50 bytes

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

P.ej:

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

Python 3, 133 131 bytes

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

Mathematica, 108 bytes

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

Haga caso omiso del error, simplemente Threadno sabe lo que está haciendo.

Emacs Lisp, 193 bytes

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

Sin golf:

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

La salida se envía al *Message*búfer, que sería stdoutsi xse usara dentro de un script.

(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

Python 2, 114 bytes

Tomó un poco de tiempo encontrar una manera de hacer relleno de ancho variable .format()(algunos, no mucho) y ajustarlo correctamente, pero creo que ahora tengo todo para especificar. Sin embargo, podría usar más golf en ese cálculo de ancho.

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

Caché ObjectScript , 127 bytes

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

Detallado:

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

 }

Pyke, 8 bytes (no competitivos)

hD]UA.&P

Explicación:

         - 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

Pruébalo aquí

Python 2, 77 bytes

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

J , 10 bytes

XOR/~@,~i.

Pruébalo en línea!

Excel VBA, 95 bytes

Función de ventana inmediata anónima VBE que toma la entrada del rango [A1]y las salidas a la consola.

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

Pequeño Básico , 499 bytes

Un script que toma la entrada del TextWindowobjeto y las salidas al mismo

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

Pruébelo en SmallBasic.com Utiliza Silverlight y, por lo tanto, debe ejecutarse en IE o Edge

Seleccione la consola negra, luego escriba entero de entrada y presione Enter.

Perl 5 -n , 62 bytes

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

Pruébalo en línea!