Wkład:

• Liczba całkowita $n$ , której gwarantowanie wynosi $\ge3$ .
• Liczbą całkowitą $d$ , która jest jedną z $[-1,0,1]$ .

Wydajność:

Droga o rozmiarze $n$ , która będzie w kierunku północno-zachodnim, jeżeli $d=-1$ ; kierunek północny, jeśli $d=0$ ; lub w kierunku północno-wschodnim, jeżeli $d=1$ . Droga zawsze będzie miała trzy pola szerokości (lub ogólnie pięć, jeśli uwzględnimy granice zewnętrzne). Ponadto na dolnym odcinku będzie znajdować się linia oddzielająca drogę, a następnie naprzemiennie podczas jazdy w górę.

Kilka przykładów:

Dane wejściowe: $n=7, d=1$
wyjściowe:

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

Dane wejściowe: $n=4, d=-1$ wyjściowe:

\   \
 \ \ \
  \   \
   \ \ \

Zasady konkursu:

• Dopuszczalna jest dowolna liczba wiodących / końcowych spacji i / lub nowych linii, o ile drukuje wymaganą drogę gdzieś na ekranie.
• Zamiast opcji $[-1,0,1]$ możesz również użyć opcji $[0,1,2]$ lub $[1,2,3]$ . Możesz także wybrać, która z trzech opcji mapuje na który z trzech kierunków. (Upewnij się, wspominając, które opcje już stosowane, jeżeli różni się ono od $[-1,0,1]$ o [north-west, north, north-east]! Odpowiednio, który jest używany w tym opisie prowokacji)
• Dopuszczalny jest każdy rozsądny format wyjściowy. Najczęstszym jest oczywiście wydrukowanie go do STDOUT, ale zwracanie go jako łańcucha lub listy znaków 2D jest również w porządku.

Główne zasady:

• To jest golf golfowy , więc wygrywa najkrótsza odpowiedź w bajtach.
  Nie pozwól, aby języki gry w golfa zniechęcały Cię do publikowania odpowiedzi w językach niekodujących golfa. Spróbuj znaleźć możliwie najkrótszą odpowiedź na „dowolny” język programowania.
• Do odpowiedzi mają zastosowanie standardowe reguły z domyślnymi regułami We / Wy , więc możesz używać STDIN / STDOUT, funkcji / metody z odpowiednimi parametrami i typem zwracanych, pełnych programów. Twoja decyzja.
• Domyślne luki są zabronione.
• Jeśli to możliwe, dodaj link z testem kodu (tj. TIO ).
• Zalecane jest również dodanie wyjaśnienia do odpowiedzi.

Przypadki testowe:

Dwa powyższe przykłady oraz:

Wejście: $n=10, d=0$
Wyjście:

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

Płótno , 23 22 bajtów

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

Wypróbuj tutaj!

Wykorzystuje wejścia kierunkowe 0, 1 i 2.

Wyjaśnienie:

...‟    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 bajty

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

Wypróbuj online!

trwa [1,0,-1]do[north-west, north, north-east]

_{-1 bajt, dzięki Neilowi}

Python 2 , 66 bajtów

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

Wypróbuj online!

Używa d=-1NE, d=0N i d=1NW. Wykorzystuje dozwolone wiodące miejsca. Zasada, że dolny odcinek drogi ma separator, utrudniała wyrównanie parzystości; osiąga się to poprzez krojenie (s*n)[n:]w drugiej połowie 2nnaprzemiennie przestrzeni i charakteru drogi.

1. Python 3.5, 122 120 bajtów

Skrypt ma dwa parametry: 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)

wydajność:

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

Wyjaśnienie

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

edycja: -2 bajty dzięki Kevin Cruijssen

PowerShell , 88 82 80 74 71 bajtów

^{-8 bajtów dzięki Mazzy
-6 bajtów dzięki AdmBorkBork i Mazzy
-3 bajtów dzięki AdmBorkBork}

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

Wypróbuj online!

Używa [0,1,2] dla NW, NE, N. Używa ddwukrotnie jako indeksu listy, aby najpierw uzyskać metodę odstępów (usuwa listę z listy przy użyciu 2, która zwraca 0), a następnie znak, którego należy użyć podczas rysowania linii. Dołącza listę do ciągu spacji (który wewnętrznie ma spacje między elementami, gdy jest dołączany jako taki), który tworzy drogę. Również zamiana między otwartą linią lub kreską w oparciu o matematykę modulo.

C (gcc) , 100 90 bajtów

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

Wypróbuj online!

Dobrze napisana wersja

Węgiel drzewny , 33 29 23 bajtów

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

Wypróbuj online! Link jest do pełnej wersji kodu. Teraz, gdy wszystkie podstawowe błędy Charcoala wydają się naprawione, mogę reklamować optymalny kod. Wyjaśnienie:

↶Ｎ

Obróć kursor w kierunku przeciwnym do ruchu wskazówek zegara zgodnie z pierwszym wejściem, tak aby 1 zmienił się na północny wschód, 2 na północ i 3 na północny zachód.

Ｎη

Podaj długość drogi.

⊘⊕ηＵＥ¹¦¹

Wydrukuj połowę drogi, a następnie rozciągnij ją, dając separator drogi.

Ｆ⟦²±²⟧«Ｊι⁰η

Wydrukuj boki drogi.

@KevinCruijssen przesłał następnie trudniejszą wersję tego pytania, która została usunięta, ale użytkownicy z wystarczającą liczbą przedstawicieli mogą to zobaczyć tutaj: (Trudna) droga do kodu Trik rozciągający, którego użyłem w tej odpowiedzi, nie ma zastosowania do tego pytania, więc zamiast tego napisał następujący 47 45-bajtowy program:

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

Wypróbuj online! Link jest do pełnej wersji kodu. Wyjaśnienie:

Ｆ³«

Pętla po bokach i separator.

Ｊ×ι⊘⊕θ⁰

Przejdź na początek boku.

≔…⟦¹ ⟧⊕﹪ι²ι

Stwórz tablicę zawierającą a 1i spację, ale usuń spację ponownie, jeśli rysujemy boki zamiast separatora.

Ｆη«

Pętlę nad każdym odcinkiem drogi.

↶§κ⁰

Obróć odpowiednio kursor.

Ｆ⊖§κ¹

Pętla jest mniejsza o jeden odcinek niż długość odcinka drogi ...

§ιⅉ

... i drukuj naprzemienne elementy tablicy. Przemianę uzyskuje się poprzez cykliczne indeksowanie do tablicy za pomocą współrzędnej Y kursora.

Ｐ§ιⅉ

Wydrukuj ostatni rząd tego odcinka drogi, ale bez przesuwania kursora ...

↑

... aby kursor mógł zostać przesunięty w górę, gotowy do następnej sekcji.

↷§κ⁰

Obróć kierunek kursora z powrotem gotowy do następnej sekcji.

Kotlin , 96 92 bajtów

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

Akceptuje [0, 1, 2] zamiast [-1, 0, 1]

Działa podobnie do rozwiązań w innych językach, ale niestety Kotlin tak naprawdę nie błyszczy w tym.

val c=“\\|/“; pobiera char do wykorzystania w budowaniu dróg, wykorzystując fakt, że Kotlin traktuje struny jak tablicę znaków (tak jak powinno, patrząc na ciebie Java)

Wypróbuj online!

Kod TSQL, 171 117 bajtów

Uświadomiłem sobie, że można to napisać znacznie krócej jako kod.

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

Zapytanie TSQL, 137 bajtów

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 nie jest konieczne, jeśli baza danych jest już masterem. Niektórzy użytkownicy mają jednak inną domyślną bazę danych.

Skrypt podczas wypróbowywania jest nieco inny. Musiałem zastąpić spację ascii-32 ascii-160, spacje nie zostały pokazane.

Wypróbuj to

Dokonałem kilku poprawek i zdałem sobie sprawę, że mogę go wymienić

zamów przez 1/0

z

Zamów przez @

JavaScript (ES8),  90 87  85 bajtów

(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):''

Wypróbuj online!

JavaScript (ES6), 90 bajtów

Ten rysuje postać wyjściową znak po znaku z nieco większą ilością matematyki zamiast .padStart()metody.

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

Wypróbuj online!

Galaretka ,  31  30 bajtów

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

Dyadyczny link akceptujący długość po lewej stronie i negowany kierunek * po prawej stronie, który daje tablicę 2d znaków.
*[north-west, north, north-east]=[1, 0, -1]

Wypróbuj online! (stopka wywołuje łącze, łączy się ze znakami nowej linii i drukuje wynik)

W jaki sposób?

⁶ẋẋƤḂ};€ị“\/|”ẋ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 bajtów

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

Wypróbuj online!

Pierwsze dwie linie zaczerpnięte z @TFeld.

Python 2 , 93 bajty

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

Wypróbuj online!

J , 64 bajty

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

Wypróbuj online!

• 1 północny zachód
• 2 północy
• 3 Północny wschód

Spróbuje później zagrać w golfa

C # (Visual C # Interactive Compiler) , 129 107 103 93 bajtów

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 dla północnego wschodu, 1 dla północnego zachodu, 0 dla północy

Wypróbuj online!

Czerwony , 157 bajtów

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]]

Wypróbuj online!

• 1 północny zachód
• 2 północy
• 3 Północny wschód

Japt, 53 bajty

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

Wypróbuj online!

Swift 4.2 , 112 108 bajtów

^{-4 bajty dzięki 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] zamiast [-1,0,1].

Wypróbuj online!

Wyjaśnienie

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

Określa znak drogowy, którego należy użyć. (Założę się, że można to jakoś skrócić)

(0..<n).map{

Iteruje na całej długości ulicy.

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

Dodaje spacje przed ulicą.

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

Dodaje środkowy znak do każdej innej linii.

Mój pierwszy ☝️, cieszę się z wszelkich porad dotyczących optymalizacji. Nauczyłem się głównie z tego wątku: Wskazówki dotyczące gry w golfa w Swift .

Perl 6 , 66 bajtów

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

Wypróbuj online!

Zwraca listę linii.

Wyjaśnienie

->\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

Rubinowy , 90 bajtów

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

Wypróbuj online!

AKTUALIZACJA: Dziękuję, Kevin, za zwrócenie uwagi na to, że w moim pierwotnym zgłoszeniu brakowało spacji między krawędziami drogi a znacznikami (tj. Drogi o szerokości 3 zamiast 5 szerokości). To powiedziawszy, może być krótsza poprawka niż c+' '+...+' '+c.

Informacje kierunkowe: -1, 0, 1odwzorowuje na{ north-west, north, north-east }

Argumenty: odczytuje argumenty wiersza poleceń, takie jak 4 -1(czterorzędowa droga, nachylona w kierunku północno-zachodnim).

Dodatkowa uwaga: Zostało to przetestowane lokalnie za pomocą Ruby v2.6.1 i wygląda na to, że Try It Online używa Ruby v2.5.3. Nie mam powodu sądzić, że nie zadziała ze wszystkimi innymi wersjami Rubiego.

Java (JDK) , 116 bajtów

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

Wypróbuj online!

Staje djako jeden 0, 1lub 2.

Japt -R , 40 bajtów

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

Wypróbuj online!

Wyjaśnienie:

Æ=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 bajty

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

Uruchom i debuguj

Dane wejściowe to dwie liczby całkowite oddzielone spacją.
Pierwszy to d. -1 określa północno-wschodni. 0 dla północy. 1 dla północnego zachodu. Drugi parametr to n. Te dwie wartości zostaną domyślnie przeanalizowane z danych wejściowych i umieszczone na stosie wejściowym z nna górze. Dodatkowo dbędą dostępne z xrejestru stax, ponieważ jest to pierwsza wartość domyślnie przeanalizowana.

Na przykład wpisz „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

Uruchom ten

perl -M5.010 -Mfeature = podpisy, 97 bajtów

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