The urut kurva naga (atau biasa kertas urutan lipat) adalah urutan biner. a(n)diberikan oleh negasi dari bit kiri dari 1 paling tidak signifikan n. Sebagai contoh untuk menghitung, a(2136)pertama-tama kita mengkonversi ke biner:

100001011000

Kami menemukan bagian terkecil kami

100001011000
        ^

Ambil bit ke kiri

100001011000
       ^

Dan kembalikan negasinya

0

Tugas

Diberikan bilangan bulat positif sebagai input, output a(n). (Anda dapat menampilkan dengan integer atau boolean). Anda harus berusaha membuat kode sekecil mungkin yang diukur dengan byte.

Uji Kasus

Berikut adalah 100 entri pertama secara berurutan

1 1 0 1 1 0 0 1 1 1 0 0 1 0 0 1 1 1 0 1 1 0 0 0 1 1 0 0 1 0 0 1 1 1 0 1 1 0 0 1 1 1 0 0 1 0 0 0 1 1 0 1 1 0 0 0 1 1 0 0 1 0 0 1 1 1 0 1 1 0 0 1 1 1 0 0 1 0 0 1 1 1 0 1 1 0 0 0 1 1 0 0 1 0 0 0 1 1 0 1

Mathematica 25 Bytes

1/2+JacobiSymbol[-1,#]/2&

Cara lain untuk melakukan ini:

56 byte

(v:=1-IntegerDigits[#,2,i][[1]];For[i=1,v>0,i++];i++;v)&

58 byte

1-Nest[Join[#,{0},Reverse[1-#]]&,{0},Floor@Log[2,#]][[#]]&

Python 3 , 22 21 byte

1 byte berkat produk ETH.

lambda n:n&2*(n&-n)<1

Cobalah online!

Ftw aritmatika bitwise.

Retina ,38 34 29 byte

\d+
$*
+`^(1+)\1$|1111
$1
^1$

Cobalah online!

Martin dan Leaky pada dasarnya datang dengan ide ini, untuk 5 byte lagi!

Mengubah input menjadi unary, dan kemudian secara progresif membagi angka dengan 2. Setelah itu tidak dapat melakukan hal itu secara merata lagi (yaitu angkanya ganjil), maka ia akan menghilangkan tambalan 4 dari input, menghitung hasil dari mod operasi terakhir 4 Akhirnya, ini memeriksa jika hasilnya adalah 1, yang berarti digit di sebelah kiri dari bit 1 yang paling signifikan adalah nol. Jika itu benar, hasil akhirnya adalah 1, jika tidak maka nol.

Jeli , 5 byte

&N&HṆ

Cobalah online!

Bagaimana itu bekerja

&N&HṆ  Main link. Argument: n

 N     Negate; yield -n.
&      Bitwise AND; compute n&-n.
       This yields the highest power of 2 that divides n evenly.
   H   Halve; yield n/2.
  &    Bitwise AND; compute n&-n&n/2. This rounds n/2 down if n is odd.
    Ṇ  Take the logical NOT of the result.

Alice , 8 byte

I2z1xnO@

Cobalah online!

Mengambil input sebagai titik kode karakter Unicode dan mengeluarkan hasilnya sebagai byte 0x00 atau 0x01.

Untuk pengujian, berikut adalah versi I / O desimal pada 12 byte yang menggunakan algoritma yang sama persis (hanya I / O yang berbeda):

/o
\i@/2z1xn

Cobalah online!

Jika Alice adalah bahasa golf dan tidak memerlukan I / O dan penghentian program secara eksplisit, ini hanya akan memakan waktu 5 byte (2z1xn ) mengalahkan 05AB1E dan Jelly.

Penjelasan

I    Read input.
2z   Drop all factors of 2 from the input, i.e. divide it by 2 as long
     as its even. This shifts the binary representation to the right
     until there are no more trailing zeros.
1x   Extract the second-least significant bit.
n    Negate it.
O    Output it.
@    Terminate the program.

05AB1E , 6 byte

b0ܨθ≠

Cobalah online!

Bijaksana , 28 20 16 byte

::-~^~-&:[?>]~-^

Cobalah online!

Penjelasan

Ini adalah port jawaban Python Leaky Nun. Sayangnya itu tidak bekerja pada TIO karena versi TIO dari interpreter agak ketinggalan jaman.

Kita mulai dengan membuat 3 salinan dari input kita dengan ::, kita kemudian mengurangi salinan atas dengan 1. Ini akan membalik semua bit sampai yang pertama. Kita lalu xor ini dengan salinan lain dari input kita. Karena semua bit hingga 1 pertama pada input kami telah dibalik, ini akan menghasilkan semua bit tersebut menjadi 1 pada hasilnya. Jika kemudian kita tambahkan satu ~-ke hasil, kita akan mendapatkan satu 1 di tempat di sebelah kiri dari kita paling tidak signifikan 1. Kita DAN ini dengan input untuk mendapatkan bit dari input. Sekarang kita akan memiliki 0iff bit itu mati dan kekuatan 2 iff bit itu menyala, kita bisa mengubahnya menjadi satu 1atau 0dengan :[?>]. Setelah ini dilakukan, kita hanya perlu meniadakan bit ~-^dan kita selesai.

Python 2 , 19 byte

lambda n:n&-n&n/2<1

Cobalah online!

Haskell , 45 43 39 byte

6 byte disimpan berkat nimi

f x|d<-div x 2=[f d,mod(1+d)2]!!mod x 2

Cobalah online!

x86 Kode Mesin, 17 16 15 byte:

Mengasumsikan ABI di mana parameter didorong pada tumpukan dan nilai kembali ada di ALregister.

8B 44 24 04 0F BC C8 41 0F BB C8 0F 93 C0 C3

Ini dibongkar sebagai berikut:

_dragoncurve:
  00000000: 8B 44 24 04        mov         eax,dword ptr [esp+4]
  00000004: 0F BC C8           bsf         ecx,eax
  00000007: 41                 inc         ecx
  00000008: 0F BB C8           btc         eax,ecx
  0000000B: 0F 93 C0           setae       al
  0000000E: C3                 ret

JavaScript (ES6), 17 14 byte

f=
n=>!(n&-n&n/2)

<input type=number min=0 oninput=o.textContent=f(this.value)><pre id=o>

Sunting: Disimpan 3 byte dengan mengirimkan jawaban @ Dennis ketika saya perhatikan bahwa output boolean dapat diterima.

C (gcc) , 20 byte

f(n){n=!(n&-n&n/2);}

Cobalah online!

INTERCAL , 50 byte

DOWRITEIN.1DO.1<-!?1~.1'~#1DOREADOUT.1PLEASEGIVEUP

Operator INTERCAL unary sangat cocok untuk ini, jadi saya memutuskan untuk menulis posting pertama saya.

DO WRITE IN .1
DO .1 <- !?1~.1'~#1
DO READ OUT .1
PLEASE GIVE UP

Haskell , 33 byte

g~(a:b:c)=1:a:0:b:g c
d=g d
(d!!)

Cobalah online!

Menggunakan pengindeksan 0.

Jelly , 7 6 byte

1 byte berkat Erik the Outgolfer.

Bt0ṖṪṆ

Cobalah online!

Program yang lebih panjang

• 7 byte: Họ¡2&2Ị
• 7 byte: Bt0ṫ-ḄỊ

,,, , 10 9 bytes

::0-&2*&¬

Penjelasan

Ambil input sebagai 3 misalnya.

::0-&2*&1≥
               implicitly push command line argument       [3]
::             duplicate twice                             [3, 3, 3]
  0            push 0 on to the stack                      [3, 3, 3, 0]
   -           pop 0 and 3 and push 0 - 3                  [3, 3, -3]
    &          pop -3 and 3 and push -3 & 3 (bitwise AND)  [3, 1]
     2         push 2 on to the stack                      [3, 1, 2]
      *        pop 2 and 1 and push 2 * 1                  [3, 2]
       &       pop 2 and 3 and push 2 & 3                  [2]
        ¬      pop 2 and push ¬ 2 (logical NOT)            [0]
               implicit output                             []

Haskell , 26 byte

f n=even$div n$2*gcd(2^n)n

Cobalah online!

Output Boolean.

Oktaf , 34 byte

@(x)~(k=[de2bi(x),0])(find(k,1)+1)

Cobalah online!

Penjelasan:

@(x)                               % Anonymous function taking a decimal number as input
    ~....                          % Negate whatever comes next
     (   de2bi(x)   )              % Convert x to a binary array that's conveniently 
                                   % ordered with the least significant bits first
        [de2bi(x),0]               % Append a zero to the end, to avoid out of bound index
     (k=[de2bi(x),0])              % Store the vector as a variable 'k'
                     (find(k,1)    % Find the first '1' in k (the least significant 1-bit)
                               +1  % Add 1 to the index to get the next bit
     (k=[de2bi(x),0])(find(k,1)+1) % Use as index to the vector k to get the correct bit

Pengajuan:

Python 2 , 41 39 byte

x=input()
while~-x&1:x/=2
print 1-x/2%2

Cobalah online!

-2 byte terima kasih kepada FryAmTheEggman

Solusi Awal:

Python 2 , 43 byte

lambda x:1-int(bin(x)[bin(x).rfind('1')-1])

Cobalah online!

MATL , 11 10 byte

t4*YF1)Z.~

Cobalah online! Atau lihat 100 output pertama .

Penjelasan

t    % Implicit input. Duplicate
4*   % Multiply by 4. This ensures that the input is a multiple of 2, and
     % takes into account that bit positions are 1 based
YF   % Exponents of prime factorization
1)   % Get first exponent, which is that of factor 2
Z.   % Get bit of input at that (1-based) position
~    % Negate. Implicit display

Pari / GP , 20 byte

n->kronecker(-1,n)>0

Menggunakan simbol Kronecker .

Cobalah online!

Befunge-98 , 19 byte

&#;:2%\2/\#;_;@.!%2

Cobalah online!

&#                       Initial input: Read a number an skip the next command
  ;:2%\2/\#;_;           Main loop: (Direction: East)
   :2%                    Duplicate the current number and read the last bit
      \2/                 Swap the first two items on stack (last bit and number)
                          and divide the number by two => remove last bit
         \                swap last bit and number again
          #;_;            If the last bit is 0, keep going East and jump to the beginning of the loop
                          If the last bit is 1, turn West and jump to the beginning of the loop, but in a different direction.
&#;           @.!%2      End: (Direction: West)
&#                        Jump over the input, wrap around
                 %2       Take the number mod 2 => read the last bit
               .!         Negate the bit and print as a number
              @          Terminate

SCALA, 99 (78?) Karakter, 99 (78?) Byte

if(i==0)print(1)else
print(if(('0'+i.toBinaryString).reverse.dropWhile(x=>x=='0')(1)=='1')0 else 1)

dimana iinputnya

Seperti yang Anda lihat, saya menghemat 21 byte jika saya tidak menangani nol (seperti yang penulis lakukan dalam test case-nya):

print(if(('0'+i.toBinaryString).reverse.dropWhile(x=>x=='0')(1)=='1')0 else 1)

Ini codegolf pertama saya jadi saya harap saya melakukannya dengan baik :)

Cobalah online! Meskipun cukup lama untuk menghitung lol.

C (gcc) , 35 31 byte

f(x){return~x&1?f(x/2):!(x&2);}

Beralih ke implementasi rekursif. Cobalah online!

Java 8, 17 byte

n->(n&2*(n&-n))<1

Port langsung jawaban LeakyNun's Python 3 . Saya tidak cukup terbiasa dengan operasi bitwise dan prioritas operator untuk melihat solusi yang lebih pendek; mungkin ada cara untuk menghindari tanda kurung tambahan?

Japt , 10 8 9 byte

!+¢g¢a1 É

Cobalah online!

Penjelasan

!+¢   g    a1 É
!+Us2 gUs2 a1 -1 # Implicit input (U) as number
!+               # Return the boolean NOT of
      g          #   the character at index
       Us2       #     the input converted to binary
           a1    #     the index of its last 1
              -1 #     minus 1
      g          #   in string
  Us2            #     the input converted to binary

JavaScript (ES6), 53 34 byte

a=>eval("for(;~a&1;a/=2);~a>>1&1")

PHP> = 7.1, 32 byte

<?=1^!trim(decbin($argn),0)[-2];

PHP Sandbox Online

PHP , 40 byte

for($i=$argn;$i%2<1;)$i/=2;echo$i/2%2^1;

Cobalah online!

PHP , 41 byte

<?=1^preg_match("#110*$#",decbin($argn));

Cobalah online!

Gangguan Umum, 56 byte

(defun f(n)(if(oddp n)(- 1(mod #1=(ash n -1)2))(f #1#)))

Cobalah online!

Chip , 93 byte

HZABCDEFG,t
 ))))))))^~S
H\\\\\\\/v~a
G\\\\\\/v'
F\\\\\/v'
E\\\\/v'
D\\\/v'
C\\/v'
B\/v'
A/-'

Mengambil input sebagai byte endian kecil. (TIO memiliki sedikit python yang melakukan ini untuk Anda). Memberikan output sebagai salah satu 0x0atau0x1 . (TIO menggunakan xxd untuk memeriksa nilainya).

Cobalah online!

Bagaimana ini?

Chip melihat input satu byte pada satu waktu, sehingga penanganan input multibyte menambahkan sejumlah besar, tetapi tidak dekat seperti yang saya takutkan.

Mari kita masuk ke dalamnya:

HZABCDEFG

Ini adalah HZ, bit tinggi dari byte sebelumnya (jika ada satu), dan A- G, tujuh bit lebih rendah dari byte saat ini. Ini digunakan untuk menemukan bit set angka terendah.

        ,t
))))))))^~S

Ketika bit set terendah ditemukan, kami memiliki beberapa hal yang harus dilakukan. Potongan pertama ini mengatakan "jika kita memiliki bit yang diset ( )'s), kemudian berhenti Smenekan output, dan tberkembang setelah kita mencetak jawabannya.

H\\\\\\\/v~a
G\\\\\\/v'
...
A/-'

Bit mana pun dari byte saat ini ( A- H) hanya didahului oleh sekelompok nol kemudian satu ( \dan /: ini melihat bit langsung di utara mereka; kita dapat percaya bahwa semua bit sebelumnya nol) dilewatkan ke kabel di hak ( v,, '...), maka nilai mana pun yang dibalik dan diberikan sebagai bit output yang rendah ( ~a).