Diberikan bilangan bulat positif n, menampilkan 2^nurutan panjang biner yang ndiurutkan dalam urutan tepat berikut.

Kasus uji:

0:

0 or 1 (defining this is a matter of debate)

1:

0
1

2:

00
01
10
11

3:

000
001
010
100
011
101
110
111

4:

0000
0001
0010
0100
1000
0011
0101
1001
0110
1010
1100
0111
1011
1101
1110
1111

dll.

Selain itu, pola kombinatorik terkait dengan Segitiga Pascal.

0:

1 (this is given regardless of the definition given to 2^0)

1:

1
1

2:

1
2
1

3:

1
3
3
1

4:

1
4
6
4
1

dll.

Haskell, 78 byte

import Data.List
f n=sortOn(\x->sum x:reverse(map(1-)x))$mapM id$[0,1]<$[1..n]

Contoh penggunaan: f 2-> [[0,0],[0,1],[1,0],[1,1]].

Bagaimana itu bekerja:

         [0,1]<$[1..n]  -- make n copies of the list [0,1]
     mapM id            -- make all lists where the ith element is from the ith list.
                        -- that gives us all binary sequences
sortOn                  -- sort this list of list
    sum x               -- first by number of ones
      reverse(map(1-)x) -- then by the reversed list with bits flipped

Python 2, 146 byte

from itertools import*
lambda i:sum([sorted({''.join(b)for b in permutations((i-n)*"0"+"1"*n)},key=lambda x:x[::-1])[::-1]for n in range(i+1)],[])

Saya masih mengerjakan ini, meskipun ada saran akan sangat dihargai!

Tidak disatukan

i=input()   
import itertools
p=[]
for n in range(i+1):
    x=(i-n)*"0"+"1"*n
    t=[]
    for b in itertools.permutations(x):t+=[''.join(b)] if ''.join(b) not in t else []
    p.append(sorted(t, key=lambda x:x[::-1])[::-1])

p=sum(p,[])
print
for line in p:print line

Python 2, 122 120 102 98 byte

18 byte disimpan berkat Flp.Tkc

4 byte disimpan berkat xnor

lambda x:sorted([bin(i)[2:].zfill(x)for i in range(2**x)],key=lambda x:(sorted(x),int(x[::-1],2)))

Penjelasan

Ini membuat semua string biner dengan panjang x dengan:

[bin(i)[2:].xfill(x)for i in range(2**x)]

Saya kemudian mengurutkannya sesuai dengan:

lambda x:(sorted(x),int(x[::-1],2))

sorted(x)memprioritaskan jumlah 1s sementara int(x[::-1],2)memprioritaskan kondisi kedua

Terakhir, ini bergabung dengan baris baru dan dicetak.

Perl, 63 byte

-4 Terima kasih kepada @Ton Hospel.
-2 Terima kasih kepada @Gabriel Benamy.

say~~reverse for sort{$b=~y/0//-$a=~y/0//||$b-$a}glob"{1,0}"x<>

Jalankan dengan -E(yang mengaktifkan fitur say):

perl -E 'say~~reverse for sort{$b=~y/0//-$a=~y/0//||$b-$a}glob"{1,0}"x<>' <<< 5

• "{1,0}"x$_menciptakan string yang terdiri dari $_waktu {1,0}( $_adalah input). Misalnya dengan 3: {1,1}{1,0}{1,0}.
• Kemudian globlakukan sihir dan hasilkan semua kombinasi dari satu elemen dari setiap kelompok kawat gigi (yaitu, semua kombinasi yang ingin kita cetak).
• Dan kemudian sortir: $b=~y/1//c-$a=~y/1//cmembandingkan jumlah 1setiap string, dan jika mereka memiliki nomor yang sama, $b-$aakan mengurutkan berdasarkan aturan kedua.

Perl, 116 106 105 102 byte

sub e{sprintf"%0$%b",@_}sub f{$_=e@_;/0*$/;$%*y/1//-$-[0]}map{say e$_}sort{f($a)<=>f$b}0..2**($%=<>)-1

Dapat dibaca:

sub e{
    sprintf"%0$%b",@_
}
sub f{
    $_=e@_;/0*$/;$%*y/1//-$-[0]
}
map{
    say e$_
} sort {
    f($a)<=>f$b
} 0..2**($%=<>)-1

Subrutin emengubah argumennya menjadi nilai biner, diisi dengan nol, menjadi panjang input (mis. Input 5 bantalan dengan nol hingga panjangnya 5 karakter). Subrutin fmengambil nilai biner seperti itu, dan memberikan bobot penyortiran sesuai dengan bagaimana seharusnya diproses.

Rentang 0 .. [input] ² -1 kemudian dimasukkan ke dalam jenis yang stabil, memesan berdasarkan berat (di sini, "stabil" berarti bahwa ketika dua nilai memiliki bobot yang sama, mereka dikembalikan dalam urutan yang sama mereka muncul di input), dan kemudian mereka diumpankan kembali ke subrutin edan output.

Beberapa dari Anda mungkin telah melihat posting asli saya, tetapi saya sepenuhnya salah membaca masalah kemarin dan segera menghapusnya setelah saya menyadarinya.

Racket 109 byte

(let loop((s ""))(if(= n(string-length s))(displayln s)(for((i '("0" "1")))(loop(string-append s i)))))

Tidak Disatukan:

(define (f n)
  (let loop ((s ""))
    (if (= n (string-length s))
        (displayln s)
        (for ((i '("0" "1")))
          (loop (string-append s i))))))

Pengujian:

(f 2)
(println "-------------")
(f 3)
(println "-------------")
(f 4)

Keluaran:

00
01
10
11
"-------------"
000
001
010
011
100
101
110
111
"-------------"
0000
0001
0010
0011
0100
0101
0110
0111
1000
1001
1010
1011
1100
1101
1110
1111

Ruby 2.x, 129 byte

f=->(n){z='0';p=n.bit_length;(0..n).map{|i|sprintf("%0#{p}d",i.to_s(2))}.sort{|a,b|a=a.delete(z).size-(b=b.delete(z).size)||b-a}}

PHP, 49 byte

while($i<1<<$n=$argv[1])printf("%0${n}b\n",$i++);

Jalankan dengan -r.

MATLAB, 68 byte

d=@(n)dec2bin(sortrows([sum(dec2bin(0:2^n-1)');0:2^n-1]')*~eye(2,1))

Bash, 65 byte

Golf

seq -f "obase=2;%g+2^$1-1" $[2**$1]|bc|cut -c2-|tr 0 ~|sort|tr ~ 0

Uji

>./binseq 4

0000
0001
0010
0100
1000
0011
0101
0110
1001
1010
1100
0111
1011
1101
1110
1111

Jelly , 14 byte

2Ḷṗ⁸TṪ$N$ÞSÞYȯ

Cobalah online!

Terkejut ini belum diposting.