Вхід:

• Ціле $n$ , яке гарантовано буде $\ge3$ .
• Ціле число , яке є одним із .$d$$[-1,0,1]$

Вихід:

Дорога розміром , яка буде в північно-західному напрямку, якщо ; північний напрямок, якщо ; або північно-східний напрямок, якщо . Дорога завжди буде мати три простори (або загалом п'ять, якщо ми включимо зовнішні межі). Крім того, на нижній ділянці буде розташована лінія розділення доріг, а після цього чергування під час руху вгору.$n$$d=-1$$d=0$$d=1$

Деякі приклади:

Вхід: Вихід:$n=7, d=1$

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

Вхід: Вихід:$n=4, d=-1$

\   \
 \ \ \
  \   \
   \ \ \

Правила виклику:

• Будь-яка кількість провідних / кінцевих пробілів та / або нових рядків є прийнятною, якщо вона друкує необхідну дорогу десь на екрані.
• Замість варіантів ви також можете використовувати варіанти або . Крім того, ви можете вибрати, який із трьох варіантів відображати, який із трьох напрямків. (Переконайтеся , кажучи , які опції ви використовували , якщо він відрізняється від для відповідно, використовувані в даному описі виклику!)$[-1,0,1]$$[0,1,2]$$[1,2,3]$$[-1,0,1]$[north-west, north, north-east]
• Будь-який розумний вихідний формат є прийнятним. Найпоширенішим є звичайно роздрукувати його в STDOUT, але повернення його як рядкового або двовимірного списку символів також добре.

Загальні правила:

• Це код-гольф , тому найкоротша відповідь у байтах виграє.
  Не дозволяйте мовам коду-гольфу відштовхувати вас від публікації відповідей з мов, що не кодують гольф. Спробуйте придумати якомога коротшу відповідь на "будь-яку" мову програмування.
• Для вашої відповіді застосовуються стандартні правила з правилами вводу / виводу за замовчуванням , тому вам дозволяється використовувати STDIN / STDOUT, функції / метод із відповідними параметрами та повним програмами типу повернення. Твій дзвінок.
• Лазівки за замовчуванням заборонені.
• Якщо можливо, додайте посилання з тестом для вашого коду (тобто TIO ).
• Також настійно рекомендується додавати пояснення до своєї відповіді.

Тестові приклади:

Два вищевказані приклади:

Вхід: Вихід:$n=10, d=0$

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

Полотно , 23 22 байти

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

Спробуйте тут!

Використовує напрями входів 0, 1 і 2.

Пояснення:

...‟    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 байт

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

Спробуйте в Інтернеті!

Приймає [1,0,-1]за[north-west, north, north-east]

_{-1 байт, завдяки Нілу}

Python 2 , 66 байт

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

Спробуйте в Інтернеті!

Використовує d=-1для NE, d=0для N та d=1NW. Скористайтеся дозволеними провідними пробілами. Правило, згідно з яким на нижньому відрізку дороги є роздільник, було складно отримати правильність паритету; це досягається за допомогою нарізки, що (s*n)[n:]займає другу половину 2nчергувань між простором і дорожнім характером.

1. Python 3,5, 122 120 байт

Сценарій приймає два парами: 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)

вихід:

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

Пояснення

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

редагувати: -2 байти завдяки Кевіну Крейсейну

PowerShell , 88 82 80 74 71 байт

^{-8 байт завдяки Mazzy
-6 байт завдяки AdmBorkBork та Mazzy
-3 байти завдяки AdmBorkBork}

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

Спробуйте в Інтернеті!

Використовує [0,1,2] для NW, NE, N. Використовує dяк індекс списку двічі, щоб спочатку отримати метод інтервалу (Випадає зі списку при використанні 2, який повертає 0), а потім який символ використовувати для малювання ліній. Додає список до рядка пробілів (у яких внутрішньо є пробіли між членами, коли вони додаються як такі), що будує дорогу. Також міняється місцями між відкритою смугою або тире на основі модульної математики.

C (gcc) , 100 90 байт

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

Спробуйте в Інтернеті!

Добре написана версія

Вугілля , 33 29 23 байт

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

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Тепер, коли всі основні помилки деревного вугілля, здається, виправлені, я можу оголосити оптимальний код. Пояснення:

↶Ｎ

Поверніть напрямок курсору проти годинникової стрілки згідно першого вводу, щоб 1 став північним сходом, 2 північним і 3 північним заходом.

Ｎη

Введіть довжину дороги.

⊘⊕ηＵＥ¹¦¹

Надрукуйте половину довжини дороги, а потім розтягніть її, даючи роздільник дороги.

Ｆ⟦²±²⟧«Ｊι⁰η

Роздрукуйте сторони дороги.

@KevinCruijssen згодом подав більш складну версію цього питання, яке було видалено, але користувачі, які мають достатньо репліку, можуть бачити його тут: (Важка дорога до коду ) Напруга, який я використовував у цій відповіді, не застосовується до цього питання, тому замість цього я написав наступну 47 -байтну програму:

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

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Пояснення:

Ｆ³«

Петлю за боки і роздільник.

Ｊ×ι⊘⊕θ⁰

Перейти до початку сторони.

≔…⟦¹ ⟧⊕﹪ι²ι

Створіть масив, що містить a 1і пробіл, але знову видаліть пробіл, якщо ми малюємо сторони, а не роздільник.

Ｆη«

Петля на кожній ділянці дороги.

↶§κ⁰

Відповідно оберніть напрямок курсору.

Ｆ⊖§κ¹

Петля на одну менше довжини ділянки дороги ...

§ιⅉ

... та друкувати чергуючі елементи масиву. Чергування досягається циклічним індексуванням масиву з Y-координатою курсору.

Ｐ§ιⅉ

Роздрукуйте останній рядок цієї ділянки дороги, але не рухаючи курсор ...

↑

... так що курсор можна перемістити вгору готовим до наступного розділу.

↷§κ⁰

Поверніть напрямок курсору назад, готовий до наступного розділу.

Котлін , 96 92 байт

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

Приймає [0, 1, 2] замість [-1, 0, 1]

Це працює аналогічно рішенням інших мов, але, на жаль, Котлін насправді не світить у цій.

val c=“\\|/“; отримує знаки для використання в будівництві доріг, скориставшись тим, що Котлін трактує струни як масив символів (як слід, дивлячись на вас Java)

Спробуйте в Інтернеті!

TSQL-код, 171 117 байт

Я зрозумів, що це може бути написано набагато коротше як код.

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

Запит TSQL, 137 байт

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. Однак деякі користувачі мають іншу базу даних за замовчуванням.

Сценарій при спробі його дещо відрізняється. Мені довелося замінити простір ascii-32 на ascii-160, пробіли не показувалися.

Спробуй

Зробив декілька перетворень і зрозумів, що можу замінити

замовлення до 1/0

з

Сортувати по @

JavaScript (ES8),  90 87  85 байт

Вводиться як " (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):''

Спробуйте в Інтернеті!

JavaScript (ES6), 90 байт

Цей малює символу виводу за символом трохи більше математики замість .padStart()методу.

Вводиться як " (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)

Спробуйте в Інтернеті!

Желе ,  31  30 байт

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

Діадичне посилання, що приймає довжину зліва та напрямок із запереченням * праворуч, що дає 2d масив символів.
*[north-west, north, north-east]=[1, 0, -1]

Спробуйте в Інтернеті! (нижній колонтитул викликає Посилання, з'єднується з символами нового рядка та друкує результат)

Як?

⁶ẋẋƤḂ};€ị“\/|”ẋ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 байт

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

Спробуйте в Інтернеті!

Перші два рядки, взяті з @TFeld.

Python 2 , 93 байт

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

Спробуйте в Інтернеті!

J , 64 байти

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

Спробуйте в Інтернеті!

• 1 Північний Захід
• 2 Північ
• 3 Північний Схід

Спробуємо гольфу пізніше

C # (Visual C # Interactive Compiler) , 129 107 103 93 байт

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 для північного сходу, 1 для північного заходу, 0 для півночі

Спробуйте в Інтернеті!

Червоний , 157 байт

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

Спробуйте в Інтернеті!

• 1 Північний Захід
• 2 Північ
• 3 Північний Схід

Japt, 53 байти

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

Спробуйте в Інтернеті!

Швидкий 4.2 , 112 108 байт

^{-4 байти завдяки сріотчілізму О'Заїку}

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

[0,1,2] замість [-1,0,1].

Спробуйте в Інтернеті!

Пояснення

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

Визначає дорожній знак для використання. (Б'юсь об заклад, це можна якось скоротити)

(0..<n).map{

Ітератує по довжині вулиці.

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

Додає пробіли навпроти вулиці.

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

Додає середній знак до кожного іншого рядка.

Перший мій ☝️, я радий будь-яким порадам щодо оптимізації. В основному з цієї теми: Навчання для гольфу в Свіфті .

Perl 6 , 66 байт

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

Рубін , 90 байт

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

Спробуйте в Інтернеті!

ОНОВЛЕННЯ: Дякую, Кевін, за те, що я вказав, що в моєму первісному документі відсутні місця між краями дороги та маркерами (тобто дороги шириною 3 ширини замість 5 ширини.) c+' '+...+' '+c .

Інформація про напрямок: -1, 0, 1карти до{ north-west, north, north-east }

Аргументи: це читає такі аргументи командного рядка, як 4 -1(чотирирядна дорога, нахилена на північний захід).

Додаткова примітка. Це було протестовано локально за допомогою Ruby v2.6.1, і, схоже, Try it Online використовує Ruby v2.5.3. У мене немає підстав вважати, що це не буде працювати з усіма іншими версіями Ruby.

Java (JDK) , 116 байт

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

Спробуйте в Інтернеті!

Приймається dяк один із 0, 1або 2.

Japt -R , 40 байт

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

Спробуйте в Інтернеті!

Пояснення:

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

Стакс , 23 байти

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

Запустіть і налагоджуйте його

Вхід - це два цілі числа, розділені пробілом.
Перший є d. -1 вказує на північний схід. 0 для півночі. 1 на північний захід. Другий параметр - n. Ці два значення будуть неявно проаналізовані від введення та розміщені у вхідному стеку з nзверху. Додатковоd будуть доступні зі стаксx реєстру оскільки це перше імпліцитно проаналізоване значення.

Наприклад, введення "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

Виконати цей

perl -M5.010 -Matature = підписи, 97 байт

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