Дано масив додатних цілих чисел у базі 10, де n > 0виводять їх подання бінарної стінки.

Як це працює?

1. Перетворіть кожне число у його двійкове подання.
2. Прокладіть подання з ведучими нулями до довжини найдовшої, тобто 1, 2-> 1, 10-> 01, 10.
3. Створіть стіну, де 1s - цегла, а 0s відсутні цегли.

Стіна - це блок символів, де будь-який символ для друку являє собою цеглу, а пробіл ( 32) - це відсутня цегла. Ви можете вибрати будь-який символ для цегли, він не повинен бути виразним по всій стіні, якщо це не білий пробіл. Зниклий символ цегли повинен бути пробілом. Для наведеного нижче прикладу я використовував *цеглу.

Приклад

Вхід:

[ 15, 7, 13, 11 ]

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

3. Вихід:

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

Правила

• Вхід повинен бути зроблений у базі 10, якщо ваша мова приймає інші основи, ви можете не використовувати їх.
• Дозволені провідні та слідові нові лінії.
• Введення може сприйматися як список цілих чисел, окремих аргументів або будь-якого розумного формату.
• Вихід може бути у будь-якому розумному форматі: новий рядок, розділений рядком, масив рядків, 2d масив тощо.
• Стандартні лазівки заборонені.

Випробування

Зауважте, що в першому тестовому випадку всі шари мають порожню цеглу на кінці.

[ 14, 4, 6, 2 ]

*** 
 *  
 ** 
  * 

[ 1, 2, 4, 8, 16 ]

    *
   * 
  *  
 *   
*

[ 15, 11, 15, 15 ]

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

[ 11, 10, 9, 8 ]

* **
* * 
*  *
*   

Це код гольфу, тому найкоротший виграш коду!

MATL , 5 байт

B42*c

Спробуйте в Інтернеті!

Пояснення

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 байт

' *'{~#:

Спробуйте в Інтернеті!

Пояснення

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

Желе , 9 байт

Bo⁶Uz⁶ZUY

Спробуйте в Інтернеті!

РЕДАКТИРУЙТЕ: ЯК Я БУДУТЬ ЖЕЛТИЙ ДАТ НЕПРАВНИЙ> _ <

Октава, 22 байти

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

Спробуйте в Інтернеті

Пояснення:

Збережено кілька байт завдяки Луїсу Мендо! Крім того, я не помітив, що можу вибрати, з якого персонажа будувати стіну, не тільки *.

@(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.

Або з de2bi:

Пояснення:

@(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),''])

Наступні роботи над TIO, на 7 байт більше:

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

Спробуйте тут

Python 3 , 88 84 71 74 72 байт

Лямбда, яка повертає список рядків, що представляють кожен рядок.

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

Спробуйте в Інтернеті! (посилання на версію, розділену новим рядком)

Пояснення

• lambda n:- Створює (анонімне) лямбда з параметром n. Повертається неявно.

• [...] - Створює розуміння списку.

• bin(x)[2:] - Отримує двійкові представлення чисел.

• .replace(*'0 ')- Замінює всі випадки 0з пробілом.

• .rjust(len(bin(max(n)))-2) - Розставляє двійкові представлення по довжині найдовшої.

• for x in n- взаємодіє через nзмінну x.

Журнал змін

• - 1 - 3 байти завдяки @Rod, -(...)+2= 2-(...), використаннюrjust()

• bin()Замість цього додана версія , яка була недійсною, оскільки вона не працювала для 1та 2.

• Виправлено помилку вище, використовуючи format().

• Змінено тип повернення до списку рядків, оскільки це дозволило ОП.

• Виправлена ​​ще одна помилка за допомогою @Rod rjust()і повернення до неї bin(), її виявлення та виправлення.

JavaScript (ES6), 81 79 байт

Збережено 2 байти, використовуючи цифри замість символів для цеглин, як це запропонував Рік Хічкок

Повертає двовимірний масив із значеннями 1 для цегли.

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)

Тестові справи

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 байт

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

Спробуйте в Інтернеті!

05AB1E , 9 байт

bí.Bí»0ð‡

Спробуйте в Інтернеті!

Рубі, 63 59 байт

-4 байти за допомогою Алексіса Андерсена

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

Спробуйте в Інтернеті!

R , 87 88 байт

Стінові блоки представлені 8, тому що, дуже багато восьми.

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

Спробуйте в Інтернеті!

Цілочисельний список введення перетворюється на масив бітів, які обрізані з 0 бітів і зворотні.

Потім зменшений масив виводиться за допомогою writeта шириною стовпця, яка визначалася під час обрізки масиву.

ifelse() є єдиним варіантом IF, який, на жаль, працює на векторах.

Python 2 , 77 байт

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

Спробуйте в Інтернеті!

APL (Діалог) , 30 22 20 14 байт

Збережено 6 байт завдяки @ Adám

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

Спробуйте в Інтернеті!

(передбачається ⎕IO←0, що це за замовчуванням для багатьох машин)

Це приймає введення як масив і повертає матрицю з *s і s.

Пояснення

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

T-SQL, 290 байт

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

Використання 1для шматка цегли, припускаючи, що вхід надходить з таблиці@

Безумовно, з деякими поясненнями

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

Математика, 40 байт

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

Цеглини - 1с

Математика, 48 байт

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

Цеглини #

C # (.NET Core) , 112 + 18 = 130 86 + 41 = 127 байт

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

Спробуйте в Інтернеті!

Кількість байтів включає 41 байт від using System.Linq;using C=System.Convert;. Використовується 1як символ для стіни. Тим не менш, це занадто довго навіть для C # ...

Сітківка , 63 байти

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

Спробуйте в Інтернеті! Пояснення:

.+
$*#<

Перетворити в одинарний і суфікс а <.

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

Перетворити на бінарне.

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

Як тільки всі <s дістаються зліва, видаліть їх усіх.

m`^<
 <

Вставте пробіл перед <s, який уже досяг ліворуч.

(.)<
<$1

Перемістіть усі <s вліво на один крок. Промийте і повторіть.

PowerShell , 100 байт

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

Спробуйте в Інтернеті!

Тьфу, convertбіна в PowerShell настільки болісна. Плюс .lengthу виклики на з пробілами, плюс довгий виклику , щоб зробити їх все-таки , все складає в протягом довгого уявлення.-replace0.padLeft().length

Пропозиції з гольфу, щоб потрапити нижче 100, вітаються.

PHP, 84 байти

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

На щастя, бітова операція кидає logрезультат на int. Float не працював би тут.

Спробуйте в Інтернеті .

Clojure, 185 байт

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

Безгольова версія:

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

Анонімна функція, яка приймає аргумент як список. Повертає рядки як список.

Читаючи інші відповіді, я думаю, що це може бути менше. clojure.string/replaceзаймає нецензурну кількість символів для написання ..

Japt , 33 30 байт

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

Спробуйте в Інтернеті!

Збережено 3 байти завдяки @Justin Mariner

Пояснення

¡                              // 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 '*'

Пітон 3 , 92 90 байт

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

Спробуйте в Інтернеті!

Повертає список рядків. Складання їх показує, що вони дійсно вирівнюються належним чином.

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

Розбивка

По суті перетворює масив у бінарний, а потім замінює всі 0 на пробіли. Nкількість пробілів додається до передньої частини кожного рядка, де N = [length of longest line] - [length of line].

-1 bytes Завдяки містеру Кседеру

Спробуйте в Інтернеті!

Japt , 11 байт

m¤z3 z ·r0S

Спробуйте в Інтернеті!

Пояснення

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 байт

Збережено 22 завдяки @TheLethalCoder Збережено 20 завдяки @Xanderhall

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

Безголівки:

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

Python 2, 217 байт

Після 2 годин кодування я вирішив, що numpy - це погана ідея для цього

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

Використання в Ubuntu

Встановити нуме

python2 -m pip install numpy

Створіть файл, названий iіз введенням у форматі14 4 6 2

Біжи

python2 prog.py

8-е , 232 254 250 байт

Код

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

Безгольова версія з коментарями

\ 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 ;

Ці слова потрібно викликати послідовно (див. Приклад)

Використання та приклади

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
****
 ***
** *
* **

Або більш чітко

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

Pyth, 16 байт

j_MC.tm_X.Bd\0\ 

Спробуйте тут. Майте на увазі простір.

Excel VBA, ₁₇₀ 161 байт

Гольф

Анонімна функція негайного вікна VBE, яка приймає введення формату 1 2 3 .. nз діапазону [A1]і виводить відповідну бінарну стінку до негайного вікна VBE через діапазон[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

Відформатовано:

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

Безумовно

Повна Subрутина, яка приймає введення формату Array(1, 2, 3...)і виводить відповідну бінарну стінку до негайного вікна VBE через діапазон[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

Вугілля деревне , 20 байт

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

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Працює, вручну перетворюючи кожен вхідний номер у бінарний, але друкуючи його в правому вліво. Я приймаю введення як строку, що закінчується новим рядком, оскільки вугілля не має хорошого способу введення списків, інакше я б написав щось подібне, яке, на жаль, наразі займає 21 байт:

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

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Ця версія векторизується над вхідним масивом, хоча його вихід жорстко кодується до -s, що зберігає байт.