Erstellen Sie ein Binärlineal

22

Generieren Sie die ersten n Spalten dieses Musters, wenn Sie eine Zahl n haben :

                               #
               #               #
       #       #       #       #
   #   #   #   #   #   #   #   #
 # # # # # # # # # # # # # # # #
################################ ...

Die Höhe der Spalte bei (1-indiziert) n ist die Anzahl der nachfolgenden 0Bits in der Binärdarstellung von n plus eins. Infolgedessen ist in der untersten Schicht jede Spalte ausgefüllt, in der zweiten Schicht jede zweite Spalte, in der dritten Schicht jede vierte Spalte usw.

Regeln

  • Sie können mit jeder Standardmethode eingeben und ausgeben.
  • Sie können davon ausgehen, dass die Eingabe eine ganze Zahl zwischen 1 und 999 einschließlich ist.
  • Die Ausgabe kann beliebig viele Leerzeichen enthalten, solange das Muster intakt ist.
  • Das Muster muss 1-indiziert sein und dasselbe Format haben wie hier gezeigt.
  • Sie können anstelle von ein einzelnes Nicht-Leerzeichen verwenden, das Leerzeichen #jedoch nicht ändern.

Testfälle

1
#

2
 #
##

3
 # 
###

4
   #
 # #
####

5
   # 
 # # 
#####

7
   #   
 # # # 
#######

32
                               #
               #               #
       #       #       #       #
   #   #   #   #   #   #   #   #
 # # # # # # # # # # # # # # # #
################################

Einige größere Testfälle finden Sie hier .

Wertung

Das ist , also gewinnt der kürzeste Code in Bytes in jeder Sprache.

ETHproductions
quelle
2
Verwandte .
ETHproductions
Jetzt kann ich die Entfernung binär messen! Oh warte ...
Okx
2
1. Muss das Lineal waagerecht sein? 2. Müssen die Markierungen sein #?
Jonathan Allan
1
@JonathanAllan 1. Ja und 2. Nein, es kann sich um ein einzelnes Zeichen handeln, das kein Leerzeichen ist. Ich habe dies zu den Regeln hinzugefügt.
ETHproductions
Die Sequenz bei OEIS: A001511
Kein Baum

Antworten:

11

Python 2 , 54 Bytes

i=n=input()
while i:i-=1;print((' '*~-2**i+'#')*n)[:n]

Probieren Sie es online!

Druckt mit vielen führenden Leerzeichen. Jede Zeile, idie abwärts zählt, nwiederholt ein Muster von 2**i-1Leerzeichen, gefolgt von einem #. Dieses Muster wird bis zur Breite des Lineals wiederholt, das die Eingabe ist n. Dazu multiplizieren Sie die Musterzeichenfolge mit nund nehmen die ersten nZeichen mit[:n] .

Das Muster kann durch Formatieren von Zeichenfolgen für eine Alternative gleicher Länge erstellt werden.

i=n=input()
while i:i-=1;print('%%%ds'%2**i%'#'*n)[:n]

Eine süße Aufschnittmethode ist länger.

n=input();s=~-2**n*' '+'#'
exec"s=s[1::2]*2;print s[:n];"*n
xnor
quelle
Ist das ~ -1 oder +1?
Stan Strum
Egal, es ist (-x) - 1
Stan Strum
10

Python 3 , 74 Bytes

n=int(input())
a=1
while a<n:a*=2
while a:print(("%%%dd"%a%4*n)[:n]);a//=2

Probieren Sie es online!

Undichte Nonne
quelle
Wow, ich habe eine Weile gebraucht, um herauszufinden, wie die Zeilen generiert werden. Gut gemacht.
ETHproductions
2
a=2**len(bin(n))für 72 Bytes
Ovs
2
Es kommt schnell zu Speicherfehlern und druckt eine Menge zusätzlichen Leerraum (zulässig) - aber Sie können Python 2 verwenden, um 54 zu erreichen .
Jonathan Allan
9

V , 17 , 16 Bytes

é#Àñä}Är {ñÎÀlD

Probieren Sie es online!

Hexdump:

00000000: e923 c0f1 e416 7dc4 7220 7bf1 cec0 6c44  .#....}.r {...lD

Vielen Dank an @KritixiLithos für das Speichern eines Bytes!

Dieser Algorithmus ist schrecklich ineffizient, sollte aber theoretisch für jede Größeneingabe funktionieren.

Es funktioniert, indem die ersten n Iterationen des folgenden Musters generiert werden :

#

 #
##

   #
 # #
####

       #
   #   #
 # # # #
########

               #
       #       #
   #   #   #   #
 # # # # # # # #
################

                               #
               #               #
       #       #       #       #
   #   #   #   #   #   #   #   #
 # # # # # # # # # # # # # # # #
################################

Und dann alle bis auf die ersten n Spalten abhacken . Als solches wird dies eine Tonne führenden Leerraums erzeugen, aber das OP sagte:

Die Ausgabe kann beliebig viele Leerzeichen enthalten, solange das Muster intakt ist

Erläuterung:

é#                      " Insert an '#'
  Àñ           ñ        " 'N' times:
    ä<C-v>}             "   Duplicate every line blockwise (duplicating horizontally instead of vertically)
           Ä            "   Duplicate the top line. This conveniently puts us on the first non-whitespace character (that is, '#')
            r           "   Replace this character with a space
              {         "   Move to the beginning of the buffer
                Î       " On every line:
                 Àl     "   Move 'N' characters to the right ('l' for right, makes sense, right?)
                   D    "   And delete everything after the cursor
DJMcMayhem
quelle
Ich bin nicht ganz sicher, aber ich denke, Sie können das entfernen |.
Kritixi Lithos
@KritixiLithos Aha! Im Nachhinein ist es so offensichtlich! Danke für den Tipp. :)
DJMcMayhem
5

JavaScript (ES6), 61-58 Byte

f=(n,c=n,s='')=>c?f(n,c>>1,s+s+' ')+`
`+(s+1).repeat(c):''

1 Byte dank @ETHProductions gespeichert, dann 2 weitere Bytes, als ich sah, dass ein beliebiges Zeichen verwendet werden könnte.

Eine rekursive Lösung.

Testfälle:

Animation:

Rick Hitchcock
quelle
1
Gut gemacht. Sie können ändern , c/2|0um c>>1ein Byte zu speichern.
ETHproductions
Schön, ich muss meine bitweisen Operatoren auffrischen.
Rick Hitchcock
4

APL (Dyalog) , 21 Bytes

'# '[1+⊖0⍪∨⍀⊖2⊥⍣¯1⍳⎕]

Probieren Sie es online!

'# '[… `] Indexiere den String mit

 Eingabe abrufen

 dass viele i ntegers

2⊥⍣¯1 konvertiere nach binär, benutze so viele Ziffern wie nötig (eine Zahl in jeder Spalte )

 umdrehen

∨⍀ vertikale kumulative oder Reduktion

0⍪ verketten Nullen an der Spitze

 auf den Kopf stellen (dh wieder auf den Kopf stellen)

1+ add one (für 1-basierte Indizierung)

Adam
quelle
3

Jelly , 11 bis 10 Bytes

Rọ2‘4ẋz⁶ṚY

Probieren Sie es online!

1 Byte, das nach dem OP gespeichert wurde, fügte eine Entspannung hinzu, die der Charakter nicht sein muss #.

Undichte Nonne
quelle
2

Oktave, 45 Bytes

@(n)[[sort(cummin(de2bi(g=0:n)'));g|1]+32 '']

Probieren Sie es auf Octave Online aus!

Anstelle von '#'Drucken '!'.

rahnema1
quelle
2

PHP , 139 Bytes

for($f=array_fill(0,$l=1+log($a=$argn,2)," ");$n++<$a;)for($h=1+strspn(strrev(decbin($n)),$i=0);$i<$h;)$f[$l-++$i][$n]=3;echo join("
",$f);

Probieren Sie es online!

Jörg Hülsermann
quelle
2

Japt , 20 17 Bytes

3 Bytes gespart dank @Shaggy und @ETHproductions

õ_¤q1 o Ä ço÷z w

Probieren Sie es online!

Erläuterung:

Eingabe: 5

õ_¤q1 o Ä ço÷z w
õ           Ã       // Create a range [1...Input] [1,2,3,4,5]
 _                  // Map; At each item:
  ¤                 //   Convert to binary        ["1","10","11","100","101"]
   q1               //   Split on "1"             [["",""],["","0"],["","",""],["","00"],["","0",""]]
      o             //   Get the last item        ["","0","","00",""]
        Ä           //   Add 1                    [["1","01","1","001","1"]]
          ço        //   Fill with "o"            ["o","oo","o","ooo","o"]
             ·      // Join with new-lines        ["o\noo\no\nooo\no"]
              z     // Rotate 90 degrees          ["ooooo\n o o \n o   "]
                w   // Reverse                    ["   o \n o o \nooooo"]
Oliver
quelle
20 Bytes
Shaggy
@ Shaggy Eigentlich brauchst du nicht mal diel
ETHproductions 13.06.17
@ETHproductions: yep, habe das gerade herausgefunden. 18 Bytes
Shaggy
17 Bytes
Shaggy
Ein cooler Trick mit bitweisen Operatoren besteht darin n&-n, nur die letzten 1und alle nachfolgenden 0s in zu erfassen n. Ich
bin
2

C 84 74 Bytes

f(i,l,m){putchar(32+3*!(i&m));i<l?f(i+1,l,m):m?putchar(10),f(1,l,m>>1):1;}

Ungolfed:

void f(int counter, int length, int mask) {
    putchar((counter&mask) ? ' ' : '#');
    if(counter<length) {
        f(counter+1, length, mask);
    } else if(mask) {
        putchar('\n');
        f(1, length, mask>>1);
    }
}

Testen Sie mit:

int main() {
    f(1, 32, 1023);
    putchar('\n');
    f(1, 1, 1023);
    putchar('\n');
    f(1, 999, 1023);
    putchar('\n');
}

Erläuterung

Erneut benötigt die Rekursion in C weniger Zeichen als die Iteration, sodass die beiden Schleifen als die beiden rekursiven Aufrufe ausgedrückt werden.

Außerdem ist C eine großartige Sprache zum Spielen von Stichen mit Booleschen Ausdrücken, mit denen entschieden werden kann, ob ein Leerzeichen oder ein #durch den Ausdruck ausgedrückt werden soll 32+3*!(i&m). Ein Leerzeichen hat den ASCII-Wert 32, das #ist ASCII 35, daher wird ein Leerzeichen angezeigt, wenn eines der Bits in der Maske gesetzt ist i.

cmaster
quelle
Benötigst du das überhaupt int i,l,m?
Zacharý
@ ZacharyT Nein, stellte sich heraus, dass ich es nicht tat. Vielen Dank für das Speichern dieser 10 Bytes :-)
cmaster
2

Pyth , 15 Bytes

j_.tm*Nhx_.Bd1S

Versuch es!

Erläuterung

j_.tm*Nhx_.Bd1S
    m         SQ   # map over the numbers from 0 to the implicit input (lambda variable: d)
          .Bd      # Convert d to a binary string: (12 -> 1100)
         _         # reverse: (1100 -> 0011)
        x    1     # get the location of the first 1 ( 2 )
     *Nh           # make one more than that " quotation marks (""")
 _.t               # transpose the list of quotation mark strings and reverse it
j                  # join on newline
KarlKastor
quelle
@JasonS Es ist eine auf Python basierende Golfsprache! Ich habe jetzt Pyths Github verlinkt . Ich dachte das Probier es aus! Link zum Online Executor wäre ausreichend.
KarlKastor
1

JavaScript (ES8), 71 Byte

Die Funktion padStart () wurde in ECMAScript 2017 eingeführt!

N=>eval(`for(s='',n=1;n<=N;n*=2)s='\\n'+'#'.padStart(n).repeat(N/n)+s`)


JavaScript (ES6), 77 Byte

N=>eval(`for(s='',n=1;n<=N;n*=2)s='\\n'+(' '.repeat(n-1)+'#').repeat(N/n)+s`)

darrylyeo
quelle
1
@ RickHitchcock Behoben.
Darrylyeo
1

Mathematica, 69 Bytes

Rotate[Grid["#"~Table~#&/@(IntegerExponent[2*#,2]&/@Range[#])],Pi/2]&
J42161217
quelle
1

( WESRRMICGSE ): 237 Byte

IF(ROW()<=FLOOR(LOG(COUNTA(R1C:R[-1]C,R[1]C:R[1024]C)+1,2),1)+2,LEFT(REPT(REPT(" ",FLOOR(POWER(2,LOG(COUNTA(R1C:R[-1]C,R[1]C:R[1024]C)+1,2)-ROW()+2),1)-1) &"#",COUNTA(R1C:R[-1]C,R[1]C:R[1024]C)+1),COUNTA(R1C:R[-1]C,R[1]C:R[1024]C)+1),"")

In Ordung. Zeit zu erklären.

Ersetzen Sie zunächst jedes COUNTA(R1C:R[-1]C,R[1]C:R[1024]C)+1durch einfaches[i] für die Eingabe. Das Token zählt die Anzahl der Zellen, die eine Formel enthalten, ohne sich selbst einzuschließen, und fügt dann eine hinzu, um sich selbst einzuschließen. Da WESRRMICGSE eine Formel entsprechend der von Ihnen eingegebenen Eingabe zieht, führt dieses Token immer zur Eingabe.

wir haben:

IF(ROW()<=FLOOR(LOG([i],2),1)+3,LEFT(REPT(REPT(" ",FLOOR(POWER(2,LOG([i],2)-ROW()+2),1)-1) &"#",[i]),[i]),"")

Das ist viel besser lesbar. Sie werden das FLOOR(LOG([i],2),1)Token häufig sehen, was einfach bedeutet, dass Sie die nächste Potenz von 2 nehmen, die kleiner ist als die [i]Zahl von input ( ). zB: 4->4, 5->4, 6->4, 7->4, 8->8 ...etc. Ich werde das durch ersetzenGS[[i]]

IF(ROW()<=GS[[i]]+3,LEFT(REPT(REPT(" ",,FLOOR(POWER(2,LOG([i],2)-ROW()+2),1),1)-1) &"#",[i]),[i]),"")

besser. Wenn wir die if-Klausel auflösen, testen wir, ob die Zeile kleiner oder gleich ist GS[[i]]+3, da die Höhe aller Lineale der GS [[i]] + 1 entspricht. Dadurch werden die Zeilen ausgewählt, die der Höhe der entsprechen Herrscher. +1für Zeilen mit einer Indizierung und +1erneut für den WESRRMICGSE-Offset.

Das FALSEErgebnis ergibt eine leere Zelle ("") und ein echtes Ergebnis ergibtLEFT(REPT(REPT(" ",,FLOOR(POWER(2,LOG([i],2)-ROW()+2),1),1)-1) &"#",[i]),[i])

derzeit noch in Bearbeitung, bleiben Sie dran

tuskiomi
quelle
1

Haskell , 64 62 Bytes

l m=([2..2^m]>>" ")++'#':l m
f n=unlines$take n.l<$>[n,n-1..0]

Probieren Sie es online! Beispiel Nutzung: f 10.

Laikoni
quelle
1

k, 33 Bytes

`0:|" #"{(1+!x){~y!x}/:(x>)(2*)\1}

Dies scheint nur in AWs Interpreter zu funktionieren .

Beispiel dafür in AWs Interpreter.

Die oK-Version (die Sie online testen können) scheint einen Fehler zu haben, für den eine geringfügige Änderung erforderlich ist:

`0:|" #"{(1+!x){~y!x}/:{x>y}[x](2*)\1}
zgrep
quelle
1

C #, 174 Bytes

Diese Methode hat zwei Parameter, eine Eingabe für die Länge des Lineals und eine Ausgabe, die das Lineal als Zeichenfolge darstellt.

Golf gespielt:

void R(int n,out string s){var l=new int[++n];int i,x=n,y=0;for(s="";x-->1;)for(i=0;0==(l[x]=(x>>i++&1)*i);y=y<i?i:y);for(y++;y-->0;s+='\n')for(x=0;++x<n;s+=y<l[x]?'#':' ');}

Eingerückt:

void R(int n,out string s){                       // Return the result in an out parameter.
    var l=new int[++n];                           // Use a 1-based array.
    int i,x=n,y=0;                                //
    for(s="";x-->1;)                              // For each number x on the ruler
        for(i=0;0==(l[x]=(x>>i++&1)*i);y=y<i?i:y) // ... find lowest set bit of x, counting the maximum value.
            ;                                     //
    for(y++;y-->0;s+='\n')                        // Count down each line.
        for(x=0;++x<n;s+=y<l[x]?'#':' ')          // Output # for numbers that are tall enough.
            ;                                     //
}

Probieren Sie es online!

Hand-E-Food
quelle
Würde das Konvertieren in ein Func<int, string>Speichern Sie einige Bytes?
TheLethalCoder
1

Kohle , 27 23 Bytes

↶F…·¹N«Jι⁰#W¬﹪鲫A÷ι²ι#

Probieren Sie es online! Link ist eine ausführliche Version des Codes. Bearbeiten: 4 Bytes durch Umschalten auf gespeichert JumpTo.

Neil
quelle
Es ist immer noch absolut, gerade heißt es JumpTo(sorry)
ASCII
@ Nur ASCII Ah, das Wiki könnte ein Update vertragen. (Oder ich nehme an, ich könnte es tun, wenn Sie mir die Bearbeitungserlaubnis geben möchten ...)
Neil,
@ ASCII-only Huh, ich hätte das von codegolf.stackexchange.com/a/119904 merken sollen ...
Neil
Hast du einen GitHub Account?
Nur ASCII
@ ASCII-only Ich habe zwei ... Ich kann mich nicht entscheiden, welches geeigneter ist ...
Neil
1

J, 38 Bytes

3 :'|.|:''#''#~,.(1+|.i.1:)@#:"0>:i.y'

Nicht gut. Lmk wenn die Byteanzahl aus ist - ich bin auf meinem Handy.

cole
quelle
Sieht für mich wie 38 aus, es sei denn, der 3Anfang ist eingegeben ...
ETHproductions
@ETHproductions danke, schade, das Umschalten von einer stillschweigenden Definition hat keine Bytes gespeichert ...
Cole
1
28 Bytes mit0|.@|:'#'#"0~1#.2~:/\i.#:@,]
Meilen
0

Java (OpenJDK 8) , 91 Byte

n->{int i=10,j;String s="";for(;i-->0;s+="\n")for(j=0;j++<n;)s+=j>>i<<i<j?' ':35;return s;}

Probieren Sie es online!

Ungolfed:

n->{
    int i=10,j; // Since we are allowed extra whitespace, set columns always to 10
    String s = "";
    for(;i-->0;s+="\n")      // Every iteration add a newline, i=9..0
        for(j=0;j++<n;)      // j=1..n+1
            s+= j>>i<<i<j    // if j has less than i trailing 0s in binary form
                ?' '         // add a space else
                :35          // # (java handles ternary return types weirdly)
}
PunPun1000
quelle
0

CJam, 34 Bytes

ri{2bW%0+0#)}%_'#f*\:e>f{Se]}zW%N*

Meh.

Esolanging Fruit
quelle
0

C (gcc) , 70 Bytes

f(x,l,n){for(l=512;l/=2;)for(n=0;n++<=x;)putchar(n^x+1?n%l?32:35:10);}

Probieren Sie es online!

Giacomo Garabello
quelle
Schlagen Sie n+~xstattdessen vorn^x+1
ceilingcat