Усі кредити Аднану за те, що він вирішив цю проблему.

Моє останнє завдання, перш ніж я перейду на перерву .

Завдання

Враховуючи додатне ціле число n, якщо nце непарно, повторіть /це багато разів; якщо nце навіть, повторіть \це багато разів.

(Якщо серйозно, тестові корпуси були б набагато чіткішими, ніж цей опис, тому просто подивіться на тестові шафи.)

Технічні характеристики

• Будь-який розумний формат введення / виводу.
• Застосовуються стандартні лазівки .

Тестові шафи

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

Javascript, 22 байти

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

Визначає анонімну функцію.

Якщо тільки *повторювані рядки в Javascript. зітхає

Пітон, 20 байт

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

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

DÈ„/\sè×

-2 байти завдяки Leaky Nun

-1 байт завдяки Еміньї

Спробуйте в Інтернеті! в 05AB1E
або в 2-х придатних для використання

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.

Математика, 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 $_ }
/
\\
///
\\\\
/////
\\\\\\
///////
\\\\\\\\
/////////
\\\\\\\\\\

Математика, 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

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

Діалог APL , 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?"\\":"/"));}
здається, довші.

Невикористаний і тестовий код:

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

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також повинен бути повністю визначений, оскільки він з'являється після .... Таким чином дратує мало можливостей зберегти символи :(

Завдяки bouncyball за те, що гольф відіграє байт.

T-SQL 50 байт

Звичайно, STDINтут немає , тож давайте припустимо тверду кодування INTзмінної на кшталт цієї: DECLARE @ INTтоді рішення:

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

Піп , 8 байт

"\/"@aXa

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

Це запитання представляє цікаве порівняння між Піпом, Пітом та Джеллі , два останніх набрали 5 байт. Усі три мови мають неявний вихід, з однорядними операторами для модульної індексації та повторення рядків, і немає необхідності уникати зворотних косих рядків у рядках. Однак є дві ключові відмінності:

1. За певних обставин Pyth і Jelly потрібен лише один роздільник для визначення рядка;
2. У Pyth і Jelly є такий синтаксис, що вхід не потребує явного представлення в коді (хоча з зовсім інших причин, як мені пояснив Малтісен ).

Жодна з цих особливостей, ймовірно, не з’явиться в Pip ¹ (мені не подобається естетика незбалансованих роздільників, і без точкового синтаксису або неявних операндів здається, що вони були б занадто чужими моєму аналізатору вираження інфікування), але я ' я гаразд, граючи третю скрипку. Незважаючи на те, що "читабельність" є надзвичайно відносною при гольфі, я заперечую, що ці три додаткові байти значно спрощують програму "Піп" з першого погляду - і в моїй книзі це вартий компроміс.

_{¹ Хоча в 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 вдосконаленому за те, що далі я відповів гольфу.

Програма тестування без вогків

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.