Entrada:

• Un entero , que se garantiza que es .$n$$\ge3$
• Un número entero , que es uno de .$d$$[-1,0,1]$

Salida:

Una carretera de tamaño , que estará en dirección noroeste si ; una dirección norte si ; o una dirección noreste si . El camino siempre tendrá tres espacios de ancho (o cinco en general si incluimos los bordes exteriores). Además, habrá una línea de separación de carreteras en la sección inferior, y luego se alternará mientras va hacia arriba.$n$$d=-1$$d=0$$d=1$

Algunos ejemplos:

Entrada: Salida:$n=7, d=1$

      / / /
     /   /
    / / /
   /   /
  / / /
 /   /
/ / /

Entrada: Salida:$n=4, d=-1$

\   \
 \ \ \
  \   \
   \ \ \

Reglas de desafío:

• Cualquier cantidad de espacios iniciales / finales y / o nuevas líneas son aceptables, siempre que imprima la carretera requerida en algún lugar de la pantalla.
• En lugar de las opciones , también puede usar las opciones o lugar. Además, puede elegir cuál de las tres opciones se asigna a cuál de las tres direcciones. (Asegúrese de mencionar las opciones que ha utilizado si difiere de la para , respectivamente, que se utiliza en esta descripción desafío!)$[-1,0,1]$$[0,1,2]$$[1,2,3]$$[-1,0,1]$[north-west, north, north-east]
• Cualquier formato de salida razonable es aceptable. Por supuesto, lo más común es imprimirlo en STDOUT, pero devolverlo como una cadena o una lista de caracteres 2D también está bien.

Reglas generales:

• Este es el código de golf , por lo que la respuesta más corta en bytes gana.
  No permita que los lenguajes de code-golf lo desanimen a publicar respuestas con lenguajes que no sean codegolf. Trate de encontrar una respuesta lo más breve posible para 'cualquier' lenguaje de programación.
• Las reglas estándar se aplican a su respuesta con las reglas de E / S predeterminadas , por lo que puede usar STDIN / STDOUT, funciones / método con los parámetros adecuados y programas completos de tipo retorno. Tu llamada.
• Las lagunas predeterminadas están prohibidas.
• Si es posible, agregue un enlace con una prueba para su código (es decir, TIO ).
• Además, se recomienda agregar una explicación para su respuesta.

Casos de prueba:

Los dos ejemplos anteriores y:

Entrada: Salida:$n=10, d=0$

|   |
| | |
|   |
| | |
|   |
| | |
|   |
| | |
|   |
| | |

Lienzo , 23 22 bytes

B}⁴H‟ｍ↶⁷？／|∙/╋］＼|∙\╋］｝

Pruébalo aquí!

Utiliza las entradas de dirección 0, 1 y 2.

Explicación:

...‟    push "--¶¶- ¶¶--"
    m   mold the horizontal length to the 1st input - a horizontal road
     ↶  rotate counter-clockwise - so the separator is on the bottom
        also replaces the dashes with bars

⁷?     ]     ]}  switch over the 2nd input:
                 default case (input 2):
  /                pad with spaces to a "/" diagonal
   |∙/╋            replace "|" with "/"
                 case 0:
        \          pad with spaces to a "\" diagonal
         |∙\╋      replace "|" with ""

case 1 is empty, but because of a bug, the trailing "}" is still required

Python 2 , 79 78 73 72 bytes

n,d=input()
c='|\/'[d]
i=n
while i:print' '*(n-i*d)+c,i%2*c or' ',c;i-=1

Pruébalo en línea!

Toma [1,0,-1]para[north-west, north, north-east]

_{-1 byte, gracias a Neil}

Python 2 , 66 bytes

n,d=input()
s=' '+'|\/'[d]
for c in(s*n)[n:]:print' '*n+s,c+s;n+=d

Pruébalo en línea!

Usos d=-1para NE, d=0para N y d=1para NW. Aprovecha que se permiten espacios principales. La regla de que el segmento inferior de la carretera tiene un separador dificultaba la correcta paridad; se logra cortando (s*n)[n:]la segunda mitad de las 2nalternancias entre el espacio y el personaje del camino.

1. Python 3.5, 122 120 bytes

La secuencia de comandos toma dos parámetros: n, d.

d: 0, 1, 2 -> \ | / /

tio.run

import sys;(n,d)=[*map(int,sys.argv[1:3])];c="\\|/"[d]
for i in range(n):j=n+~i;print(" "*(i,0,j)[d],c,c*(j%2<1)or" ",c)

salida:

$ ./script.py 6 2
      /   /
     / / /
    /   /
   / / /
  /   /
 / / /
$ ./script.py 6 1
 |   |
 | | |
 |   |
 | | |
 |   |
 | | |
$ ./script.py 6 0
 \   \
  \ \ \
   \   \
    \ \ \
     \   \
      \ \ \

Explicación

# parse input params
(n,d)=[*map(int,sys.argv[1:3])]

# select char for "road"
c="\\|/"[d]

# loop n-times
for i in range(n):

    # complement (how many lines to end)
    j=n+~i

    # print
    #   space i or 0 or j times
    #   road, center of road if j is even else space, road
    print(" "*(i,0,j)[d], c, c*(j%2<1) or " ", c)

editar: -2 bytes gracias a Kevin Cruijssen

PowerShell , 88 82 80 74 71 bytes

^{-8 bytes gracias a Mazzy
-6 bytes gracias a AdmBorkBork y Mazzy
-3 bytes gracias a AdmBorkBork}

param($n,$d)$n..1|%{' '*($_,($n-$_))[$d]+($y='/\|'[$d])," $y"[$_%2],$y}

Pruébalo en línea!

Utiliza [0,1,2] para NW, NE, N. Se usa dcomo índice de lista dos veces para obtener primero el método de espaciado (se elimina de la lista cuando se usa 2 que devuelve 0) y luego qué carácter usar al dibujar las líneas. Agrega una lista a la cadena de espacios (que de forma innata tiene espacios entre los miembros cuando se adjunta como tal) que construye el camino. También intercambia entre un carril abierto o un guión según el módulo matemático.

C (gcc) , 100 90 bytes

f(a,b,c,d){for(c=a,d="\\|/"[b+1];c--;)printf("%*c %c %c\n",b>0?c+1:b?a-c:0,d,c%2?32:d,d);}

Pruébalo en línea!

Versión bien escrita

Carbón , 33 29 23 bytes

↷ＮＮη⊘⊕ηＵＥ¹¦¹Ｆ⟦²±²⟧«Ｊι⁰η

Pruébalo en línea! El enlace es a la versión detallada del código. Ahora que todos los errores subyacentes de Charcoal parecen corregidos, puedo anunciar el código óptimo. Explicación:

↶Ｎ

Gire la dirección del cursor en sentido antihorario según la primera entrada, de modo que 1 se convierta en noreste, 2 norte y 3 noroeste.

Ｎη

Ingrese la longitud del camino.

⊘⊕ηＵＥ¹¦¹

Imprima la mitad del largo del camino y luego estírelo dando el separador del camino.

Ｆ⟦²±²⟧«Ｊι⁰η

Imprime los lados del camino.

@KevinCruijssen posteriormente envió una versión más difícil de esta pregunta que fue eliminada desde entonces, pero los usuarios con suficiente representante pueden verla aquí: El camino (difícil) al código El truco de estiramiento que utilicé en esta respuesta no es aplicable a esa pregunta, así que en su lugar escribió el siguiente programa de 45 45 bytes:

Ｆ³«Ｊ×ι⊘⊕θ⁰≔…⟦¹ ⟧⊕﹪ι²ιＦη«↶§κ⁰Ｆ⊖§κ¹§ιⅉＰ§ιⅉ↑↷§κ⁰

Pruébalo en línea! El enlace es a la versión detallada del código. Explicación:

Ｆ³«

Pase por los lados y separador.

Ｊ×ι⊘⊕θ⁰

Salta al inicio del lado.

≔…⟦¹ ⟧⊕﹪ι²ι

Haga una matriz que contenga ay 1un espacio, pero elimine el espacio nuevamente si estamos dibujando los lados en lugar del separador.

Ｆη«

Pase sobre cada sección del camino.

↶§κ⁰

Gire la dirección del cursor en consecuencia.

Ｆ⊖§κ¹

Pase sobre uno menos que la longitud de la sección del camino ...

§ιⅉ

... e imprime elementos alternos de la matriz. La alternancia se logra indexando cíclicamente en la matriz con la coordenada Y del cursor.

Ｐ§ιⅉ

Imprima la última fila de esta sección de carretera, pero sin mover el cursor ...

↑

... para que el cursor pueda moverse hacia arriba listo para la siguiente sección.

↷§κ⁰

Gire la dirección del cursor hacia atrás, listo para la siguiente sección.

Kotlin , 96 92 bytes

{n,d->val c="\\|/"[d];(0..n-1).map{println(" ".repeat(n-it*(d-1))+ "$c ${" $c"[it%2]} $c")}}

Acepta [0, 1, 2] en lugar de [-1, 0, 1]

Funciona de manera similar a las soluciones en otros idiomas, pero desafortunadamente Kotlin realmente no brilla en este.

val c=“\\|/“; recupera el carácter para usar en la construcción de carreteras aprovechando el hecho de que Kotlin trata las cadenas como una matriz de caracteres (como debería, mirándote Java)

Pruébalo en línea!

Código TSQL, 171 117 bytes

Me di cuenta de que esto podría escribirse mucho más corto como código.

DECLARE @n INT=7,@d INT=0

,@ INT=0a:PRINT
space(@n-@*@d)+stuff(replicate(substring('\|/',@d+2,1)+' ',3),3,@%2,space(@%2))SET
@+=1IF @n>@ GOTO a

Consulta TSQL, 137 bytes

USE master
DECLARE @n INT=6,@ INT=-1

SELECT space(@n-y*@)+z+iif(y%2=1,z,'  ')+z 
FROM(SELECT top(@n)row_number()over(order
by @)y,' '+substring('\|/',@+2,1)z FROM spt_values)x

USE master no es necesario, si su base de datos ya es master. Sin embargo, algunos usuarios tienen una base de datos predeterminada diferente.

El guión al probarlo es ligeramente diferente. Tuve que reemplazar el espacio ascii-32 con ascii-160, los espacios no se mostraban.

Pruébalo

Hice algunos ajustes y me di cuenta de que podía reemplazar

ordenar por 1/0

con

ordenar por @

JavaScript (ES8),  90 87  85 bytes

(direction)(length)$0$$1$$2$

d=>g=(n,w=n)=>n?(c='/|\\'[d]).padStart([n--,,w-n][d])+` ${n&1?' ':c} ${c}
`+g(n,w):''

Pruébalo en línea!

JavaScript (ES6), 90 bytes

Este dibuja el carácter de salida por carácter con un poco más de matemáticas en lugar del .padStart()método.

(direction)(length)$1$$2$$3$

d=>n=>(g=x=>y?` /|\\
`[x+5?17+y%2*4>>--x+5-[,n+1-y,n,y][d]&1&&d:(x=n,y--,4)]+g(x):'')(y=n)

Pruébalo en línea!

Jalea ,  31  30 bytes

⁶ẋẋƤḂ};€ị“\/|”ẋ3KƊ}Ṛ⁹¡⁶-2¦€ÐeṚ

Un enlace diádico que acepta la longitud a la izquierda y la dirección negada * a la derecha que produce una matriz 2D de caracteres.
* *[north-west, north, north-east]=[1, 0, -1]

Pruébalo en línea! (el pie de página llama al Enlace, se une con los caracteres de nueva línea e imprime el resultado)

¿Cómo?

⁶ẋẋƤḂ};€ị“\/|”ẋ3KƊ}Ṛ⁹¡⁶-2¦€ÐeṚ - Link: integer, L; integer, D
⁶                              - space character
 ẋ                             - repeat L times
     }                         - using the right argument (D):
    Ḃ                          -   mod 2 (0 if D = 0, 1 otherwise ...A would work too)
   Ƥ                           - for each prefix (of the list of spaces):
  ẋ                            -   repeat (D mod 2 times)
                  }            - using the right argument (D):
                 Ɗ             -   last three links as a monad:
        ị“\/|”                 -     index into "\/|" (1-indexed & modular)
              ẋ3               -     repeat three times - e.g. "\\\"
                K              -     join with spaces          "\ \ \"
      ;€                       - concatenate €ach (altered prefix with that list)
                     ¡         - repeat action...
                    ⁹          - ...number of times: right argument (-1 repeats 0 times)
                   Ṛ           - ...action: reverse (i.e. reverse if north-west)
                           Ðe  - for even indexes:
                         ¦€    -   sparse application for €ach...
                       -2      -   ...to indices: [-2] (the middle of the road)
                      ⁶        -   ...action: a space character
                             Ṛ - reverse

Python 2, 127 bytes

n,d=input()
c='|/\\'[d]
for i in range(n):t=0if d==0else(i if d<0else n-i);print(' '*t+'{} {} {}'.format(c,' 'if i%2==0else c,c))

Pruébalo en línea!

Primeras dos líneas tomadas de @TFeld.

Python 2 , 93 bytes

n,d=input();p=''
while n:g='|/\\'[d];n-=1;print['',' '*n,p][d]+g+' %s '%(g,' ')[n%2]+g;p+=' '

Pruébalo en línea!

J , 64 bytes

' \|/'{~(_2&|*[:i.[*1 _1{~3=])|."_1((5+[){."1(5,~[)|.@$]*#:@689)

Pruébalo en línea!

• 1 noroeste
• 2 norte
• 3 noreste

Intentaré jugarlo más tarde

C # (Visual C # interactivo Compilador) , 129 107 103 93 bytes

a=>b=>{for(char i=a,W="/|\\"[b+1];i>0;)Write("{0,"+(a-i*b+5)+"} {1} {0}\n",W,--i%2<1?W:' ');}

-1 para el noreste, 1 para el noroeste, 0 para el norte

Pruébalo en línea!

Rojo , 157 bytes

func[s d][p: pick"\|/"d set[a b]reduce pick[[4 1]0[5 + s -1]]d 
repeat n s[print pad/left form reduce pick[[p" "p][p p p]]odd?(n + pick[1 0]odd? s)a: a + b]]

Pruébalo en línea!

• 1 noroeste
• 2 norte
• 3 noreste

Japt, 53 bytes

W="|/\\"gV;Æ"{W} {YÉ %2?W:' } {W}"ùVÄ?V?Y+5:5:U-Y+4Ãw

Pruébalo en línea!

Swift 4.2 , 112 108 bytes

^{-4 bytes gracias al Sriotchilism O'Zaic}

let c=["\\","|","/"][d];(0..<n).map{print((0..<n-$0*(d-1)).map{_ in" "}.joined()+c+" \($0%2==0 ?c:" ") "+c)}

[0,1,2] en lugar de [-1,0,1].

Pruébalo en línea!

Explicación

let c=["\\","|","/"][d]

Determina el letrero de la calle a usar. (Apuesto a que esto se puede acortar de alguna manera)

(0..<n).map{

Itera a lo largo de la calle.

(0..<n-$0*(d-1)).map{_ in" "}.joined()

Agrega los espacios en frente de la calle.

\($0%2==0 ?c:" ")"

Agrega el signo del medio a cualquier otra línea.

Mi primera ☝️, estoy contento con los consejos de optimización. Aprendí principalmente de ese hilo: consejos para jugar al golf en Swift .

Perl 6 , 66 bytes

->\n,\d{{(' 'x--$ *d%-+^n~(' ',<\ | />[d+1])[1,(n+$++)%2,1])xx n}}

Pruébalo en línea!

Devuelve una lista de líneas.

Explicación

->\n,\d{                                                         }  # Block taking n, d
        {                                                       }   # Reset $ variables
         (                                                 )xx n    # Repeat n times
          ' 'x  # Space times
              --$ *d  # (-1,-2,-3,...) if d=1
                      # (0,0,0,...) if d=0
                      # (1,2,3,...) if d=-1
                    %-+^n  # modulo -~n = n+1
                         ~  # Concat
                          (' ',<\ | />[d+1])  # Space or line
                                            [1,(n+$++)%2,1]  # Alternate middle char

Rubí , 90 bytes.

n,a=*$*.map{|i|-i.to_i}
c='|\/'[a]
n.upto(-1){|i|puts' '*(i*a-n)+c+' '+[' ',c][i%2]+' '+c}

Pruébalo en línea!

ACTUALIZACIÓN: Gracias, Kevin, por señalar que en mi presentación original faltaban espacios entre los bordes de la carretera y los marcadores (es decir, carreteras de 3 anchos en lugar de 5 anchos). Dicho esto, podría haber una solución más corta para eso que c+' '+...+' '+c .

Información direccional: -1, 0, 1mapas a{ north-west, north, north-east }

Argumentos: esto lee argumentos de línea de comandos como 4 -1 (un camino de cuatro filas, inclinado hacia el noroeste).

Nota adicional: Esto se probó localmente con Ruby v2.6.1, y parece que Try It Online usa Ruby v2.5.3. No tengo ninguna razón para pensar que no funcionaría con todas las demás versiones de Ruby.

Java (JDK) , 116 bytes

d->n->{for(int c="\\|/".charAt(d),i=n;i-->0;)System.out.printf("%"+(d<1?n-i:d>1?i+1:1)+"c%2c %c%n",c,i%2<1?c:32,c);}

Pruébalo en línea!

Toma dcomo uno de 0, 1o 2.

Japt -R , 40 bytes

Æ=Vg"|\\/";²i1S+iX%2?S:U)iSp[TZÊ-YY]gVÃw

Pruébalo en línea!

Explicación:

Æ=Vg"|\\/";²i1S+iX%2?S:U)iSp[TZÊ-YY]gVÃw
                                            // U = road size
                                            // V = direction
Æ                                     Ã     // Loop X through [0...U]
 =        ;                                 //   Set U to:
    "|\\/"                                  //       "|\/"
  Vg                                        //            [V]
           ²                                //  Double U
            i1          )                   //  Insert at index 1:
              S+                            //    " " +
                 X%2?S:U                    //         X%2?" ":U
                i                           //                  + " "
                         i                  //  Insert at index 0:
                          Sp                //    " " repeated this many times:
                            [TZÊ-YY]        //      [0,U.length - X,X]
                                    gV      //                        [V]
                                        w   // Reverse output

Stax , 23 bytes

ù╒←∩♂2Ωⁿ¡├∩22♀Ç○=÷â╧δÖ↑

Ejecutar y depurarlo

La entrada es dos enteros separados por un espacio.
La primera es d. -1 especifica noreste. 0 para el norte. 1 para el noroeste. El segundo parámetro es n. Estos dos valores se analizarán implícitamente desde la entrada y se colocarán en la pila de entrada con la nparte superior. Además dserá accesible desde el registro de stax xya que es el primer valor analizado implícitamente.

Por ejemplo, ingrese "1 7"

            Main stack      Explanation
            ----------      -----------
;           [7]             peek from input stack
m                           map over integers [1..n] using the rest of the program
                            output each produced value implicitly
  ;         [1 7]           peek from input stack
  +         [8]             add
  .*"       [8 [42 34]]     2 character string literal with codepoints 42 and 34
  @         [42]            get the element at the specified modular index (8)
  0         [42 0]          literal zero
  "|\/"x@   [42 0 92]       get codepoint from string literal at input d (from x register)
  \         [42 [0 92]]     make pair
  :B        ['\ \ \ ']      encode in custom base; it's binary with custom codepoints
  _x*       ['\ \ \ ' 1]    (loop variable) * (input d)
  ;^        ['\ \ \ ' 1 8]  peek from input stack and increment
  %         ['\ \ \ ' 1]    modulus
  6+        ['\ \ \ ' 7]    add 6
  )         [' \ \ \ ']     left-pad to length

Ejecute este

perl -M5.010 -Mfeature = firmas, 97 bytes

sub f($n,$d){$x=qw[| / \\][$d];say" "x($d<1?$_*-$d:$n-$_),$x,$",($n-$_)%2?$":$x,$",$x for 1..$n;}