Untuk bilangan bulat nyang memuaskan n > 0, tulis nilainya sebagai jalur turun kanan berdasarkan representasi binernya.

Aturan

• Set bit pertama (paling signifikan) selalu di sudut kiri atas.
• Ketika bit berikutnya diatur (a 1), gambar sebuah karakter ("diisi") pada baris berikutnya di kolom yang sama dengan karakter sebelumnya digambar. Cobalah untuk menggunakan spasi ("kosong") untuk mengisi, tetapi karakter apa pun akan melakukan selama itu selalu sama.
• Ketika bit berikutnya tidak disetel (a 0), gambarlah sebuah karakter ("terisi") pada baris yang sama segera di sebelah kanan karakter sebelumnya yang digambar.
• Kode Anda harus mendukung angka dengan setidaknya 20 bit signifikan.
• Tulis program lengkap, fungsi, lambda, dll. Tetapi tidak ada cuplikan.
• Tidak ada spasi spasi (atau karakter "kosong") / baris yang diizinkan
• Sejumlah spasi tambahan (atau karakter "kosong") / baris diizinkan
• Segala jenis input 1D diterima: angka, string, array booleans, dll. Jaga agar urutan bit tidak tersentuh.
• Segala jenis output 2D visual diterima: pada stdout, sebuah string (dengan dua nilai berbeda yang mewakili "diisi" dan "kosong"), Anda bahkan dapat menampilkan matriks jika Anda mau. Daftar angka tampaknya sulit untuk didamaikan dengan aturan "no heading heading", tetapi saya terbuka untuknya jika Anda menemukan cara untuk menggunakannya. Catatan: jika Anda memilih untuk mencetak atau mengembalikan string, karakter yang digunakan harus karakter ASCII dalam rentang codepoint [32-126].
• Celah standar dilarang.
• Ini adalah codegolf sehingga kode terpendek menang.

Contohnya

Input: 1

*

Input: 2

**

Input: 3

*
*

Input: 4

***

Input: 5

**
 *

Input: 6

*
**

Input: 7

*
*
*

Input: 25

*
***
  *

Input: 699050

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

Input: 1047552

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

Input: 525311

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

Jelly , 8 byte

¬œṗ+\Ṭz0

Sebuah link monadik menerima nomor sebagai daftar satu dan nol (misalnya 13adalah [1,1,0,1]) kembali daftar daftar dari satu dan nol di mana daftar pertama adalah baris pertama.

Cobalah online! atau lihat test-suite yang diformat

Bagaimana?

¬œṗ+\Ṭz0 - Link: list L           e.g. [1,1,0,0,1,1,0,1] (i.e. 205)
¬        - logical NOT L               [0,0,1,1,0,0,1,0]
    \    - cumulative reduce L by:
   +     -   addition                  [1,2,2,2,3,4,4,5]
 œṗ      - partition @ truthy indices  [[1,2],[2],[2,3,4],[4,5]]
     Ṭ   - un-truth (vectorises)       [[1,1],[0,1],[0,1,1,1],[0,0,0,1,1]]
      z0 - transpose with filler 0     [[1,0,0,0],[1,1,1,0],[0,0,1,0],[0,0,1,1],[0,0,0,1]]
         -                        i.e.  1000
                                        1110
                                        0010
                                        0011
                                        0001

MATL , 14 byte

J_iB^YsJ+'o-'&XG

Menghasilkan keluaran grafis sebagai jalur mulai dari koordinat (0,0). Cobalah di MATL Online! Atau lihat beberapa contoh offline di bawah ini:

• Masukan 7:

  

  Keluaran:

  

• Masukan 699050:

  

  Keluaran:

  

Jika Anda suka, Anda dapat melihat jalur sebagai koordinat kompleks untuk 9 byte :

J_iB^YsJ+

Cobalah online!

Penjelasan

J_      % Push -1j (minus imaginary unit)
i       % Push input number
B       % Convert to binary. Gives an array of 0 and 1 digits
^       % Power, element-wise. A 0 digit gives 1, a 1 digit gives -1j
Ys      % Cumulative sum. Produces the path in the complex plane
J+      % Add 1j, element-wise. This makes the complex path start at 0
'o-'    % Push this string, which defines plot makers
&XG     % Plot

MATL , 10 byte

YsG~YsQ1Z?

Input array digit biner. Menghasilkan matriks.

Cobalah online!

Penjelasan

Ys    % Implicit input: array of binary digits. Cumulative sum. This gives the
      % row coordinates
G     % Push input again
~     % Negate: change 0 to 1 and 1 to 0
Ys    % Cumulative sum
Q     % Add 1. This gives the column coordinates
1Z?   % Matrix containing 1 at those row and column coordinates and 0 otherwise.
      % Implicit display

Python 2 , 100 99 81 78 73 66 byte

a='';x=0
for c in input():a+=('\n'+' '*x)*c+'*';x+=1-c
print a[1:]

Cobalah online!

Versi rekursif:

Python 2 , 71 69 67 byte

f=lambda n,x=0:n and('\n'[:x]+' '*x)*n[0]+'*'+f(n[1:],x+1-n[0])or''

Cobalah online!

Arang , 22 20 19 11 10 byte

Ｆ⮌Ｓ¿Ｉι↑*←*

Sejauh ini hanya jawaban kedua Arang saya.

Mengambil input sebagai binary-String (yaitu 699050sebagai 10101010101010101010).

-9 byte terima kasih kepada @Neil menyarankan untuk mengulang ke belakang.

Cobalah online.

Penjelasan:

Baca STDIN sebagai string dalam urutan terbalik:

Reverse(InputString())
⮌Ｓ

Lingkari angka binernya sebagai string ι:

For(Reverse(InputString()))
Ｆ⮌Ｓ

Jika ιdilemparkan kembali ke angka 1, cetak ke *atas, atau cetak ke *arah kiri.

If(Cast(i)) Print(:Up,"*"); Else Print(:Left,"*");
¿Ｉι↑*←*

C # (.NET Core) , 155 123 120 113 101 byte

Disimpan 32 byte karena input dapat diterima sebagai array bit.
Disimpan 7 byte berkat @auhmaan.
Disimpan 10 byte berkat @KevinCruijssen.

n=>{var m="";for(int i=0,c=1;i<n.Length;)m+=n[i++]<1?c++%1+"":(i>1?"\n":"")+"0".PadLeft(c);return m;}

Cobalah online!

05AB1E , 18 17 14 byte

γ€gć¸s>«1IÔ·ÌΛ

Cobalah online!

Penjelasan

γ€g             # Push the input as the array as chuncks of consecutive elements, map with length
   ć¸s>«        # Increment each value except the first one
        1I      # Push 1 and the input       
          Ô     # Push connected uniquified input (first elements of each chunck of consecutive elements in the input)
           ·Ì   # Map each with 2 * a + 2
             Λ  # Draw canvas :-)

• 3 byte terima kasih kepada @Emigna

Penjelasan kanvas 05AB1E

Python 2 , 59 byte

s=p='\n'
for x in input():s+=p*x+'*';p+=' '[x:]
print s[2:]

Cobalah online!

Didasarkan pada solusi TFeld .

Haskell , 65 byte

f(a:b)|a="*":f b|(x:y)<-f b=('*':x):map(' ':)y
f[]=["*"]
f.tail

Cobalah online!

Mengambil input sebagai daftar boolean.

Curry PAKCS, 70 byte

u(a:b)=('*':a):map(' ':)b
f(a:b)|a="*":f b|1>0=u$f b
f[]=["*"]
f .tail

Port of the Haskell menjawab, tetapi karena <-tidak berfungsi di Curry kita perlu membuat fungsi helper u. Kita juga perlu menambahkan spasi di antara fdan .agar Curry mem-parsingnya sebagai komposisi alih-alih sebuah titik.

Ini juga berfungsi di MCC Curry, tetapi tidak berfungsi di Sloth Curry (yang merupakan satu-satunya yang didukung oleh TIO).

Haskell , 74 70 67 62 byte

tail.("\n"%)
s%(x:r)=([1..x]>>s)++'*':(s++[' '|x<1])%r
s%[]=""

Cobalah online! Mengambil daftar nol dan yang sebagai input dan mengembalikan string yang dipisahkan baris baru.

Terinspirasi oleh jawaban xnor .

Emojicode , 251 byte

🐖🎅🏿🍇🍦b🔡🐕2🍦c🔤*🔤🍮e🔤🔤🍮y🔤🔤🍦k🍡b🔂i k🍇🍊😛🔡i🔤1🔤🍇🍊😛y e🍇🍉🍓🍇😀y🍉🍮y🔤🔤🍮y🍪e c🍪🍉🍓🍇🍮y🍪y c🍪🍮e🍪🔤 🔤 e🍪🍉🍉😀y🍉

Cobalah online!

Ini jelas bukan solusi golf, tetapi tidak ada orang hidup yang akan menganggap Emoji-kode bahasa golf. Namun, dalam proses menundukkan diri saya pada kengerian yang merupakan sintaksis kode emoji dalam upaya untuk mengajarkan kepada diri sendiri kebodohan bahasa ini, saya terkejut dengan betapa kuat dan efisiennya hal itu 😀

Penjelasan:

🐋 🚂 🍇    👴 Define Class
🐖🎅🏿🍇    👴 Define Method
🍦b🔡🐕2    👴Convert Input integer to binary string
🍦c🔤*🔤    👴 asterisk string
🍮e🔤🔤    👴 Spacing string
🍮y🔤🔤    👴 output string
🍦k🍡b    👴 translate to iteratable
🔂i k🍇    👴 for-in loop to iterate over each digit 
🍊😛🔡i🔤1🔤🍇    👴 if digit is 1:
🍊😛y e🍇🍉    👴 don't print initial newline
🍓🍇😀y🍉    👴 print spaces + asterisks
🍮y🔤🔤    👴 reset output string
🍮y🍪e c🍪🍉    👴 add correct number of spaces and one asterisk
🍓🍇    👴 if digit is 0:
🍮y🍪y c🍪    👴 add an asterisk to the output string
🍮e🍪🔤 🔤 e🍪    👴 add another space to the space string
🍉🍉
😀y    👴 print one last output string
🍉🍉
🏁🍇    👴 Start Program
 🎅🏿 699050    👴 Call Method
🍉

JavaScript (ES6), 48 byte

Format I / O yang sama dan logika yang sama dengan versi rekursif di bawah ini.

a=>a.map((n,i)=>n?i&&p+0:+(p+=' '),p=`
`).join``

Cobalah online!

Atau 42 byte jika format ini dapat diterima.

Versi rekursif, 56 byte

Mengambil input sebagai array bilangan bulat (0 atau 1). Penggunaan 0untuk diisi dan ruang kosong.

f=([n,...a],p=`
`,x=0)=>1/n?(n?x+0:+(p+=' '))+f(a,p,p):a

Cobalah online!

Berkomentar

f = (               // f = recursive function taking:
  [n, ...a],        //   n = current bit; a[] = remaining bits
  p = `\n`,         //   p = padding string, initialized to a linefeed
  x = 0             //   x = 0 on the 1st iteration / equal to p after that
) =>                //
  1 / n ?           // if n is defined:
    ( n ?           //   if n = 1:
        x + 0       //     append x + 0 --> either the integer 0 on the first iteration
                    //                      or the padding string followed by a '0'
      :             //   else:
        +(          //     append the integer 0 (whitespace coerced to a number)
          p += ' '  //     and append a space to the padding string
        )           //
    ) + f(a, p, p)  //   append the result of a recursive call with x = p
  :                 // else:
    a               //   append the empty array a[], forcing coercion to a string

Utilitas Bash + GNU, 38

dc -e?2op|sed 's/\B1/^K^H*/g;s/[10]/*/g'

Di sini ^Kdan^H merupakan karakter kontrol tab vertikal dan backspace literal. Ini tidak ditampilkan dengan baik di browser, jadi skrip ini dapat dibuat ulang sebagai berikut:

base64 -d <<< ZGMgLWU/Mm9wfHNlZCAncy9cQjEvCwgqL2c7cy9bMTBdLyovZyc= > binpath.sh

Berlari di terminal. Masukan melalui STDIN.

Jawaban ini dapat memperluas spesifikasi terlalu jauh - sebenarnya tidak ada karakter utama di setiap baris output - semua penentuan posisi dilakukan dengan karakter kontrol. Jika ini terlalu banyak peregangan, maka output dapat disalurkan ke |col -x|tacuntuk 11 byte tambahan.

Batch, 113 byte

@set s=
:l
@shift
@if %1.==0. set s=%s%+&goto l
@echo %s%+
@if not %s%.==. set s=%s:+= %
@if %1.==1. goto l

Mengambil daftar bit sebagai argumen baris perintah. Penggunaan +bukan *karena *memiliki makna khusus di dalam %s:...=...%ekspansi.

Java 10, 100 106 byte

b->{var s="";int i=0,j;for(var c:b){if(c)for(s+="\n",j=i;j-->0;)s+=0;else++i;s+=1;}return s.substring(1);}

Mengambil array booleans dan mengembalikan sebuah String ( 0s kosong, 1s diisi). Cobalah online di sini .

Terima kasih kepada Olivier Grégoire karena membantu saya golf sedikit lebih banyak dan mengingatkan saya pada kenyataan bahwa format output saya tidak sesuai dengan spesifikasi.

Versi tidak disatukan:

b -> { // lambda taking an array of booleans as argument
    var s = ""; // the output String
    int i = 0,  // the number of "empty" characters to output
    j;          // iterator variable for outputting the "empty" characters
    for(var c : b) { // iterate over the boolean array (the binary digits)
        if(c) // if it's a '1'
            for(s += "\n", // output a newline
            j = i; j-- > 0;) s += 0; // output the "empty" characters
        else // if it's a '0'
            ++i; // move one to the right on the next line
        s += 1; // output the "filled" character
    }
    return s.substring(1); // output the constructed String, minus the leading newline
}

Java (JDK 10) , 83 byte

a->{int m[][]=new int[20][20],r=0,i=0;for(int b:a)m[r+=i<1?0:b][i++-r]=1;return m;}

Cobalah online!

• Mendukung paling banyak 20 bit.
• Masukkan sebagai int[]
• Output sebagai int[][]

Haskell , 126 byte

(#)n=maximum.map(!!n)
f l|s<-scanl1(zipWith(+))$(\a->[1-a,a])<$>l=unlines[[last$' ':['#'|elem[x,y]s]|x<-[0..0#s]]|y<-[1..1#s]]

Masukan sebagai daftar nol dan satu. Mengubah angka menjadi diimbangi olehx↦[1-x,x] dan menghitung jumlah parsial. Hasil akhir dilakukan dengan dua pemahaman daftar bersarang.

Cobalah online!

R , 59 byte

function(n,x=sum(n|1))matrix(1:x^2%in%cumsum((n-1)%%x+1),x)

Cobalah online!

Mengambil input sebagai array bit.

Mengembalikan matriks boolean TRUEdan FALSEmewakili a *dan a , masing-masing.

Juga memiliki beberapa hal di footer untuk mencetak matriks yang sesuai dengan spesifikasi di atas, untuk kemudahan pengujian.

APL + WIN, 65 atau 46 byte

Meminta input bilangan bulat

n←+/i←((1+⌊2⍟n)⍴2)⊤n←⎕⋄m←(n,n)⍴' '⋄m[⊂[2](+\i),[1.1]1++\~i]←'*'⋄m

atau untuk vektor numerik dari representasi biner dari integer

m←(2⍴+/n←⎕)⍴' '⋄m[⊂[2](+\i),[1.1]1++\~i]←'*'⋄m

dengan asumsi saya telah membaca komentar untuk jawaban tertentu dengan benar dan input terakhir diperbolehkan.

Pyth, 23 byte

p\*VtQINp+b*Zd.?=hZ)p\*

Coba di sini

Penjelasan

p\*VtQINp+b*Zd.?=hZ)p\*
p\*                       Print the leading *.
   VtQ                    For each bit (excluding the leading 1)...
      IN      .?   )      ... If the bit is set...
        p+b*Zd            ... Print a newline and a bunch of spaces...
                =hZ       ... Otherwise, increase the count of spaces...
                    p\*   ... Then print the next *.

Perl 5 -p , 54 36 byte

s/./$&?"
".$"x$i.1:++$i&&1/ge;s/.//s

Cobalah online!

Potong turun setelah saya menyadari bahwa input bisa berupa string sedikit.

SmileBASIC, 64 59 57 byte

INPUT N@L
GPSET X,Y
B=N<0X=X+B
Y=Y+(X>B)N=N<<1ON!N GOTO@L

Bit tertinggi (bit tanda) dicentang, dan jika 1, posisi X meningkat. Jika bit tanda kurang dari posisi X (yaitu, bit tanda adalah 0 dan X bukan 0) posisi Y meningkat.

Gerakan pertama akan selalu horizontal, jadi gerakan Y diblokir sampai setelah gerakan X pertama. Ini memastikan bahwa posisi Y tidak meningkat selama 0 bit awal.

Kemudian N digeser ke kiri, dan ini berulang sampai N mencapai 0.

Ruby , 63 byte

->n{s=""
n.to_s(2).gsub(/./){$&==?1?"
"+s+?*:(s+=" ";?*)}[1,n]}

Cobalah online!

Japt , 19 17 byte

Ë?R+Tî +Q:°T©Qìx
Ë?                 // Map over the input and if the current value is 1:
  R+               // Return a new line and
    Tî +           // a space repeated T (with initial value 0) times and
        Q          // a \".
         :         // If the current value is 0:
          °T       // Increment T
            ©Q     // and return \".
              Ã    // When all of that is done,
               ¬   // turn the array into a string
                x  // and trim it, removing the excess new line at the start.

Mengambil input sebagai array bit, misalnya [1,0,1], "bukannya output *.
Bercukur dua byte karena Oliver .

Cobalah online!

Python 2, 113 Bytes

def f(a):
 o='*';r=[o]
 for i in bin(a)[3:]:
  if'0'<i:r+=[' '*len(r[-1][1:])]
  r[-1]+=o
 print'\n'.join(r)

Tidak yakin apakah yang ini diperhitungkan (output array dari masing-masing baris), tetapi jika demikian maka saya akan mengubah jumlah byte saya menjadi 103:

def f(a):
 o='*';r=[o]
 for i in bin(a)[3:]:
  if'0'<i:r+=[' '*len(r[-1][1:])]
  r[-1]+=o
 print r

TI-Basic (TI-84 Plus CE), 85 byte

Prompt L
1→X
1→Y
DelVar [A]
sum(LL
{Ans,1-Ans+dim(LL→dim([A]
1→[A](Y,X
For(I,2,dim(LL
Y+LL(I→Y
X+not(LL(I→X
1→[A](Y,X
End
[A]

Meminta daftar boolean, mengembalikan matriks 0 dan 1.

Pergi melalui daftar, menambah X jika 'bit' berikutnya adalah 0, mengubah Y sebaliknya, lalu menambahkan 1 ke matriks di lokasi itu, dan mengembalikan matriks di akhir.

TI-Basic adalah lanugage tokenized .

• 1 byte: Prompt , L* 6, (baris) * 12, 1* 5, →* 7, X* 5, Y* 5, sum(, _L* 5, {, Ans* 2, ,* 5, -, +* 3, dim(* 3, (* 4, For(, I* 3, 2, not(, End= 73 bytes
• 2 bytes: Delvar , [A]* 5 = 12 byte
• Total: 85 byte

TI-Basic (TI-84 Plus CE), 56 byte

Prompt L
1→X
1→Y
Output(Y,X,"*
For(I,2,dim(LL
Y+LL(I→Y
X+not(LL(I→X
Output(Y,X,"*
End

Proses yang sama seperti di atas, tetapi menggunakan output grafis (dibatasi oleh ukuran layar: 10 baris, 26 kolom, jadi maks 10 1s dan 25 0s) saat berjalan, alih-alih menambahkan ke matriks.

Pyth, 30 byte

JZFG.BQIsGIJk)p+*ZdN.?pN=hZ)=J

Cobalah online!

Penggunaan " bukan* .

Q=eval(input())
Z=0
J=Z
for G in "{0:b}".format(Q):
    if int(G):
        if J:
            print()
        print(Z*' '+'"',end='')
    else:
        print('"',end='')
        Z+=1
    J=Q

x86 .COM, 32 byte

00h: 66 D1 E6 66 0F BD CE BF 24 AD 8E DF 41 66 0F A3 
10h: CE 19 DB 81 E3 9E 00 8D 79 02 C6 05 2A E2 EE C3 

fun:
shl esi, 1
bsr ecx, esi
mov di, $ad24
mov ds, di
inc cx
lab2:
bt esi, ecx
sbb bx,bx
and bx,158
lea di,[di+2+bx]
mov [di],byte '*'
lab1:loop lab2
ret  

APL (Dyalog Classic) , 18 byte

+⌿↑1↑¨⍨-+\,¨∘~⍨0,⎕

Cobalah online!