Cho một mảng các số nguyên dương trong cơ sở 10, trong đó n > 0, xuất đại diện của chúng thành một bức tường nhị phân.

Cái này hoạt động ra sao?

1. Chuyển đổi từng số thành biểu diễn nhị phân của nó.
2. Di chuyển đại diện với các số 0 đứng đầu theo chiều dài của số dài nhất tức là 1, 2-> 1, 10->01, 10 .
3. Tạo một bức tường trong đó 1s là gạch và 0s bị thiếu gạch.

Một bức tường là một khối các ký tự trong đó bất kỳ ký tự có thể in nào đại diện cho một viên gạch và một khoảng trắng ( 32) đại diện cho một viên gạch bị thiếu. Bạn có thể chọn bất kỳ ký tự nào cho viên gạch, nó không cần phải khác biệt trên tường miễn là nó không phải là một ký tự khoảng trắng. Nhân vật gạch bị thiếu phải là một không gian. Ví dụ dưới đây tôi đã sử dụng *cho các viên gạch.

Thí dụ

Đầu vào:

[ 15, 7, 13, 11 ]

1. [ 1111, 111, 1101, 1011 ]
2. [ 1111, 0111, 1101, 1011 ]

3. Đầu ra:

   ****
    ***
   ** *
   * **
   

Quy tắc

• Đầu vào phải được lấy trong cơ sở 10, nếu ngôn ngữ của bạn chấp nhận các cơ sở khác, bạn không thể sử dụng chúng.
• Hàng đầu và dấu vết dòng mới được cho phép.
• Đầu vào có thể được lấy dưới dạng danh sách các số nguyên, các đối số riêng biệt hoặc bất kỳ định dạng hợp lý nào.
• Đầu ra có thể ở bất kỳ định dạng hợp lý nào: chuỗi phân tách dòng mới, mảng dòng, mảng 2d, v.v.
• Sơ hở tiêu chuẩn là không được phép.

Các trường hợp thử nghiệm

Lưu ý rằng trong trường hợp thử nghiệm đầu tiên, tất cả các lớp đều có một viên gạch trống ở cuối.

[ 14, 4, 6, 2 ]

*** 
 *  
 ** 
  * 

[ 1, 2, 4, 8, 16 ]

    *
   * 
  *  
 *   
*

[ 15, 11, 15, 15 ]

****
* **
****
****

[ 11, 10, 9, 8 ]

* **
* * 
*  *
*   

Đây là mã golf nên mã ngắn nhất sẽ thắng!

MATL , 5 byte

B42*c

Hãy thử trực tuyến!

Giải trình

B     % Implicitly input an array of numbers. Convert to binary. 
      % Gives a matrix with each row corresponding to a number
42    % Push 42 (ASCII code of '*')
*     % Multiply
c     % Convert to char. Char 0 is displayed as space. Implicitly display

J , 8 byte

' *'{~#:

Hãy thử trực tuyến!

Giải trình

' *'{~#:  Input: array of integers
      #:  Convert each to binary with left-padding
' *'{~    Use the digits to index into the string ' *'

Thạch , 9 byte

Bo⁶Uz⁶ZUY

Hãy thử trực tuyến!

EDIT: CÁCH J BEAT JELLY DAT ImpOSSIBLE> _ <

Octave, 22 byte

@(x)[dec2bin(x)-16,'']

Dùng thử trực tuyến

Giải trình:

Đã lưu một số byte nhờ Luis Mendo! Ngoài ra, tôi không nhận thấy rằng tôi có thể chọn nhân vật nào để xây tường, không chỉ *.

@(x)                    % Take the input as a column vector
    dec2bin(x)          % Convert each row of the input to a string with 1 and 0
                        % It gets automatically padded with zeros, to fit the longest number
    dec2bin(x)-16       % Subtract 16, to get from the ASCII-values of 1/0 (48/49)
                        % to 32/33 (space and !)
@(x)[dec2bin(x)-16,'']  % Concatenate with the empty string to convert it to a string.

Hoặc với de2bi:

Giải trình:

@(x)                          % Take the input as a column vector
               de2bi(x)       % Convert each row of the input to a binary number.
                              % Gets automatically padded to fit the longest number
            42*de2bi(x)       % Multiply the matrix by 42, which is the ASCII-value for *
           [42*de2bi(x),'']   % Concatenate the matrix with the empty string to convert
                              % it to a string. 0 are automatically displayed as spaces
@(x)fliplr([42*de2bi(x),''])

Các hoạt động sau đây trên TIO, để biết thêm 7 byte:

@(x)fliplr([42*(dec2bin(x)>48),''])

Hãy thử nó ở đây

Python 3 , 88 84 71 74 72 byte

Một lambda trả về một danh sách các Chuỗi, đại diện cho mỗi dòng.

lambda n:[bin(x)[2:].replace(*'0 ').rjust(len(bin(max(n)))-2)for x in n]

Hãy thử trực tuyến! (liên kết đến phiên bản mới được phân tách)

Giải trình

• lambda n:- Tạo một lambda (ẩn danh), với một tham số n. Trả về ngầm.

• [...] - Tạo ra một sự hiểu biết danh sách.

• bin(x)[2:] - Được biểu diễn nhị phân của các số.

• .replace(*'0 ')- Thay thế tất cả các lần xuất hiện của 0với một không gian.

• .rjust(len(bin(max(n)))-2) - Đệm các biểu diễn nhị phân theo chiều dài của cái dài nhất.

• for x in n- Lặp lại qua n, với biến x.

Thay đổi

• - 1 - 3 byte nhờ @Rod, -(...)+2= 2-(...), sử dụngrjust()

• Đã thêm một phiên bản bin()thay vào đó, không hợp lệ vì nó không hoạt động 1và 2.

• Đã sửa lỗi trên bằng cách sử dụng format().

• Thay đổi loại trả về danh sách Chuỗi, vì nó được OP cho phép.

• Đã sửa một lỗi khác bằng cách sử dụng rjust()và chuyển trở lại bin(), được phát hiện và sửa bởi @Rod.

JavaScript (ES6), 81 79 byte

Đã lưu 2 byte bằng cách sử dụng số thay vì ký tự cho các khối hình, như đề xuất của Rick Hitchcock

Trả về một mảng 2D với 1 giây cho các viên gạch.

f=(a,b=[],x=1)=>a.every(n=>n<x)?a.map(n=>b.map(i=>n&i?1:' ')):f(a,[x,...b],x*2)

Các trường hợp thử nghiệm

f=(a,b=[],x=1)=>a.every(n=>n<x)?a.map(n=>b.map(i=>n&i?1:' ')):f(a,[x,...b],x*2)

format = a => a.map(s => s.join``).join`\n`

console.log(format(f([ 14, 4, 6, 2 ])))
console.log(format(f([ 1, 2, 4, 8, 16 ])))
console.log(format(f([ 15, 11, 15, 15 ])))
console.log(format(f([ 11, 10, 9, 8 ])))

Haskell , 76 75 74 byte

f x|all(<1)x=x>>[""]|a<-f$map(`div`2)x=zipWith(++)a$map(cycle[" ","*"]!!)x

Hãy thử trực tuyến!

05AB1E , 9 byte

bí.Bí»0ð‡

Hãy thử trực tuyến!

Ruby, 63 59 byte

-4 byte với sự giúp đỡ từ Alexis Andersen

->*n{puts n.map{|i|("%#{('%b'%n.max).size}b"%i).tr'0',' '}}

Hãy thử trực tuyến!

R , 87 88 byte

Các khối tường được đại diện bởi một 8, bởi vì, rất nhiều đêm.

write(ifelse((I=sapply(scan(),intToBits))[(M=max(which(I>0,T)[,1])):1,],8,' '),1,M,,'')

Hãy thử trực tuyến!

Danh sách số nguyên đầu vào được chuyển đổi thành mảng bit được cắt theo 0 bit và được đảo ngược.

Mảng giảm sau đó là đầu ra bằng cách sử dụng write và độ rộng cột được xác định khi mảng được cắt.

ifelse() là tùy chọn IF duy nhất hoạt động trên các vectơ không may.

Python 2 , 77 byte

lambda k:[[' *'[i&2**y>0]for y in range(len(bin(max(k)))-3,-1,-1)]for i in k]

Hãy thử trực tuyến!

APL (Dyalog) , 30 22 20 14 byte

Đã lưu 6 byte nhờ @ Adám

' *'[⍉2⊥⍣¯1⊢⎕]

Hãy thử trực tuyến!

(giả sử ⎕IO←0 vì đây là mặc định trên nhiều máy)

Điều này nhận đầu vào dưới dạng một mảng và trả về một ma trận với * s và s.

Giải trình

2⊥⍣¯1⊢⎕       Convert input to binary (returns a transposed matrix of 1s and 0s)
⍉              Transpose
' *'[ ... ]    Index into this string

T-SQL, 290 byte

declare @ int;select @=max(log(a,2))+1from @i;with t as(select convert(varchar(max),a%2)b,a/2c,@-1m,ROW_NUMBER()over(order by(select 1))r from @i union all select convert(varchar(max),concat(c%2,b))b,c/2c,m-1,r from t where m>0)select replace(b,0,' ')from t where m=0group by r,b order by r

Công dụng 1 cho các mảnh gạch, giả sử đầu vào đến từ bảng@

Ungolfed, với một số lời giải thích

-- assume input is presented in an input table
declare @input table (a int)
insert into @input values (15), (7), (13), (11)

---- start here

-- figure out how many characters are needed, by taking log2
declare @max int
select @max = max(log(a, 2)) + 1
from @input

-- recursive cte
-- will join against itself, recursively finding each digit in the binary string
;with cte as
(
    select 
        convert(varchar(max), a % 2) as b, -- is the least significant bit 1 or 0
        a / 2 as c, -- remove least significant bit, for the next run
        @max - 1 as max, -- keep track of iterations left
        ROW_NUMBER() over (order by (select 1)) as rn -- keep the order of the input
    from @input

    union all -- recursive loop
              -- below columns follow the same pattern

    select convert(varchar(max), 
        concat(cte.c % 2, cte.b)) as b, -- prepend the current binary string with the newest least significant bit
        cte.c / 2 as c, 
        cte.max - 1, 
        cte.rn
    from cte
    where cte.max > 0
)
select replace(b, 0, ' ') -- swap 0s for space
from cte
where max = 0 -- only take the last iteration
group by rn, b -- grab each unique input, 
               -- need to group by row number so it can be ordered by
               -- need to group by binary string, so it can be selected
order by rn -- sort by the order the input arrived in

Toán học, 40 byte

Grid@PadLeft@IntegerDigits[#,2]/. 0->""&

Gạch là 1s

Toán học, 48 byte

Grid@PadLeft@IntegerDigits[#,2]/.{0->"",1->"#"}& 

Gạch là #

C # (.NET Core) , 112 + 18 = 130 86 + 41 = 127 byte

a=>a.Select(n=>C.ToString(n,2).Replace("0"," ").PadLeft(C.ToString(a.Max(),2).Length))

Hãy thử trực tuyến!

Số lượng byte bao gồm 41 byte từ using System.Linq;using C=System.Convert;. Sử dụng 1như nhân vật cho bức tường. Tuy nhiên, đây là cách quá dài ngay cả đối với C # ...

Võng mạc , 63 byte

.+
$*#<
+`(#+)\1
$1 
 #
#
{T`<`_`^(<.+(¶|$))+$
m`^<
 <
(.)<
<$1

Hãy thử trực tuyến! Giải trình:

.+
$*#<

Chuyển đổi sang unary, và hậu tố a <.

+`(#+)\1
$1 
 #
#

Chuyển đổi thành nhị phân.

{T`<`_`^(<.+(¶|$))+$

Khi tất cả các <s đã đến bên trái, xóa tất cả.

m`^<
 <

Chèn một khoảng trắng trước bất kỳ <s nào đã đến bên trái.

(.)<
<$1

Di chuyển tất cả < bước còn lại một bước. Rửa sạch và lặp lại.

PowerShell , 100 byte

$args|%{if(($c=($a=[convert]::ToString($_,2)).length)-gt$l){$l=$c}$a-replace0,' '}|%{$_.padleft($l)}

Hãy thử trực tuyến!

Ugh, converting đến nhị phân trong PowerShell là rất đau. Cộng với .lengthcác cuộc gọi y đến -replacecác 0với các không gian, cộng với một dài.padLeft() cuộc gọi để làm cho họ tất cả như nhau .length, tất cả còn tăng cường hệ trình dài.

Đề nghị chơi golf để có được dưới 100 được chào đón.

PHP, 84 byte

while(++$i<$argc)echo strtr(sprintf("\n%".-~log(max($argv),2).b,$argv[$i]),10,"* ");

May mắn thay, hoạt động bit phôi log kết quả đến int. float wouldn làm việc ở đây.

Hãy thử trực tuyến .

Clojure, 185 byte

(fn[i](let[b(map #(Long/toBinaryString %)i)](map #(clojure.string/replace(clojure.string/replace(format(str"%0"(reduce(fn[l i](max l(count i)))0 b)"d")(read-string %))"1""#")"0"" ")b)))

Phiên bản bị đánh cắp:

(fn [i]
    (let [b (map #(Long/toBinaryString %) i)]
        (map
            #(clojure.string/replace
                (clojure.string/replace
                    (format
                        (str "%0"
                            (reduce
                                (fn [l i] (max l(count i))) 0 b)
                            "d")
                        (read-string %))
                        "1"
                        "#")
                "0"
                " ")
        b)))

Hàm ẩn danh lấy đối số làm danh sách. Trả về các dòng như danh sách.

Đọc các câu trả lời khác, tôi cá là nó có thể nhỏ hơn. clojure.string/replacemất một lượng ký tự tục tĩu để viết ..

Japt , 33 30 byte

¡'0p(¡X¤lÃn o)-X¤l)+X¤)£" *"gX

Hãy thử trực tuyến!

Đã lưu 3 byte nhờ @Justin Mariner

Giải trình

¡                              // map input integers
    (¡X¤lÃn o)                 // longest binary string length
              -X¤l)            // minus current binary string length
 '0p                           // repeat zero
                   +X¤)        // concat with current binary string
                       £       // map chars of binary string
                        " *"gX // swap 0 and 1 with ' ' and '*'

Python 3 , 92 90 byte

lambda a:[' '*(len(bin(max(a)))-len(i)-2)+i for i in[bin(i)[2:].replace(*'0 ')for i in a]]

Hãy thử trực tuyến!

Trả về một danh sách các dòng. Xếp chúng lên cho thấy họ thực sự sắp xếp đúng.

['111 ', ' 1  ', ' 11 ', '  1 ']
>>>
 111 
  1  
  11 
   1 

Sự phá vỡ

Về cơ bản chuyển đổi mảng thành nhị phân, sau đó thay thế tất cả 0 bằng dấu cách. Nsố lượng không gian được thêm vào phía trước của mỗi dòng trong đó N = [length of longest line] - [length of line].

-1 bytes Cảm ơn ông Xoder

Hãy thử trực tuyến!

Japt , 11 byte

m¤z3 z ·r0S

Hãy thử trực tuyến!

Giải trình

m¤z3 z ·r0S  Implicit input of array
m¤           Map the array to binary strings
  z3 z       Rotate right 270° and then right 90°. This adds left padding to each string
       ·r0S  Join with newlines and replace 0s with spaces

Java 7, 130 108 88 byte

Đã lưu 22 nhờ @TheLethalCoder Đã lưu 20 nhờ @Xanderhall

void a(int[]b){for(int i:b)System.out.println(Long.toBinaryString(i).replace('0',' '));}

Ung dung:

void a(int[]b){
    for(int i:b)
        System.out.println(Long.toBinaryString(i).replace('0', ' '));       
}

Python 2, 217 byte

Sau 2 giờ mã hóa tôi đã quyết định, numpy là ý tưởng tồi cho việc này

import numpy as n
i=n.loadtxt("i")
o=[n.copy(i)]
o[0].fill(10)
while n.count_nonzero(i)>0:
 o.append(i%2+32)
 i=n.vectorize(lambda x:x//2)(i)
print n.fliplr(n.array(o).T).astype('uint8').view('c').tostring().decode()

Sử dụng trong Ubuntu

Cài đặt gọn gàng

python2 -m pip install numpy

Tạo tập tin có tên ivới đầu vào ở định dạng14 4 6 2

Chạy

python2 prog.py

8 , 232 254 250 byte

Mã

0 >r a:new swap ( nip 2 base drop >s decimal s:len r> n:max >r a:push ) a:each drop a:new swap ( nip '0 G:c# r@ G:#> s:fmt a:push ) a:each drop rdrop a:new swap ( nip /0/ " " s:replace! a:push ) a:each drop ( nip /1/ "*" s:replace! . cr ) a:each drop

Phiên bản Ungolfed với ý kiến

\ convert to binary and save longest string length
: f 0 >r a:new swap ( nip 2 base drop >s decimal s:len r> n:max >r a:push ) a:each drop ;

\ pad binary number with zero
: f1 a:new swap ( nip '0 G:c# r@ G:#> s:fmt a:push ) a:each drop rdrop ;

\ replace every 0 with space
: f2 a:new swap ( nip /0/ " " s:replace! a:push ) a:each drop ;

\ replace every 1 with * and print each line of bricks
: f3 ( nip /1/ "*" s:replace! . cr ) a:each drop ;

Những từ này phải được gọi theo thứ tự (xem ví dụ)

Cách sử dụng và ví dụ

ok> [15,7,13,11] 0 >r a:new swap ( nip 2 base drop >s decimal s:len r> n:max >r a:push ) a:each drop a:new swap ( nip '0 G:c# r@ G:#> s:fmt a:push ) a:each drop rdrop a:new swap ( nip /0/ " " s:replace! a:push ) a:each drop ( nip /1/ "*" s:replace! . cr ) a:each drop
****
 ***
** *
* **

Hay nói rõ hơn

ok> [15,11,15,15] f f1 f2 f3
****
* **
****
****

Bình thường, 16 byte

j_MC.tm_X.Bd\0\ 

Hãy thử nó ở đây. Tâm trí không gian dấu.

VBA Excel, ₁₇₀ 161 byte

Chơi gôn

Hàm cửa sổ tức thời VBE ẩn danh lấy đầu vào định dạng 1 2 3 .. ntừ phạm vi [A1]và xuất tường nhị phân tương ứng sang cửa sổ Ngay lập tức VBE qua phạm vi[B1,C1,2:2]

n=Split([A1]):[A2].Resize(1,UBound(n)+1)=n:[C1]="=Int(1+Log(B1,2))":For Each i In n:[B1]=i:?Replace(Replace([Right(Rept(0,C1)&Dec2Bin(B1),C1)],1,"*"),0," "):Next

Định dạng:

n=Split([A1])
[A2].Resize(1,UBound(n)+1)=n
[C1]="=Int(1+Log(B1,2))"
For Each i In n
[B1]=i
?Replace(Replace([Right(Rept(0,C1)&Dec2Bin(B1),C1)],1,"*"),0," ")
Next

Bị đánh cắp

Toàn bộ Subthường trình lấy đầu vào định dạng Array(1, 2, 3...)và xuất tường nhị phân tương ứng vào cửa sổ Ngay lập tức VBE qua phạm vi[A1,B1,2:2]

Sub a(ByRef n As Variant)
    Let Range("A1").Resize(1,UBound(n)+1) = n
    Let Range("C1").Value = "=Int(1+Log(A1,2))"
    Dim i As Integer
    For Each i In n
        Let Range("A1").Value = i
        Debug.Print Replace(
                            Replace(
                                    [Right( Rept( 0, C1) & Dec2Bin( B1), C1)],
                                    1,
                                    "*"
                            ),
                            0,
                            " "
                    )
    Next
End Sub

Than , 20 byte

ＷＳ«⸿≔ＩιιＷι«←§ *ι≧÷²ι

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Hoạt động bằng cách chuyển đổi thủ công từng số đầu vào thành nhị phân nhưng in theo thứ tự từ phải sang trái. Tôi lấy đầu vào là một chuỗi kết thúc dòng mới vì Char than không có cách nào tốt để nhập danh sách nếu không tôi sẽ viết một cái gì đó như thế này mà không may hiện mất 21 byte:

ＷＳ⊞υＩιＷ⌈υ«Ｅυ﹪κ²↓⸿≧÷²υ

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Phiên bản này vectơ trên mảng đầu vào, mặc dù đầu ra của nó được mã hóa thành -s để lưu một byte.