İlham Verici bir duvar oluşturun

Olumlu tamsayıların bir listesi göz önüne alındığında, [2, 6, 9, 4]örneğin birbirlerinin üzerine yazabiliriz, örneğin:

0010
0110
1001
0100

Bunu bir duvar olarak hayal edebiliriz:

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

Ancak, bu çok zayıf bir duvar ve çöktü! Her 1( #) "toprağa" ya da başka bir 1( #) isabet edene kadar düşer . 0S ( .lar) hareket bıraktığı noktalar mevcut 1s.

Bu şu şekilde olur:

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

Hangi geri dönüş yapar:

0000
0000
0110
1111

Sayıların bir listesi olarak [0, 0, 6, 15].

Başka bir test durumu

[10, 17, 19, 23]

Bu olur:

01010
10001
10011
10111

Bu olur:

00000
10011
10011
11111

geri çeviri:

[0, 19, 19, 31]

Meydan okuma

Olumlu tamsayıların bir listesi göz önüne alındığında, bu dönüşümü listeye uygulayın. Herhangi bir makul formatta pozitif tamsayıların listesi olarak Giriş / Çıkış. Standart boşluklar uygulanır.

Bu bir kod golf , yani bayt cinsinden en kısa cevap kazanır!

MATL , 4 bayt

BSXB

MATL Online'da deneyin

açıklama

    % 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 bayt

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

Çevrimiçi deneyin!

JavaScript (ES6), 50 bayt

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

Açıklama: Duvarın iki sırasının şöyle olduğunu varsayalım:

0011
0101

Sonuç şöyle olmalı:

0001
0111

Başka bir deyişle, ilk satır iki satırın AND değeri ve ikinci satır iki satırın OR'si olur. Bu sadece tüm bitlerin dibe düşmesi için yeterince tekrarlanmalı.

Jöle , 9 bayt

BUz0Ṣ€ZUḄ

Çevrimiçi deneyin!

Japt , 16 bayt

m¤z3 ®¬n qÃz mn2

Çevrimiçi deneyin! -Qdizi sonucunu biçimlendirmek için bayrağı kullanarak .

açıklama

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 bayt

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

 \[Transpose]

Bu, girdiyi (sayıların bir listesini) basamakların bir listesine dönüştürür, bir kare matris olarak doldurur, satırları sıralar, 1'in "düşmesini" aşağıya çevirir, sonra tekrar sayılara dönüştürür. .

Python 3.5 , 60 bayt

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

Çevrimiçi deneyin!

Gibi girdi alır f(2, 6, 9, 4). Girişin boş olmadığını varsayar. Çok fazla demet açma kullanır .

Octave, 29 25 bayt

@Stewie sayesinde 4 bayt kaydedildi

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

J , 13 bayt

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

Çevrimiçi deneyin!

açıklama

/:~"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 bayt

bí0ζR€{øC

Çevrimiçi deneyin!

Magic'inkinden biraz farklı bir algoritma.

Dyalog APL, 24 21 19 bayt

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

Çevrimiçi deneyin! (TryAPL geçerli olduğu için değiştirildi)

Nasıl?

• ⎕ değerlendirilen girdi (diziler boşlukla ayrılmıştır)
• 2⊥⍣¯1⊢ Argümanların her birini ikiliye dönüştürür (söz konusu olanın çevrilmesi)
• ↓ 2B diziyi vektörlerin vektörüne dönüştürür
• {⍵[⍋⍵]}¨ vektörün öğelerinin her birini sıralar
• ↑ vektörlerin vektörünü tekrar 2D diziye dönüştürür
• 2⊥ binary'den dönüştürebilir (onu bir türden dönüştürdüğü için doğru sonuca varırız)

Dyalog APL (23 karakter)

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

1. Giriş bağımsız değişkenlerini bir ikili matrise dönüştürün
2. Matrisi sütunlara bölme
3. Sütunları artan düzende sırala
4. Sıralanan satırları tekrar ondalık basamağa dönüştürün

Örnek

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

Beni bu konuda düzelttiği için Zacharý'ya teşekkürler.

JavaScript, 127 125 bayt

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()

Çevrimiçi deneyin

İnekler quack sayesinde -2 bayt

Python 2, 142 bayt

... ve hala golf ... umarım –– Herhangi bir yardım takdir!

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]))))]

Bunun büyük bir kısmı, sayıları sıfırla doldurmak içindir.

Daha okunabilir:

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))))]

Bu, ikili dizi gösterimlerinin bir dizisini oluşturur, onu doldurur, saat yönünde 90º döndürür, her satırı sıralar, geri döndürür, 90º döndürür ve ardından her satırdan tam sayıları oluşturur.