En algunas naciones hay recomendaciones o leyes sobre cómo formar corredores de emergencia en las calles que tienen múltiples carriles por dirección. (A continuación, solo consideramos los carriles que van en la dirección en la que estamos viajando). Estas son las reglas que se aplican en Alemania:

• Si solo hay un carril, todos deben conducir a la derecha de manera que los vehículos de rescate puedan pasar a la izquierda.
• Si hay dos o más carriles, los autos en el carril más a la izquierda deben conducir hacia la izquierda, y todos los demás deben moverse hacia la derecha.

Desafío

Dado el número N>0de carriles regulares, muestre el diseño de los carriles cuando se forme un corredor de emergencia utilizando una cadena de N+1caracteres ASCII. Puede utilizar dos caracteres, desde el código ASCII 33hasta 126uno, para denotar el corredor de emergencia y otro para denotar los automóviles. Se permiten espacios finales o iniciales, saltos de línea, etc.

Ejemplos

Aquí lo estamos utilizando Epara el corredor de emergencia y Cpara los automóviles.

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

Ejemplo:

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

Python 3, 35 33 bytes

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

Editar: soltando f=para guardar 2 bytes, gracias al recordatorio de @dylnan .

Pruébalo en línea!

Para visualizarlo:

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

Salida:

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

¡Prueba 🚔 en línea!

Python 3, 40 bytes

Una solución sencilla:

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

Pruébalo en línea!

C (gcc) , 32 bytes

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

Pruébalo en línea!

Usos 0y .personajes:

.0
0.0
0.00
0.000
0.0000

Japt, 5 4 bytes

Usos qpara automóviles y +para el corredor.

ç¬iÄ

Intentalo

Gracias a Oliver, que jugó 4 bytes al mismo tiempo que yo.

Explicación

¡Una solución corta pero una explicación engañosa!

Lo más sencillo primero: el çmétodo, cuando se aplica a un número entero, repite su argumento de cadena ese número de veces. El imétodo toma 2 argumentos ( s& n) e inserta sen el índice nde la cadena a la que se aplica.

La expansión de los 2 accesos directos unicode utilizados nos da çq i+1, que, cuando se transpila a JS U.ç("q").i("+",1), se convierte en Ula entrada. Entonces estamos repitiendo q Utiempos y luego insertando un +en el índice 1.

El truco final es que, gracias al ajuste del índice de Japt, cuándo U=1, iinsertará el +índice at 0, sea cual sea el valor para el que lo alimente n.

R, 50 bytes

-11 gracias a Giuseppe!

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

Salidas 1 para pasillo de emergencia y 2 para carriles normales

Mi intento, 61 bytes

Nada lujoso para ver aquí, pero vamos a poner a R en el marcador =)

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

Uso:

q(5)
CECCCC

Haskell , 38 34 32 bytes

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

Pruébalo en línea!

Python 2, 30 29 28 bytes

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

Imprimir en 3lugar de Cy en .lugar de E.

Explicación:

Pruébalo en línea.

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

Imprime en 1lugar de Cy en -lugar de E.

-2 bytes gracias a @ovs .
-1 byte gracias a @xnor .

Explicación:

Pruébalo en línea.

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

Usos 0para denotar el corredor de emergencia y ".
Pruébalo aquí

Explicación

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

brainfuck , 42 bytes

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

Pruébalo en línea!

Toma la entrada como código char y las salidas como Vcarriles normales y Wcomo el carril despejado. (Para probar fácilmente, recomiendo reemplazar el ,con una serie de +s)

Cómo funciona:

,[[>]+[<]>-] 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

Octava (MATLAB *), 31 30 28 27 22 bytes

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

Pruébalo en línea!

El programa funciona de la siguiente manera:

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

El truco utilizado aquí es XNORar la matriz de semillas 0:ncon una comprobación de si la entrada es mayor que 1. El resultado es que n>1la semilla se convierte en una matriz lógica [0 1 (0 ...)]mientras que n==1la semilla se invierte [1 0], logrando la inversión necesaria.

El resto es simplemente convertir la semilla en una cadena con suficientes autos anexados.

(*) El enlace TIO incluye en los comentarios de pie de página una solución alternativa para el mismo número de bytes que funciona en MATLAB y en Octave, pero da como resultado una secuencia de '0' y '1' en lugar de 'E' y ' C'. Para completar, la alternativa es:

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

• Se guardó 1 byte usando en n==1~=0:1lugar de 0:1~=(n<2). ~=tiene prioridad sobre <, de ahí los corchetes originales, pero parece que ~=y== son manejados por orden de aparición mediante la comparación con 1 podemos ahorrar un byte.

• Se guardaron 2 bytes al cambiar dónde se realiza la negación de 2:n. Esto ahorra un par de paréntesis. También tenemos que cambiar el ~=para ==tener en cuenta el hecho de que se negará más adelante.

• Se guardó 1 byte usando <nuevamente. Resulta que <tiene la misma precedencia que ==después de todo. Colocar el <cálculo antes del ==asegura el orden correcto de ejecución.

• Ahorró 5 bytes al no crear dos matrices separadas. En cambio, confiando en el hecho de que la comparación XNOR convertirá un solo rango en lógicos de todos modos.

Jalea , 11 9 bytes

’0ẋ⁾0E;ṙỊ

Pruébalo en línea!

Programa completo

Usos en 0lugar de C.

C (gcc), 39 bytes

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

Pruébalo en línea!

Pidió prestado y adaptó el truco printf de la respuesta de ErikF .

Python 3, 32 bytes

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

Pruébalo en línea!

Utiliza una expresión de cadena f para formatear 'E'o 'CE'rellenar a la derecha con 'C'lo que tiene ancho de 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

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

Pruébalo en línea!

Usos "como el carril de emergencia y !como los carriles normales.

C #, 34 bytes

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

Pruébalo en línea!

05AB1E , 7 bytes

Î>∍1I≠ǝ

Pruébalo en línea!

0 es C y 1 es E.

Explicación

Î>          # 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'

Pruébalo en línea!

Gracias a Erik por guardar 4 bytes y Adám por un byte adicional.

¿Cómo?

(-≠∘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 guardados gracias a Angs, 1 byte guardado gracias a Lynn

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

Pruébalo en línea!

Haskell , 32 30 29 bytes

Esto está indexado a cero por lo que no cumple con el desafío

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

Pruébalo en línea!

Haskell , 30 bytes

Esto no funciona porque la salida debe ser una cadena

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

Pruébalo en línea!

Aquí usamos números en lugar de cadenas, 2para el corredor de emergencia, 1para los automóviles. Podemos agregar 1a al final multiplicando por 10 y sumando 1. Esto es más barato porque no tenemos que pagar por todos los bytes de concatenación y literales de cadena.

Sería más barato usarlo en 0lugar de hacerlo, 1pero necesitamos ceros iniciales, que terminan recortándose.

Python 3 , 30 29 bytes

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

Pruébalo en línea!

OK, ya hay muchas respuestas de Python, pero creo que este es el primer byter sub-30 entre los que todavía usan caracteres "E" y "C" en lugar de números.

JavaScript (Node.js) , 28 bytes

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

Pruébalo en línea!

APL (Dyalog Unicode) , 16 bytes

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

Pruébalo en línea!

Stax , 7 bytes

ü♣àj#F 

Ejecutar y depurarlo

Esto usa los caracteres "0" y "1". Esto funciona porque cuando gira una matriz de tamaño 1, no cambia.

Desempaquetado, sin golf y comentado, se ve así.

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

Ejecute este

JavaScript (Node.js) , 19 bytes

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

Pruébalo en línea!

Perl 5 -p , 27 20 19 bytes

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

Pruébalo en línea!

Se guardó un byte al usarlo 1para los automóviles y Epara el corredor de emergencia.

Jalea , 6 bytes

⁵*ṾṙỊṙ

Muestra carriles de automóviles como 0 , el carril de emergencia como 1 .

Pruébalo en línea!

Cómo funciona

⁵*ṾṙỊṙ  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.

De espacio en blanco , 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]

Se agregaron letras S(espacio), T(tabulación) y N(nueva línea) solo como resaltado.
[..._some_action]agregado solo como explicación.

Imprime en 1lugar de Cy en -lugar de E.

-1 byte gracias a @JoKing al sugerir el uso de 1y en -1lugar de 0y 1.

Explicación en pseudocódigo:

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

Ejecuciones de ejemplo:

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

Pruébelo en línea (solo con espacios en bruto, pestañas y nuevas líneas).
Se detiene con error: Salida no definida.

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

Pruébelo en línea (solo con espacios en bruto, pestañas y nuevas líneas).
Se detiene con error: Salida no definida.

AutoHotkey 32 bytes

Reemplaza la letra "C" con "EC" a menos que la cantidad de C> 1, luego envía "CEC" y sale de la aplicación.

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

C => EC
CC => CEC luego sale del programa. Cualquier C adicional se ingresará después de que el programa salga.

APL + WIN, 20 16 bytes

4 bytes guardados gracias a Adám

Solicitudes de entero n:

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

1 para pasillo de emergencia o para automóviles.

J , 11 bytes

1":1&<=i.,]

Pruébalo en línea!

Basado en el comentario de ngn .

🚘 y 🚔:

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

MathGolf , 7 6 bytes

ú░\┴╜╪

Pruébalo en línea.

Salida 1por Ey 0para C.

Explicación:

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