Все благодарности Аднану за то, что он решил эту задачу.

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

задача

Если задано положительное целое число n, если nоно нечетное, повторите /это много раз; если nдаже, повторите \это много раз.

(Серьезно, тестовые примеры будут намного понятнее, чем это описание, так что просто посмотрите на тестовые случаи.)

Спекуляции

• Любой разумный формат ввода / вывода.
• Применяются стандартные лазейки .

Testcases

n output
1 /
2 \\
3 ///
4 \\\\
5 /////
6 \\\\\\

Javascript, 22 байта

n=>"\\/"[n%2].repeat(n)

Определяет анонимную функцию.

Если бы только *повторяющиеся строки в Javascript. вздохи

Python, 20 байт

lambda n:'\/'[n%2]*n

05AB1E / 2sable , 15 11 9 8 байт

DÈ„/\sè×

-2 байта благодаря Leaky Nun

-1 байт благодаря Emigna

Попробуйте онлайн! в 05AB1E
или в 2sable

Perl, 20 байт

Включает +1 для -p

Запустить с вводом на STDIN:

squigly.pl <<< 6

squigly.pl

#!/usr/bin/perl -p
$_=$_%2x$_;y;01;\\/

Сетчатка , 21

.+
$*/
T`/`\\`^(..)+$

Попробуйте онлайн (добавлена ​​первая строка, позволяющая запускать несколько тестовых случаев).

C #, 42 байта

string f(int n)=>new string("\\/"[n%2],n);

Выбирает правильный символ, затем создает новую строку, состоящую из повторений этого символа n.

PHP, 38 байт

for(;$i++<$a=$argv[1];)echo'\/'[$a%2];

(вариант 38 байт)

while($i++<$a=$argv[1])echo'\/'[$a%2];

(вариант 38 байт)

<?=str_pad('',$a=$argv[1],'\/'[$a%2]);

(вариант 40 байт)

<?=str_repeat('\/'[($a=$argv[1])%2],$a);

C, 40 байтов

i;f(n){for(i=n;i--;)putchar(n%2?47:92);}

Попробуйте это на Ideone

Желе , 5 байт

ị⁾/\x

Попробуйте онлайн! или Проверьте все тестовые случаи.

ị⁾/\x

ị⁾/\    modular-indexing into the string "/\"
    x   repeat

J, 10 байт

#'\/'{~2|]

Это шестиступенчатый глагол, состоящий из:

# ('\/' {~ 2 | ])

Это крюк между #и ('\/' {~ 2 | ]); ловушка (f g) yрасширяется до y f (g y), поэтому расширяется до y # (... y), что для одиночных символов дает список yсимволов.

Вторая часть представляет собой 5-состав, состоящий из:

'\/' {~ 2 | ]

Это оценивает две вилки:

'\/' {~ (2 | ])

Внутренняя вилка 2 | ], является модулем два. Внешняя вилка, следовательно, это:

'\/' {~ mod2

Который берет ( {~) индекс mod2 ( mod2) из строки /.

Затем с помощью крючка сверху:

y # (apt char)

Это дает то, что мы хотим, и мы сделали.

Haskell, 25 байт

f n=cycle"\\/"!!n<$[1..n]

-1 байт благодаря Дэмиену с cycle.

Mathematica, 34 32 28 байт

If[OddQ@#,"/","\\"]~Table~#&

Анонимная функция. Принимает целое число в качестве входных данных и возвращает список символов в качестве выходных данных.

Powershell, 30 27 байтов

Обновить:

param($n)('\','/')[$n%2]*$n

Переключение на param, благодаря Тиммиду .

"$("\/"[$args[0]%2])"*$args[0]

или чуть более читабельный

("\","/")[$args[0]%2]*$args[0]

Тест:

> 1..10 | % { ./run.ps1 $_ }
/
\\
///
\\\\
/////
\\\\\\
///////
\\\\\\\\
/////////
\\\\\\\\\\

Mathematica, 29 байт

"\\"["/"][[#~Mod~2]]~Table~#&

Жестоко использует тот факт, что [[1]]возвращает первый аргумент функции, в то время как [[0]]возвращает саму функцию (голову), примененную к странно допустимой функции с именем, по "\\"которой "выполняется оценка" "/".

Рубин, 15 байт

->n{'\/'[n%2]*n}

Смотрите это на eval.in: https://eval.in/632030

Фурье, 27 байт

92~SI~N%2{1}{47~S}N(Sai^~i)

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

Брахилог , 15 байт

:2%:"\/"rm:?jbw

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

объяснение

:2%                Input mod 2…
   :"\/"rm         …is the index of the element in string "\/",…
          :?j      …element that we juxtapose Input times to itself…
             bw    …and print to STDOUT after removing one slash/backslash

CJam , 9 байт

ri_"\/"=*

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

объяснение

ri     e# Read input and convert to integer N.
_      e# Duplicate N.
"\/"=  e# Use N as cyclic index into "\/", giving '\ for even and '/ for odd inputs.
*      e# Repeat N times.

> <> (Рыба), 30 байт

:2%?'/'o1-:?!;30.
30.  >'\'50p

В первый раз, используя этот язык, но я думаю, что я по крайней мере сэкономил немного места, условно используя / как часть вывода или зеркало для перенаправления потока. Вероятно, все еще ужасно неэффективный, хотя, я чувствую, что это могло бы быть сокращено немного больше по крайней мере.

Вход - это начальный стек, выход - stdout

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

Дьялог АПЛ , 11 байт

Требуется ⎕IO←0по умолчанию во многих системах.

⊢⍴'\/'⊃⍨2|⊢

⊢ Аргумент

⍴ изменяет (повторяет)

'\/'⊃⍨ строка "/" выбрана

2|⊢ остаток от деления, когда аргумент делится на два

Попробуй APL онлайн!

Java 7, 68 65 байт

void c(int i){for(int x=0;x++<i;)System.out.print(i%2<1?92:'/');}

3 байта сохранены благодаря @ user902383 и @SeanBean .

Как и в случае с этим ответом , кажется, что самый короткий код-гольф зацикливается и печатается. Оба рекурсивны и
void c(int i){System.out.print(new String(new char[i]).replace("\0",i%2<1?"\\":"/"));}
кажутся длиннее.

Ungolfed & тестовый код:

Попробуй это здесь.

class M{
  static void c(int i){
    for(int x = 0; x++ < i;){
      System.out.print(i % 2 < 1
                        ? 92
                        : '/');
    }
  }

  public static void main(String[] a){
    for(int i = 0; i < 10; i++){
      c(i);
      System.out.println();
    }
  }
}

Выход:

/
\\
///
\\\\
/////
\\\\\\
///////
\\\\\\\\
/////////

R, 47 46 байт

n=scan();cat(rep(c("\\","/")[n%%2+1],n),sep="")

В R вы должны избежать обратной косой черты. аргумент sepтакже должен быть полностью указан, так как он идет после... . Таким образом досадно мало возможностей для сохранения символов :(

Благодаря баунсиболу для игры в гольф байт.

T-SQL 50 байтов

Конечно, нет STDINздесь, поэтому давайте предположим, что жестко закодированная INTпеременная DECLARE @ INTвыглядит так: тогда решение:

PRINT IIF(@%2=0,REPLICATE('\',@),REPLICATE('/',@))

Пип , 8 байт

"\/"@aXa

Непосредственная. Использует модульное индексирование, чтобы выбрать символ и повторение строки, чтобы умножить его. Попробуйте онлайн!

Этот вопрос представляет интересное сравнение между Пипом, Питом и Желе , последние два из которых набрали по 5 байт. Все три языка имеют неявный вывод, с одно-символьными операторами для модульной индексации и повторения строк, и нет необходимости избегать обратной косой черты в строках. Однако есть два ключевых различия:

1. При определенных обстоятельствах Питу и Желе нужен только один разделитель для определения строки;
2. У Pyth и Jelly синтаксис такой, что входные данные не нужно явно представлять в коде (хотя по совсем другим причинам, как объяснил мне Малтисен ).

Ни одна из этих функций, скорее всего, не появится в Пипе ¹ (мне не нравится эстетика несбалансированных разделителей, а бессмысленный синтаксис или неявные операнды кажутся слишком чуждыми моему анализатору выражений инфиксных выражений), но я ' Я в порядке, играя в третью скрипку. Несмотря на то, что «удобочитаемость» чрезвычайно относительна при игре в гольф, я бы сказал, что эти три дополнительных байта делают программу Пипа намного проще для понимания с первого взгляда - и в моей книге это достойный компромисс.

_{¹ Несмотря на то, что односимвольные строки в Pip используют один 'разделитель, вдохновленный CJam и цитированием в Lisp.}

Pyth , 5 байт

*@"\/

Тестирование.

Модульная индексация в строку \/и затем повторение.

Perl 6 , 16 байт

{<\ />[$_%2]x$_}

Использование:

for 1..6 {
  say $_, {<\ />[$_%2]x$_}( $_ )
}

1/
2\\
3///
4\\\\
5/////
6\\\\\\

Юлия, 20 байт

!x="$("/\\"[x%2])"^x

SpecBAS - 28 байт

1 INPUT n: ?"\/"(ODD(n)+1)*n

ODDвозвращает 1, если число нечетное, а затем использует его в качестве индекса для печати правильного символа n раз. Необходимо добавить 1, так как строки SpecBAS начинаются с символа 1.

Java 8, 56 байт

(i,j)->{for(j=i;j-->0;)System.out.print(i%2<1?92:'/');};

Я хотел бы поблагодарить @Kevin Cruijssen за продвижение моего ответа в дальнейшем.

Тестовая программа Ungolfed

public static void main(String[] args) {
    BiConsumer<Integer, Integer> consumer = (i, j) -> {
        for (j = i; j-- > 0;) {
            System.out.print(i % 2 < 1 ? 92 : '/');
        }
    };

    consumer.accept(5, 0);
    consumer.accept(1, 0);
    consumer.accept(8, 0);
}

На самом деле, 10 байт

Предложения по игре в гольф приветствуются. Попробуйте онлайн!

;'\'/2(%I*

Как это работает

       Implicit input of n
;      Duplicate n
'\'/   The strings "/" and "\"
2(%    n mod 2
I      If n mod 2, then "/", else "\"
*      Multiply by n. Implicit print at the end.