Дан массив положительных целых чисел в базе 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

Попробуйте онлайн!

РЕДАКТИРОВАТЬ: КАК J JELLY DAT НЕВОЗМОЖНО> _ <

Октава, 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().

• Изменен тип возвращаемого значения в список строк, потому что это было разрешено OP.

• Исправлена ​​еще одна ошибка с использованием rjust()и переключением обратно bin(), определена и исправлена ​​@Rod.

JavaScript (ES6), 81 79 байт

Сохранено 2 байта с использованием цифр вместо символов для кирпичей, как это предложил Рик Хичкок

Возвращает 2D массив с 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 (Dyalog) , 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для кирпича кусок, предполагает, что вход приходит из таблицы@

Ungolfed, с некоторым объяснением

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

Mathematica, 40 байт

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

Кирпичи 1с

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

Попробуйте онлайн! Объяснение:

.+
$*#<

Преобразовать в одинарный и суффикс a <.

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

Преобразовать в двоичный файл

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

Как только все <s достигли влево, удалите их все.

m`^<
 <

Вставьте пробел перед любым <s, которые уже достигли слева.

(.)<
<$1

Переместить все <влево на один шаг. Промыть и повторить.

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. поплавок не будет работать здесь.

Попробуйте онлайн .

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

Python 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',' '));}

Ungolfed:

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

Установить NumPy

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

Golfed

Функция анонимного непосредственного окна 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

Ungolfed

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

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

Попробуйте онлайн! Ссылка на подробную версию кода. Работает путем ручного преобразования каждого входного числа в двоичное, но распечатывает его в порядке справа налево. Я воспринимаю ввод как строку, оканчивающуюся новой строкой, так как Charcoal не имеет хорошего способа ввода списков, иначе я бы написал что-то вроде этого, которое, к сожалению, в настоящее время занимает 21 байт:

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

Попробуйте онлайн! Ссылка на подробную версию кода. Эта версия векторизируется над входным массивом, хотя его выходные данные жестко закодированы в -s, что сохраняет байт.