Diberikan integer biner secara inklusif antara 0dan1111111111111111 (yaitu bilangan bulat tak bertanda 16-bit) sebagai input, menghasilkan bilangan bulat yang sama di negabinary .

Masukan bisa dalam format apa pun yang paling nyaman untuk bahasa Anda; misalnya, jika lebih mudah bagi program untuk menangani input dengan 16 digit, seperti0000000000000101 , daripada hanya 101, Anda dapat menulis program untuk hanya menerima input seperti itu.

Contoh I / O

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

Berikut adalah contoh program yang saya tulis yang melakukan konversi basis, termasuk basis negatif dan non-integer. Anda dapat menggunakannya untuk memeriksa pekerjaan Anda.

APL, 21 karakter

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

Saya menggunakan Dyalog APL untuk ini, dengan ⎕IO set ke 0, memungkinkan kita untuk mengindeks array mulai dari 0 daripada 1.

Penjelasan, dari kanan ke kiri:

• ⍞ memberi kami input pengguna sebagai vektor karakter.
• ⍎¨menerapkan fungsi eksekusi ( ⍎) untuk masing-masing (¨ ) karakter yang disebutkan di atas, menghasilkan vektor bilangan bulat 1 dan 0.
• 2⊥ mendekode vektor dari basis 2 menjadi desimal.
• - meniadakan bilangan bulat desimal yang dihasilkan.
• (16/¯2)⊤mengkodekan bilangan bulat desimal ke basis ¯2(negatif 2). ( 16/¯2Ulangan ¯2, 16kali, menghasilkan 16 digit nomor negabinary kami.)
• - meniadakan setiap elemen dari nomor kami yang baru disandikan (sebelum ini, terdiri dari -1 dan 0), sehingga kita dapat menggunakannya untuk mengindeks vektor karakter kita.
• '01'[ ... ]indeks array karakter ( '01') menggunakan 0's dan 1's dari negabinary vector. Ini agar kami mendapatkan hasil yang lebih cantik.

Contoh:

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

Ruby, 32 31 karakter

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

Menggunakan pintasan perhitungan negabinary .

GolfScript, 34 29 27 karakter

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

Pendekatan lurus ke depan. Sangat menarik bahwa versi terpendek adalah versi yang pertama kali dikonversi menjadi angka dan kemudian kembali ke basis -2 (setidaknya versi terpendek yang dapat saya temukan hingga sekarang). Tapi yang menyenangkan dari yang ini adalah, mengandung hampir 15%% .

Edit 1: Untuk basis 2 kita dapat menyimpan satu operasi modulo dan juga bergabung dengan kedua loop.

Sunting 2: Saya menemukan kode yang lebih pendek untuk mengonversi string biner ke integer.

Haskell, 86 83 Bytes

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

Panggil menggunakan c dan kemudian array integer untuk digit, mis

c [1,1]

PS: Saya baru, apakah saya mengirimkan ini dengan benar?

EDIT: Menyimpan beberapa byte berkat Laikoni dan juga memperbaiki beberapa kesalahan ketik

EDIT2: Atau, 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

Untuk 114 byte (tetapi Anda menyebutnya dengan string: c "11")

Python (2.x), 77 karakter

(tidak sesingkat solusi lain karena kebutuhan untuk beralih secara manual ...) Harus memenuhi persyaratan.

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

Saran untuk perbaikan lebih lanjut dipersilakan!

Beri makan dengan nilai awal seperti ini: 0b1001001

JavaScript, 68 byte

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

Akan menjadi 52 byte di ES6, tapi itu pasca-tanggal tantangan:

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

Jelly , 4 byte, tantangan tanggal kiriman bahasa

Ḅb-2

Cobalah online!

Mengambil input, dan menghasilkan output, sebagai daftar digit.

Penjelasan

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

Ini cukup banyak terjemahan langsung dari spesifikasi.

k, 17 byte _{tidak bersaing}

Beberapa fitur yang digunakan mungkin menunda tantangan.

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

Input adalah daftar 1 dan 0, dan output juga daftar 1 dan 0.

PHP, 69 Bytes

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

Versi Online

ES8, 54B

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

05AB1E , 4 byte

C2(в

Cobalah online!

Japt , 4 byte

Input sebagai string biner, output sebagai array digit negabinary.

Íì2n

Cobalah

Atau, mengambil input sebagai array digit biner:

ì2JÉ

Cobalah