In einigen Ländern gibt es Empfehlungen oder Gesetze zur Bildung von Notfallkorridoren auf Straßen mit mehreren Fahrspuren pro Richtung. (Im Folgenden betrachten wir nur die Fahrspuren in Fahrtrichtung.) Dies sind die Regeln, die in Deutschland gelten:

• Wenn es nur eine Spur gibt, sollte jeder nach rechts fahren, damit die Rettungsfahrzeuge links vorbeifahren können.
• Wenn es zwei oder mehr Spuren gibt, sollten die Autos auf der linken Spur nach links fahren, und alle anderen sollten nach rechts fahren.

Herausforderung

Bei der Anzahl N>0der regulären Fahrspuren das Layout der Fahrspuren ausgeben, wenn ein Notfallkorridor mit einer Zeichenfolge aus N+1ASCII-Zeichen gebildet wird. Sie können 33bis zu zwei beliebige Zeichen aus dem ASCII-Code verwenden 126, eines für den Notfallkorridor und eines für die Kennzeichnung der Fahrzeuge. Nachgestellte oder führende Leerzeichen, Zeilenumbrüche usw. sind zulässig.

Beispiele

Hier verwenden wir Efür den Notfallkorridor und Cfür die Autos.

N  Output
1  EC
2  CEC
3  CECC
4  CECCC
5  CECCCC
6  CECCCCC
   etc

Python 2, 29 26 Bytes

lambda n:10**n*97/30-1/n*9

Beispiel:

>>> f(1)
23
>>> f(2)
323
>>> f(3)
3233

Python 3, 35 33 Bytes

lambda N:'C'*(N>1)+'EC'+'C'*(N-2)

Bearbeiten: Löschen , f=um 2 Bytes zu sparen, dank der Erinnerung von @dylnan .

Probieren Sie es online!

So visualisieren Sie es:

lambda N:'🚘'*(N>1)+'🚔🚘'+'🚘'*(N-2)

Ausgabe:

1 🚔🚘
2 🚘🚔🚘
3 🚘🚔🚘🚘
4 🚘🚔🚘🚘🚘
5 🚘🚔🚘🚘🚘🚘
6 🚘🚔🚘🚘🚘🚘🚘

Probieren Sie 🚔 online!

Python 3, 40 Bytes

Eine einfache Lösung:

lambda N:str(10**N).replace('100','010')

Probieren Sie es online!

C (gcc) , 32 Bytes

f(n){printf(".%.*f"+1%n,n-1,0);}

Probieren Sie es online!

Gebrauch 0und .Charaktere:

.0
0.0
0.00
0.000
0.0000

Japt, 5 4 Bytes

Verwendet qfür Autos und +für den Flur.

ç¬iÄ

Versuch es

Wir danken Oliver, der gleichzeitig mit mir 4 Bytes weniger gespielt hat.

Erläuterung

Eine kurze Lösung, aber eine knifflige Erklärung!

Das Einfachste zuerst: çWenn die Methode auf eine Ganzzahl angewendet wird, wird das Zeichenfolgenargument so oft wiederholt. Die iMethode akzeptiert 2 Argumente ( s& n) und fügt sam Index nder Zeichenfolge ein, auf die sie angewendet wird.

Erweitern der 2 Unicode - Verknüpfungen verwendet , gibt uns çq i+1, die, wenn sie transpiled JS wird U.ç("q").i("+",1), wo Uder Eingang ist. Also wiederholen wir q Umal und fügen dann ein +bei Index 1 ein.

Der letzte Trick ist , dass dank Japt Index Verpackung, wenn U=1, iwird das Einfügen +am Index 0, was Wert , den Sie füttern es n.

R, 50 Bytes

-11 danke an Giuseppe!

pryr::f(cat("if"(x<2,12,c(21,rep(2,x-1))),sep=""))

Ausgänge 1 für Notfallkorridor und 2 für normale Fahrspuren

Mein Versuch, 61 Bytes

Hier ist nichts Besonderes zu sehen, aber lasst uns R auf die Anzeigetafel bringen =)

q=pryr::f(`if`(x<2,cat("EC"),cat("CE",rep("C",x-1),sep="")))

Verwendungszweck:

q(5)
CECCCC

Haskell , 38 34 32 Bytes

f 1="EC"
f n="CE"++("C"<*[2..n])

Probieren Sie es online!

Python 2, 30 29 28 Bytes

lambda n:`10/3.`[1/n:n-~1/n]

Drucken Sie 3anstelle von Cund .anstelle von E.

Erläuterung:

Probieren Sie es online aus.

lambda n:    # Method with integer parameter and string return-type
  `10/3.`    #  Calculate 10/3 as decimal (3.333333333) and convert it to a string
  [1/n       #   Take the substring from index 1 if `n=1`, 0 otherwise
   ,n-~      #   to index `n+1` +
       1/n]  #    1 if `n=1`, 0 otherwise

Python 2, 33 32 31 29 28 Bytes

lambda n:1%n-1or'1-'+'1'*~-n

Druckt 1anstelle von Cund -anstelle von E.

-2 Bytes dank @ovs .
-1 Byte dank @xnor .

Erläuterung:

Probieren Sie es online aus.

lambda n:    # Method with integer parameter and string return-type
  1%n-1      #  If `n` is 1: Return '-1'
  or         #  Else:
    '1-'+    #   Return '1-', appended with:
    '1'*~-n  #   `n-1` amount of '1's

Pyth, 10 9 8 Bytes

Xn1Q*NQZ

Verwendet 0den Notfall Korridor zu bezeichnen , und ".
Probieren Sie es hier aus

Erläuterung

Xn1Q*NQZ
    *NQ     Make a string of <input> "s.
 n1Q         At index 0 or 1...
X      Z    ... Insert 0.

Brainfuck , 42 Bytes

,[[>]+[<]>-]>>[<]<[<]>+>+<[<-[--->+<]>.,>]

Probieren Sie es online!

Nimmt Eingaben als Zeichencode und Ausgaben als Vnormale Spuren und Wals gelöschte Spuren. (Zum einfachen Testen empfehle ich, die ,durch eine Anzahl von +s zu ersetzen. )

Wie es funktioniert:

,[[>]+[<]>-] Turn input into a unary sequence of 1s on the tape
>>[<]<[<]    Move two cells left of the tape if input is larger than 1
             Otherwise move only one space
>+>+<        Add one to the two cells right of the pointer
             This transforms:
               N=1:  0 0' 1 0  -> 0 2' 1 0
               N>1:  0' 0 1 1* -> 0 1' 2 1*
[<-[--->+<]>.,>]  Add 86 to each cell to transform to Ws and Vs and print

Oktave (MATLAB *), 31 30 28 27 22 Bytes

@(n)'CE'(1+(n>1==0:n))

Probieren Sie es online!

Das Programm funktioniert wie folgt:

@(n)                   %Anonymous function to take input
            n>1==0:n   %Creates [1 0] if n is 1, or [0 1 (0 ...)] otherwise
         1+(        )  %Converts array of 0's and 1's to 1-indexed
    'CE'(            ) %Converts to ASCII by addressing in string

Der hier verwendete Trick besteht darin, das Seed-Array von XNOR 0:nmit einer Prüfung zu versehen, ob die Eingabe größer als 1 ist. Das Ergebnis ist, dass für n>1den Seed ein logisches Array von konvertiert wird, [0 1 (0 ...)]während für n==1den Seed eine Invertierung erfolgt [1 0], um die erforderliche Inversion zu erzielen.

Der Rest ist nur die Umwandlung des Samens in eine Schnur mit genügend angehängten Autos.

(*) Die TIO-Verknüpfung enthält in den Fußzeilenkommentaren eine alternative Lösung für die gleiche Anzahl von Bytes, die in MATLAB und Octave verwendet werden kann. Sie führt jedoch zu einer Folge von '0' und '1' anstelle von 'E' und ' C '. Der Vollständigkeit halber ist die Alternative:

@(n)['' 48+(n>1==0:n)]

• 1 Byte mit n==1~=0:1anstatt mit gespeichert 0:1~=(n<2). ~=hat Vorrang vor <, daher die ursprünglichen Klammern, aber es scheint, dass ~=und ==in der Reihenfolge des Erscheinens behandelt werden, so dass wir durch den Vergleich mit 1 ein Byte speichern können.

• 2 Bytes gespart, indem geändert wurde, wo die Negation von 2:ndurchgeführt wird. Dies erspart ein Paar Klammern. Wir müssen auch das to ändern ~=, ==um der Tatsache Rechnung zu tragen, dass es später negiert wird.

• 1 Byte mit <erneut gespeichert . Es stellt sich heraus, dass <das ==immerhin den gleichen Vorrang hat . Das Voranstellen der <Berechnung ==sichert die korrekte Ausführungsreihenfolge.

• 5 Bytes gespart, indem nicht zwei separate Arrays erstellt wurden. Anstatt sich auf die Tatsache zu verlassen, dass der XNOR-Vergleich sowieso einen einzelnen Bereich in logische Werte umwandelt.

Jelly , 11 9 Bytes

’0ẋ⁾0E;ṙỊ

Probieren Sie es online!

Volles Programm.

Verwendet 0anstelle von C.

C (gcc), 39 Bytes

f(n){printf("70%o"+!n,7|(1<<3*--n)-1);}

Probieren Sie es online!

Ausgeliehen und adaptiert den printf-Trick aus ErikFs Antwort .

Python 3, 32 Bytes

lambda n:f"{'CE'[n<2:]:C<{n+1}}"

Probieren Sie es online!

Verwendet einen F-String-Ausdruck, um entweder zu formatieren, 'E'oder wird 'CE'rechts 'C'damit aufgefüllt, damit er die Breite von hat n+1.

f"{          :       }    a Python 3 f-string expression.
   'CE'[n<2:]             string slice based on value of n.
             :            what to format is before the ':' the format is after.
              C           padding character
               <          left align
                {n+1}     minimum field width based on n

Brain-Flak , 100 66 Bytes

{({}[()]<((((()()()()){}){}){}())>)}{}(({}<>)())<>{<>{({}<>)<>}}<>

Probieren Sie es online!

Verwendet "als Notspur und !als normale Fahrspur.

C #, 34 Bytes

n=>n++<2?"EC":"CE".PadRight(n,'C')

Probieren Sie es online!

05AB1E , 7 Bytes

Î>∍1I≠ǝ

Probieren Sie es online!

0 ist C und 1 ist E.

Erläuterung

Î>          # Push 0 and input incremented            -- [0, 4]
  ∍         # Extend a to length b                    -- [0000]
   1I≠      # Push 1 and input falsified (input != 1) -- [0000, 1, 1] 
      ǝ     # Insert b in a at location C             -- [0100]
            # Implicit display

APL (Dyalog Unicode) , 21 17 16 Bytes

(-≠∘1)⌽'E',⍴∘'C'

Probieren Sie es online!

Dank an Erik für das Speichern von 4 Bytes und Adám für ein weiteres Byte.

Wie?

(-≠∘1)⌽'E',⍴∘'C' ⍝ Tacit function
           ⍴∘'C' ⍝ Repeat 'C', according to the input
       'E',      ⍝ Then append to 'E'
      ⌽          ⍝ And rotate
    1)           ⍝ 1
  ≠∘             ⍝ Different from the input? Returns 1 or 0
(-               ⍝ And negate. This rotates 0 times if the input is 1, and once if not.

Haskell , 35 33 32 Bytes

2 Bytes dank Angs gespeichert, 1 Byte dank Lynn gespeichert

(!!)$"":"EC":iterate(++"C")"CEC"

Probieren Sie es online!

Haskell , 32 30 29 Bytes

Dies ist nullindiziert, sodass es der Herausforderung nicht entspricht

g=(!!)$"EC":iterate(++"C")"CEC"

Probieren Sie es online!

Haskell , 30 Bytes

Dies funktioniert nicht, da die Ausgabe eine Zeichenfolge sein muss

f 1=21
f 2=121
f n=10*f(n-1)+1

Probieren Sie es online!

Hier verwenden wir Zahlen anstelle von Zeichenketten, 2für den Notfallkorridor, 1für die Autos. Wir können a 1zum Ende hinzufügen , indem wir mit 10 multiplizieren und addieren 1. Das ist billiger, weil wir nicht für alle Bytes für Verkettung und String-Literale bezahlen müssen.

Es wäre billiger zu verwenden 0als, 1aber wir brauchen führende Nullen, die am Ende abgeschnitten werden.

Python 3 , 30 29 Bytes

lambda n:"CEC"[~n:]+"C"*(n-2)

Probieren Sie es online!

OK, es gibt bereits viele Python-Antworten, aber ich denke, dies ist der erste Sub-30-Byte unter denen, die immer noch "E" - und "C" -Zeichen anstelle von Zahlen verwenden.

JavaScript (Node.js) , 28 Byte

n=>n<2?21:"12".padEnd(n+1,1)

Probieren Sie es online!

APL (Dyalog Unicode) , 16 Byte

≡∘1⌽'CE',1↓⍴∘'C'

Probieren Sie es online!

Stax , 7 Bytes

ü♣àj#F 

Führen Sie es aus und debuggen Sie es

Dies verwendet die Zeichen "0" und "1". Dies funktioniert, weil sich beim Drehen eines Arrays der Größe 1 nichts ändert.

Ausgepackt, ungolfed und kommentiert sieht es so aus.

1]( left justify [1] with zeroes. e.g. [1, 0, 0, 0]
|)  rotate array right one place
0+  append a zero
$   convert to string

Führen Sie dieses aus

JavaScript (Node.js) , 19 Byte

n=>--n?"0"+10**n:10

Probieren Sie es online!

Perl 5 -p , 27 20 19 Bytes

$_=1x$_;s/1?\K1/E1/

Probieren Sie es online!

Durch die Verwendung 1für die Autos und Eden Notfallkorridor wurde ein Byte gespart .

Gelee , 6 Bytes

⁵*ṾṙỊṙ

Zeigt die Fahrspuren als 0 und die Notspur als 1 an .

Probieren Sie es online!

Wie es funktioniert

⁵*ṾṙỊṙ  Main link. Argument: n

⁵*      Compute 10**n.
  Ṿ     Uneval; get a string representation.
   ṙỊ   Rotate the string (n≤1) characters to the left.
     ṙ  Rotate the result n characters to the left.

Whitespace , 141 104 103 Bytes

[S S S N
_Push_0][S N
S _Duplicate_0][T   N
T   T   _Read_STDIN_as_number][T    T   T   _Retrieve][S S S T  S N
_Push_2][T  S S T   _Subtract][S N
S _Duplicate_input-2][N
T   T   N
_If_negative_Jump_to_Label_-1][S S S T  N
_Push_1][S N
S _Duplicate_1][T   N
S T _Print_as_integer][S S T    T   N
_Push_-1][T N
S T _Print_as_integer][T    S S T   _Subtract][N
S S T   N
_Create_Label_LOOP][S N
S _Duplicate][N
T   T   S N
_If_negative_Jump_to_EXIT][S S S T  N
_Push_1][S N
S _Duplicate_1][T   N
S T _Print_as_integer][T    S S T   _Subtract][N
S N
T   N
_Jump_to_LOOP][N
S S N
_Create_Label_-1][T N
S T _Print_as_integer][N
S S S N
_Create_Label_EXIT]

Buchstaben S(Leerzeichen), T(Tabulator) und (Zeilenvorschub) werden Nnur als Hervorhebungen hinzugefügt.
[..._some_action]nur als Erklärung hinzugefügt.

Druckt 1anstelle von Cund -anstelle von E.

-1 Byte dank @JoKing, indem die Verwendung von 1und -1anstelle von 0und vorgeschlagen wird 1.

Erklärung im Pseudocode:

Integer i = STDIN-input as integer - 2
If i is negative (-1):
  Print i (so print "-1")
Else:
  Print "1-1"
  Start LOOP:
    If i is negative:
      EXIT program
    Print "1"
    i = i-1
    Go to the next iteration of the LOOP

Beispiel läuft:

Eingang: 1

Command   Explanation                 Stack      Heap    STDIN   STDOUT   STDERR

SSSN      Push 0                      [0]
SNS       Duplicate top (0)           [0,0]
TNTT      Read STDIN as integer       [0]        {0:1}   1
TTT       Retrieve heap at 0          [1]        {0:1}
SSSTSN    Push 2                      [1,2]      {0:1}
TSST      Subtract top two            [-1]       {0:1}
SNS       Duplicate input-2           [-1,-1]    {0:1}
NTSN      If neg.: Jump to Label_-1   [-1]       {0:1}
NSSN      Create Label_-1             [-1]       {0:1}
TNST      Print top as integer        []         {0:1}           -1
NSSSN     Create Label_EXIT           []         {0:1}
                                                                         error

Probieren Sie es online aus (nur mit Leerzeichen, Tabulatoren und Zeilenumbrüchen).
Stopps mit Fehler: Exit nicht definiert.

Eingang: 4

Command   Explanation                   Stack      Heap    STDIN   STDOUT   STDERR

SSSN      Push 0                        [0]
SNS       Duplicate top (0)             [0,0]
TNTT      Read STDIN as integer         [0]        {0:4}   4
TTT       Retrieve heap at 0            [4]        {0:4}
SSSTSN    Push 2                        [4,2]      {0:4}
TSST      Subtract top two              [2]        {0:4}
SNS       Duplicate input-2             [2,2]      {0:4}
NTSN      If neg.: Jump to Label_-1     [2]        {0:4}
SSSTN     Push 1                        [2,1]      {0:4}
SNS       Duplicate top (1)             [2,1,1]    {0:4}
TNST      Print as integer              [2,1]      {0:4}           1
SSTTN     Push -1                       [2,1,-1]   {0:4}
TNST      Print as integer              [2,1]      {0:4}           -1
TSST      Subtract top two              [1]        {0:4}
NSSTN     Create Label_LOOP             [1]        {0:4}
 SNS      Duplicate top (1)             [1,1]      {0:4}
 NTTSN    If neg.: Jump to Label_EXIT   [1]        {0:4}
 SSSTN    Push 1                        [1,1]      {0:4}
 SNS      Duplicate top (1)             [1,1,1]    {0:4}
 TNST     Print as integer              [1,1]      {0:4}           1
 TSST     Subtract top two              [0]        {0:4}
 NSNTN    Jump to Label_LOOP            [0]        {0:4}

 SNS      Duplicate top (0)             [0,0]      {0:4}
 NTTSN    If neg.: Jump to Label_EXIT   [0]        {0:4}
 SSSTN    Push 1                        [0,1]      {0:4}
 SNS      Duplicate top (1)             [0,1,1]    {0:4}
 TNST     Print as integer              [0,1]      {0:4}           1
 TSST     Subtract top two              [-1]       {0:4}
 NSNTN    Jump to Label_LOOP            [-1]       {0:4}

 SNS      Duplicate top (-1)            [-1,-1]    {0:4}
 NTTSN    If neg.: Jump to Label_EXIT   [-1]       {0:4}
NSSSN     Create Label_EXIT             [-1]       {0:4}
                                                                            error

Probieren Sie es online aus (nur mit Leerzeichen, Tabulatoren und Zeilenumbrüchen).
Stopps mit Fehler: Exit nicht definiert.

AutoHotkey 32 Bytes

Ersetzt den Buchstaben "C" durch "EC", es sei denn, der Wert von C> 1, sendet er "CEC" und beendet die App.

::C::EC
:*:CC::CEC^c
^c::ExitApp

C => EC
CC => CEC beendet dann das Programm. Alle weiteren Cs werden nach dem Beenden des Programms eingegeben.

APL + WIN, 20 16 Bytes

4 Bytes gespart dank Adám

Fordert zur Eingabe der Ganzzahl n auf:

(-2≠⍴n)⌽n←1⎕/⍕10

1 für Notfallkorridor o für Autos.

J , 11 Bytes

1":1&<=i.,]

Probieren Sie es online!

Basierend auf dem Kommentar von ngn .

🚘 und 🚔:

1&<,~/@A.'🚔',~'🚘'$~,&4

MathGolf , 7 6 Bytes

ú░\┴╜╪

Probieren Sie es online aus.

Ausgabe 1für Eund 0für C.

Erläuterung:

ú         # 10 to the power of the (implicit) input
          #  i.e. 1 → 10
          #  i.e. 4 → 10000
 ░        # Convert it to a string
          #  i.e. 10 → "10"
          #  i.e. 10000 → "10000"
  \       # Swap so the (implicit) input is at the top of the stack again
   ┴╜     # If the input is NOT 1:
     ╪    #  Rotate the string once towards the right
          #   i.e. "10000" and 4 → "01000"
          # Output everything on the stack (which only contains the string) implicitly