Terinspirasi oleh Buat dinding biner

Diberikan daftar bilangan bulat positif, kita dapat menuliskan semuanya di atas satu sama lain seperti itu, [2, 6, 9, 4]sebagai contoh:

0010
0110
1001
0100

Kita bisa membayangkan ini sebagai tembok:

..#.
.##.
#..#
.#..

Namun, ini adalah dinding yang sangat lemah, dan telah runtuh! Setiap 1( #) jatuh hingga menyentuh "tanah" atau yang lain 1( #). The 0s ( .s) yang hadir di tempat yang ditinggalkan terharu 1s.

Ini menjadi sebagai berikut:

....
....
.##.
####

Yang diterjemahkan kembali ke:

0000
0000
0110
1111

Yang, sebagai daftar angka, adalah [0, 0, 6, 15].

Kasus uji lain

[10, 17, 19, 23]

Ini menjadi:

01010
10001
10011
10111

yang menjadi:

00000
10011
10011
11111

menerjemahkan kembali ke:

[0, 19, 19, 31]

Tantangan

Diberikan daftar bilangan bulat positif, terapkan transformasi ini ke daftar. Input / Output sebagai daftar bilangan bulat positif dalam format apa pun yang masuk akal. Celah standar berlaku.

Ini adalah kode-golf , jadi jawaban tersingkat dalam byte menang!

MATL , 4 byte

BSXB

Cobalah di MATL Online

Penjelasan

    % Implicitly grab input as an array 
    %   STACK: [10, 17, 19, 23]
B   % Convert each element to binary where each decimal number results in a row
    %   STACK: [0 1 0 1 0;
    %           1 0 0 0 1;
    %           1 0 0 1 1;
    %           1 0 1 1 1]
S   % Sort each column, placing all of the 1's at the bottom of each column
    %   STACK: [0 0 0 0 0;
    %           1 0 0 1 1;
    %           1 0 0 1 1;
    %           1 1 1 1 1] 
XB  % Convert each row from its binary representation to its decimal number
    %   STACK: [0, 19, 19, 31]
    % Implicitly display the result

Python , 68 byte

f=lambda a:a and[x|y&a[0]for x,y in zip([0]+f(a[1:]),f(a[1:])+[-1])]

Cobalah online!

JavaScript (ES6), 50 byte

f=a=>a.map(_=>a.map((e,i)=>a[a[i]|=a[--i],i]&=e))&&a

Penjelasan: Misalkan dua baris dinding seperti ini:

0011
0101

Hasilnya harus seperti ini:

0001
0111

Dengan kata lain, baris pertama menjadi DAN dari dua baris dan baris kedua menjadi ATAU dari dua baris. Ini hanya perlu diulangi cukup kali agar semua bit jatuh ke bawah.

Jelly , 9 byte

BUz0Ṣ€ZUḄ

Cobalah online!

Japt , 16 byte

m¤z3 ®¬n qÃz mn2

Cobalah online! menggunakan -Qbendera untuk memformat hasil array.

Penjelasan

m¤z3 ®¬n qÃz mn2    Implicit: U = input array.
                        [10, 17, 19, 23]
m¤z3                Map U to binary strings and rotate the array left 90°
                         1010       0111
                        10001   ->  1011
                        10011       0001
                        10111       1000
                                     111
®¬n qà              Sort each binary string, putting 0s and spaces at the start
                        0111
                        0111
                        0001
                        0001
                         111
z mn2               Rotate right 90° and convert each back to a number
                         0000       0
                        10011   ->  19
                        10011       19
                        11111       31
                    Implicit output of resulting array

Mathematica, 64 byte

#~FromDigits~2&/@(Sort/@(PadLeft[#~IntegerDigits~2&/@#]))&

 adalah \[Transpose]

Ini mengkonversi input (daftar angka) ke daftar daftar digit, membalutnya menjadi matriks persegi, mentransposasikannya, mengurutkan baris sehingga 1's "jatuh" ke bawah, transposes kembali, kemudian mengubah kembali menjadi angka .

Python 3.5 , 60 byte

def f(a,*t):
 if t:b,*r=f(*t);t=f(a|b,*r);a&=b
 return(a,*t)

Cobalah online!

Mengambil input seperti f(2, 6, 9, 4). Mengasumsikan input tidak kosong. Menggunakan banyak tuple membongkar .

Oktaf, 29 25 byte

4 byte disimpan berkat @Stewie

@(x)bi2de(sort(de2bi(x)))

J , 13 byte

/:~"1&.|:&.#:

Cobalah online!

Penjelasan

/:~"1&.|:&.#:  Input: array M
           #:  Convert each in M to binary with left-padding
       |:&     Transpose
/:~"1&         Sort each row
     &.|:      Inverse of transpose (which is just transpose)
         &.#:  Inverse of converting to binary

05AB1E , 9 byte

bí0ζR€{øC

Cobalah online!

Agak berbeda algoritma dari Magic.

Dyalog APL, 24 21 19 byte

2⊥↑{⍵[⍋⍵]}¨↓2⊥⍣¯1⊢⎕

Cobalah online! (dimodifikasi sehingga TryAPL menerimanya sebagai valid)

Bagaimana?

• ⎕ input yang dievaluasi (array dipisahkan oleh ruang)
• 2⊥⍣¯1⊢ mengonversi setiap argumen menjadi biner (mengubah apa yang ada dalam pertanyaan)
• ↓ mengubah array 2D menjadi vektor vektor
• {⍵[⍋⍵]}¨ mengurutkan masing-masing elemen vektor
• ↑ mengubah vektor vektor menjadi array 2D lagi
• 2⊥ mengkonversi dari biner (karena itu semacam transpos itu, kita sampai pada hasil yang benar)

Dyalog APL (23 karakter)

{2⊥¨↓⍉↑{⍵[⍋⍵]}¨↓2⊥⍣¯1⊢⍵}

1. Ubah argumen input menjadi matriks biner
2. Membagi matriks menjadi kolom
3. Urutkan kolom ke dalam urutan menaik
4. Ubah baris yang diurutkan kembali menjadi desimal

Contoh

  {2⊥¨↓⍉↑{⍵[⍋⍵]}¨↓2⊥⍣¯1⊢⍵}10 17 19 23
      0 19 19 31

Terima kasih kepada Zacharý karena mengoreksi saya tentang hal ini.

JavaScript, 127 125 byte

a=>a[m='map'](_=>b[m]((n,i)=>n&&(b[i]--,d|=1<<i),d=0)&&d,b=[...Array(32)][m]((_,c)=>a[m](e=>d+=!!(2**c&e),d=0)&&d)).reverse()

Cobalah online

-2 byte berkat Sapi dukun

Python 2, 142 byte

... dan masih bermain golf ... semoga –– Bantuan apa pun dihargai!

def c(l):b=[bin(n)[2:]for n in l];print[int(n,2)for n in map(''.join,zip(*map(sorted,zip(*['0'*(len(max(b,key=len))-len(x))+x for x in b]))))]

Sebagian besar dari ini adalah untuk mengisi angka dengan nol.

Lebih mudah dibaca:

def collapse(nums):
    bins = [bin(n)[2:] for n in nums]
    bins = [('0'*(len(max(bins, key = len)) - len(x))) + x for x in bins]
    print [int(n, 2) for n in map(''.join, zip(*map(sorted, zip(*bins))))]

Ini menciptakan array dari representasi string biner, membalutnya, memutarnya 90º searah jarum jam, mengurutkan setiap baris, memutarnya kembali 90º, dan kemudian membuat bilangan bulat dari setiap baris.