Dla liczby całkowitej, nktóra spełnia n > 0, zapisz jej wartość jako ścieżkę malejącą w prawo na podstawie jej reprezentacji binarnej.

Zasady

• Pierwszy (najbardziej znaczący) zestaw bitów znajduje się zawsze w lewym górnym rogu.
• Gdy ustawiony jest następny bit (a 1), narysuj znak („wypełniony”) w następnym wierszu w tej samej kolumnie, co poprzedni narysowany znak. Spróbuj użyć spacji („pustych”) do wypełnienia, ale każda postać zrobi tak długo, jak zawsze będzie taka sama.
• Gdy następny bit jest wyłączony (a 0), narysuj znak („wypełniony”) na tej samej linii natychmiast po prawej stronie poprzedniego narysowanego znaku.
• Twój kod musi obsługiwać liczby o co najmniej 20 znaczących bitach.
• Napisz pełny program, funkcję, lambda itp., Ale bez fragmentu.
• Niedozwolone są spacje wiodące (lub „puste” znaki) / linie
• Dowolna liczba końcowych spacji (lub „pustych” znaków) / linii jest dozwolona
• Akceptowane są wszelkiego rodzaju dane wejściowe 1D: liczba, ciąg znaków, tablica wartości logicznych itp. Nie zmieniaj jednak kolejności bitów.
• Akceptowane są wszelkie wizualne dane wyjściowe 2D: na standardowym odcinku (z dowolnymi dwoma odrębnymi wartościami reprezentującymi „wypełnione” i „puste”), możesz nawet wyprowadzić macierz, jeśli chcesz. Lista liczb wydaje się trudna do pogodzenia z zasadą „bez spacji nagłówkowych”, ale jestem otwarty na nią, jeśli znajdziesz sposób jej użycia. Uwaga: jeśli zdecydujesz się wydrukować lub zwrócić ciąg znaków, użyte znaki muszą być znakami ASCII w zakresie punktów kodowych [32-126].
• Standardowe luki są zabronione.
• To jest codegolf, więc wygrywa najkrótszy kod.

Przykłady

Wejście: 1

*

Wejście: 2

**

Wejście: 3

*
*

Wejście: 4

***

Wejście: 5

**
 *

Wejście: 6

*
**

Wejście: 7

*
*
*

Wejście: 25

*
***
  *

Dane wejściowe: 699050

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

Dane wejściowe: 1047552

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

Wejście: 525311

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

Galaretka , 8 bajtów

¬œṗ+\Ṭz0

Łącze monadyczne przyjmujące liczbę jako listę zer i jedynek (np. 13Jest [1,1,0,1]) zwraca listę list zer i jedynek, gdzie pierwsza lista jest pierwszym wierszem.

Wypróbuj online! lub zobacz sformatowany zestaw testów

W jaki sposób?

¬œṗ+\Ṭ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 bajtów

J_iB^YsJ+'o-'&XG

Generuje wyjście graficzne jako ścieżkę rozpoczynającą się od współrzędnych (0,0). Wypróbuj w MATL Online! Lub zobacz kilka przykładów offline poniżej:

• Wejście 7:

  

  Wydajność:

  

• Wejście 699050:

  

  Wydajność:

  

Jeśli wolisz, możesz zobaczyć ścieżkę jako złożone współrzędne dla 9 bajtów :

J_iB^YsJ+

Wypróbuj online!

Wyjaśnienie

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 bajtów

YsG~YsQ1Z?

Wprowadza tablicę cyfr binarnych. Wysyła macierz.

Wypróbuj online!

Wyjaśnienie

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 bajtów

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

Wypróbuj online!

Wersja rekurencyjna:

Python 2 , 71 69 67 bajtów

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

Wypróbuj online!

Węgiel drzewny , 22 20 19 11 10 bajtów

Ｆ⮌Ｓ¿Ｉι↑*←*

Jak dotąd tylko moja druga odpowiedź na węgiel drzewny.

Pobiera dane wejściowe jako ciąg binarny (tj. 699050Jako 10101010101010101010).

-9 bajtów dzięki @Neil sugerującemu zapętlenie do tyłu.

Wypróbuj online.

Wyjaśnienie:

Czytaj STDIN jako ciąg w odwrotnej kolejności:

Reverse(InputString())
⮌Ｓ

Pętla nad cyframi binarnymi jako ciągami ι:

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

Jeśli ιrzut z powrotem na liczbę to 1, wydrukuj w *górę, w przeciwnym razie wydrukuj *w lewo.

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

C # (.NET Core) , 155 123 120 113 101 bajtów

Zapisano 32 bajty, ponieważ dane wejściowe można odbierać jako tablicę bitów.
Zaoszczędź 7 bajtów dzięki @auhmaan.
Zaoszczędź 10 bajtów dzięki @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;}

Wypróbuj online!

05AB1E , 18 17 14 bajtów

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

Wypróbuj online!

Wyjaśnienie

γ€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 bajty dzięki @Emigna

05AB1E objaśnienie kanwy

Python 2 , 59 bajtów

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

Wypróbuj online!

Oparty na rozwiązaniu TFeld .

Haskell , 65 bajtów

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

Wypróbuj online!

Pobiera dane wejściowe jako listę wartości logicznych.

Curry PAKCS, 70 bajtów

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

Odpowiedź portu Haskell, ale ponieważ <-nie działa w Curry, musimy włączyć funkcję pomocnika u. Musimy również dodać spację między fi. , aby Curry przeanalizował ją raczej jako kompozycję niż kropkę.

Działa to również w MCC Curry, ale nie działa w Sloth Curry (który jest jedynym obsługiwanym przez TIO).

Haskell , 74 70 67 62 bajtów

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

Wypróbuj online! Pobiera na wejściu listę zer i jedynek i zwraca ciąg rozdzielany znakiem nowej linii.

Zainspirowany odpowiedzią xnor .

Emojicode , 251 bajtów

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

Wypróbuj online!

To zdecydowanie nie jest rozwiązanie do gry w golfa, ale nie ma osoby, która uważa kod Emoji za język golfa. Jednak w trakcie poddawania się okropnościom, które są składnią kodu emoji, w celu nauczenia się tej potworności języka, byłem mile zaskoczony tym, jak potężny i wydajny może być 😀

Wyjaśnienie:

🐋 🚂 🍇    👴 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 bajtów

Ten sam format we / wy i taka sama logika, jak w poniższej wersji rekurencyjnej.

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

Wypróbuj online!

Lub 42 bajty, jeśli ten format jest akceptowalny.

Wersja rekurencyjna, 56 bajtów

Pobiera dane wejściowe jako tablicę liczb całkowitych (0 lub 1). Używa 0wypełnienia i miejsca na puste.

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

Wypróbuj online!

Skomentował

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

Narzędzia Bash + GNU, 38

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

Tu ^Ki ^Hsą dosłowne pionowy-Tab i kontroli Backspace znaków. Nie wyświetlają się one dobrze w przeglądarkach, więc ten skrypt można odtworzyć w następujący sposób:

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

Uruchom w terminalu. Wejście odbywa się przez STDIN.

Ta odpowiedź może zbytnio rozszerzyć specyfikację - w rzeczywistości nie ma wiodących znaków w każdym wierszu wyniku - całe pozycjonowanie odbywa się za pomocą znaków kontrolnych. Jeśli jest to zbyt duży odcinek, dane wyjściowe można przesłać do |col -x|tacdodatkowych 11 bajtów.

Partia, 113 bajtów

@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

Pobiera listę bitów jako argumenty wiersza polecenia. Używa +zamiast *ponieważ *ma specjalne znaczenie w %s:...=...%rozszerzeniach.

Java 10, 100 106 bajtów

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);}

Pobiera tablicę booleanów i zwraca ciąg znaków ( 0s są puste, 1s są wypełnione). Wypróbuj online tutaj .

Podziękowania dla Oliviera Grégoire'a za to, że pomógł mi trochę pograć w golfa i ostrzegł mnie, że mój format wyjściowy nie był zgodny ze specyfikacją.

Wersja bez golfa:

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 bajty

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

Wypróbuj online!

• Obsługuje maksymalnie 20 bitów.
• Wprowadź jako int[]
• Dane wyjściowe jako int[][]

Haskell , 126 bajtów

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

Wprowadź jako listę zer i jedynek. Przekształca liczbę na przesunięcie x↦[1-x,x]i oblicza sumy częściowe. Ostateczne dane wyjściowe są wykonywane za pomocą dwóch zagnieżdżonych list.

Wypróbuj online!

R , 59 bajtów

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

Wypróbuj online!

Pobiera dane wejściowe jako tablicę bitów.

Zwraca wartość logiczną macierzy TRUEi FALSEreprezentujących odpowiednio a *i a .

W stopce jest także kilka elementów do wydrukowania matrycy odpowiadającej powyższej specyfikacji, co ułatwia testowanie.

APL + WIN, 65 lub 46 bajtów

Monituje o wprowadzenie liczby całkowitej

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

lub dla wektora liczbowego reprezentacji binarnej liczby całkowitej

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

zakładając, że poprawnie przeczytałem komentarze do niektórych odpowiedzi, a te drugie dane są dozwolone.

Pyth, 23 bajty

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

Wypróbuj tutaj

Wyjaśnienie

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 bajtów

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

Wypróbuj online!

Obetnij to znacznie, gdy zdałem sobie sprawę, że dane wejściowe mogą być nieco ciągiem znaków.

SmileBASIC, 64 59 57 bajtów

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

Sprawdzany jest najwyższy bit (bit znaku), a jeśli wynosi 1, pozycja X wzrasta. Jeśli bit znaku jest mniejszy niż pozycja X (to znaczy bit znaku wynosi 0, a X nie jest 0), pozycja Y wzrasta.

Pierwszy ruch zawsze będzie przebiegał poziomo, więc ruch Y jest blokowany aż do pierwszego ruchu X. Zapewnia to, że pozycja Y nie wzrośnie podczas wiodących 0 bitów.

Następnie N przesuwa się w lewo i to się powtarza, aż N osiągnie 0.

Rubinowy , 63 bajty

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

Wypróbuj online!

Japt , 19 17 bajtów

Ë?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.

Pobiera dane wejściowe jako tablicę bitów, na przykład dane [1,0,1]wyjściowe "zamiast *.
Ogolił dwa bajty dzięki Oliverowi .

Wypróbuj online!

Python 2, 113 bajtów

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)

Nie jestem pewien, czy ten się liczy (wyświetla tablicę każdej z linii), ale jeśli tak, to zmienię liczbę bajtów na 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 bajtów

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]

Monituje o listę boolowską, zwraca macierz 0 i 1.

Przechodzi przez listę, zwiększając X, jeśli następny „bit” ma wartość 0, w przeciwnym razie zmieniając Y, a następnie dodając 1 do macierzy w tym miejscu i zwraca macierz na końcu.

TI-Basic to tokenizowany język .

• 1 bajt: Prompt , L* 6 (nowalinia) * 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 bajtów
• 2 bajtów: Delvar , [A]* 5 = 12 bajtów
• Łącznie: 85 bajtów

TI-Basic (TI-84 Plus CE), 56 bajtów

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

Te same procesy, co powyżej, ale z wykorzystaniem grafiki (ograniczonej wielkością ekranu: 10 wierszy, 26 kolumn, a więc maksymalnie 10 1s i 25 0s) bez dodawania do matrycy.

Pyth, 30 bajtów

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

Wypróbuj online!

Używa "zamiast* .

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 bajty

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 bajtów

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

Wypróbuj online!