Входные данные:

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

Выход:

Дорога размером , которая будет в северо-западном направлении, если ; направление на север, если ; или северо-восточное направление, если d = 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=1для NW. Использует преимущество ведущих пробелов. Правило, согласно которому нижний участок дороги имеет разделитель, усложняет задачу определения четности; это достигается тем, что нарезка (s*n)[n:]занимает вторую половину 2nчередования между пробелом и символом дороги.

1. Python 3.5, 122 120 байт

Скрипт принимает два параметра: n, 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 байта

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

Попробуйте онлайн! Ссылка на подробную версию кода. Теперь, когда все базовые ошибки в Charcoal кажутся исправленными, я могу объявить оптимальный код. Объяснение:

↶Ｎ

Поверните направление курсора против часовой стрелки в соответствии с первым вводом, чтобы 1 стало северо-восточным, 2 северным и 3 северо-западным.

Ｎη

Введите длину дороги.

⊘⊕ηＵＥ¹¦¹

Напечатайте половину длины дороги, а затем растяните ее, отделяя дорогу.

Ｆ⟦²±²⟧«Ｊι⁰η

Распечатайте стороны дороги.

@KevinCruijssen впоследствии представил более сложную версию этого вопроса, которая с тех пор была удалена, но пользователи с достаточным количеством повторений могут увидеть ее здесь: (Трудный) путь к коду. Метод растяжения, который я использовал в этом ответе, не применим к этому вопросу, поэтому вместо этого я написал следующую 47 45-байтовую программу:

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

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

Ｆ³«

Петля по бокам и разделитель.

Ｊ×ι⊘⊕θ⁰

Перейти к началу стороны.

≔…⟦¹ ⟧⊕﹪ι²ι

Создайте массив, содержащий 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]

Он работает аналогично решениям на других языках, но, к сожалению, Kotlin в этом не очень хорош.

val c=“\\|/“; извлекает символ для использования в дорожном строительстве, используя тот факт, что Kotlin рассматривает строки как массив символов (как и положено при просмотре 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

ИСПОЛЬЗОВАТЬ master не обязательно, если ваша база данных уже 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Ṛ

Диадическая ссылка, принимающая длину слева и отрицательное направление * справа, что дает двумерный массив символов.
*[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 #) , 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

Попробуйте онлайн!

Swift 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:" ")"

Добавляет средний знак к каждой второй строке.

Мой самый первый I'm, я рад любым советам по оптимизации. Учился в основном из этой темы: Советы для игры в гольф в Swift .

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

Stax , 23 байта

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

Запустите и отладьте его

Ввод - это два целых числа, разделенных пробелом.
Первый есть d. -1 указывает на северо-восток. 0 на север. 1 для северо-запада. Второй параметр есть n. Эти два значения будут неявно проанализированы из ввода и помещены в стек ввода nсверху. Дополнительно dбудет доступно из регистра stax, 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 -Mfeature = подписи, 97 байт

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