Dado un entero binario incluido entre 0y 1111111111111111(es decir, un entero sin signo de 16 bits) como entrada, genera el mismo entero en negabinario .

La entrada puede estar en el formato que sea más conveniente para su idioma; por ejemplo, si es más fácil para el programa manejar la entrada con 16 dígitos, como 0000000000000101, en lugar de simplemente 101, puede escribir el programa para aceptar solo la entrada de esa manera.

Muestra de E / S

> 1
1
> 10
110
> 1010
11110
> 110111001111000
11011001110001000
> 1001001
1011001

Aquí hay un programa de muestra que escribí que realiza conversiones de bases, incluidas bases negativas y no enteras. Puedes usarlo para verificar tu trabajo.

APL, 21 caracteres

'01'[-(16/¯2)⊤-2⊥⍎¨⍞]

Usé Dyalog APL para esto, con el ⎕IOconjunto a 0, lo que nos permite indexar matrices que comienzan en 0 en lugar de 1.

Explicación, de derecha a izquierda:

• ⍞ nos da la entrada del usuario como un vector de caracteres.
• ⍎¨aplica la función de ejecución ( ⍎) a cada (¨ ) de los caracteres antes mencionados, lo que da como resultado un vector de enteros 1 y 0.
• 2⊥ decodifica el vector de la base 2 en decimal.
• - niega el entero decimal resultante.
• (16/¯2)⊤codifica el entero decimal en base ¯2(negativo 2). ( 16/¯2replica ¯2,16 tiempos, produciendo 16 dígitos en nuestro número negabinario).
• - niega cada elemento de nuestro número recién codificado (antes de esto, consiste en -1 y 0), para que podamos usarlo para indexar nuestro vector de caracteres.
• '01'[ ... ]indexa la matriz de caracteres ( '01') usando los 0 y 1 del vector negabinario negado. Esto es para obtener una salida más bonita.

Ejemplo:

      '01'[-(16/¯2)⊤-2⊥⍎¨⍞]
10111010001
0001101011010001

Ruby, 32 31 caracteres

m=43690
'%b'%(gets.to_i(2)+m^m)

Utiliza el atajo de cálculo negabinario .

GolfScript, 34 29 27 caracteres

n*~]2base{.2%\(-2/.}do;]-1%

Un enfoque sencillo y directo. Es bastante interesante que la versión más corta es la que primero se convierte en número y luego vuelve a la base -2 (al menos la versión más corta que pude encontrar hasta ahora). Pero lo bueno de este es que contiene casi el 15% %.

Edición 1: para la base 2 podemos guardar una operación de módulo y también unir ambos bucles.

Edición 2: Encontré un código aún más corto para convertir una cadena binaria a entero

Haskell, 86 83 bytes

import Data.Bits
import Data.Digits
c n|m<-0xAAAAAAAA=digits 2$xor(unDigits 2 n+m)m

Llame usando c y luego una matriz entera para dígitos, p. Ej.

c [1,1]

PD: Soy nuevo, ¿lo envié correctamente?

EDITAR: guardé algunos bytes gracias a Laikoni y también arreglé algunos errores tipográficos

EDIT2: Alternativamente, c :: String -> String:

import Data.Bits
import Data.Digits
c n|m<-0xAAAAAAAA=concatMap show.digits 2$xor(unDigits 2(map(read.(:[]))n)+m)m

Para 114 bytes (pero lo llama con una cadena: c "11")

Python (2.x), 77 caracteres

(No tan corto como las otras soluciones debido a la necesidad de cambiar manualmente la base ...) Debe satisfacer los requisitos.

i=input();d=""
while i:i,r=i//-2,i%-2;i+=r<0;d+=`r+[0,2][r<0]`
print d[::-1]

¡Sugerencias para mejoras adicionales son bienvenidas!

Aliméntelo con valores iniciales como este: 0b1001001

JavaScript, 68 bytes

function(b){for(r='',n=parseInt(b,2);r=(n&1)+r,n>>=1;n=-n);return r}

Sería 52 bytes en ES6, pero eso es posterior al desafío:

b=>eval(`for(r='',n=0b${b};r=(n&1)+r,n>>=1;n=-n);r`)

Jelly , 4 bytes, desafío de fechas posteriores al idioma

Ḅb-2

Pruébalo en línea!

Toma entrada y produce salida, como una lista de dígitos.

Explicación

Ḅb-2
Ḅ     Convert binary to integer
 b-2  Convert integer to base -2

Esto es prácticamente solo una traducción directa de la especificación.

k, 17 bytes sin _competencia

Algunas de las características utilizadas probablemente sean posteriores al desafío.

1_|2!{_.5+x%-2}\2/

La entrada es una lista de 1 y 0, y la salida también es una lista de 1 y 0.

PHP, 69 bytes

for($i=bindec($argn);$i;$i+=$i%2&$c,$i>>=1,$c^=1)$r=($i%2).$r;echo$r;

Versión en línea

ES8, 54B

b=>eval`for(r='',n=0b${b};r=(n&1)+r,n>>=1;n=-n);r`

05AB1E , 4 bytes

C2(в

Pruébalo en línea!

Japt , 4 bytes

Entrada como una cadena binaria, salida como una matriz de dígitos negabinarios.

Íì2n

Intentalo

O, tomando la entrada como una matriz de dígitos binarios:

ì2JÉ

Intentalo