Wszystkie podziękowania dla Adnana za wymyślenie tego wyzwania.

Moje ostatnie wyzwanie, zanim pójdę na przerwę .

Zadanie

Biorąc pod uwagę dodatnią liczbę całkowitą n, jeśli njest nieparzysta, powtórz /to wiele razy; jeśli njest parzysty, powtórz \to wiele razy.

(Poważnie, przypadki testowe byłyby o wiele jaśniejsze niż ten opis, więc spójrz tylko na przypadki testowe.)

Okular

• Dowolny rozsądny format wejścia / wyjścia.
• Obowiązują standardowe luki .

Przypadki testowe

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

JavaScript, 22 bajty

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

Definiuje anonimową funkcję.

Jeśli tylko *powtarzane ciągi w JavaScript. wzdycha

Python, 20 bajtów

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

05AB1E / 2sable , 15 11 9 8 bajtów

DÈ„/\sè×

-2 bajty dzięki Leaky Nun

-1 bajt dzięki Emignie

Wypróbuj online! w 05AB1E
lub w 2sable

Perl, 20 bajtów

Obejmuje +1 dla -p

Uruchom z wejściem na STDIN:

squigly.pl <<< 6

squigly.pl

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

Retina , 21 lat

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

Wypróbuj online (dodano pierwszą linię, aby umożliwić uruchomienie wielu przypadków testowych).

C #, 42 bajty

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

Wybiera poprawny znak, a następnie tworzy nowy ciąg znaków składający się z tego znaku powtarzanego nrazy.

PHP, 38 bajtów

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

(wariant 38 bajtów)

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

(wariant 38 bajtów)

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

(wariant 40 bajtów)

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

C, 40 bajtów

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

Wypróbuj na Ideone

Galaretka , 5 bajtów

ị⁾/\x

Wypróbuj online! lub Zweryfikuj wszystkie przypadki testowe.

ị⁾/\x

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

J, 10 bajtów

#'\/'{~2|]

Jest to czasownik składający się z sześciu pociągów, składający się z:

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

To jest haczyk pomiędzy #i ('\/' {~ 2 | ]); hak (f g) yrozszerza się do y f (g y), więc to rozwija się do y # (... y), co dla pojedynczych znaków daje listę yznaków.

Druga część to 5-pociąg składający się z:

'\/' {~ 2 | ]

To ocenia na dwa widelce:

'\/' {~ (2 | ])

Wewnętrzny widelec 2 | ]ma moduł drugi. Zewnętrzny widelec jest zatem:

'\/' {~ mod2

Który pobiera ( {~) indeks mod2 ( mod2) z ciągu /.

Następnie za pomocą haka z góry:

y # (apt char)

Daje to, co chcemy i gotowe.

Haskell, 25 bajtów

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

-1 bajt dzięki Damienowi z cycle.

Mathematica, 34 32 28 bajtów

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

Funkcja anonimowa. Bierze liczbę całkowitą jako dane wejściowe i zwraca listę znaków jako dane wyjściowe.

PowerShell, 30 27 bajtów

Aktualizacja:

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

Przejście na param, dzięki timmyd .

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

lub nieco bardziej czytelny

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

Test:

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

Mathematica, 29 bajtów

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

Okrutnie wykorzystuje fakt, że [[1]]zwraca pierwszy argument funkcji, podczas gdy [[0]]zwraca samą funkcję (head), zastosowaną do dziwnie poprawnej funkcji o nazwie, dla "\\"której jest „oceniany” "/".

Rubin, 15 bajtów

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

Zobacz na eval.in: https://eval.in/632030

Fouriera, 27 bajtów

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

Wypróbuj online!

Brachylog , 15 bajtów

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

Wypróbuj online!

Wyjaśnienie

: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 bajtów

ri_"\/"=*

Wypróbuj online!

Wyjaśnienie

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.

> <> (Ryba), 30 bajtów

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

Pierwszy raz używam tego języka, ale myślę, że przynajmniej zaoszczędziłem trochę miejsca, warunkowo używając / jako części danych wyjściowych lub lustra do przekierowania przepływu. Prawdopodobnie wciąż okropnie nieefektywna, ale wydaje mi się, że można by to przynajmniej trochę zmniejszyć.

Dane wejściowe to stos początkowy, dane wyjściowe to stdout

Wypróbuj online!

Dyalog APL , 11 bajtów

Wymaga ⎕IO←0ustawienia domyślnego w wielu systemach.

⊢⍴'\/'⊃⍨2|⊢

⊢ argument

⍴ przekształca (powtarza)

'\/'⊃⍨ ciąg „/” wybrany przez

2|⊢ pozostała część podziału, gdy argument jest podzielony na dwa

Wypróbuj APL online!

Java 7, 68 65 bajtów

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

3 bajty zapisane dzięki @ user902383 i @SeanBean .

Podobnie jak w przypadku tej odpowiedzi , najkrótszy kod-golf wydaje się zapętlać i drukować. Zarówno rekurencyjne, jak i
void c(int i){System.out.print(new String(new char[i]).replace("\0",i%2<1?"\\":"/"));}
wydaje się być dłuższe.

Kod niepoznany i testowy:

Wypróbuj tutaj.

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

Wydajność:

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

R, 47 46 bajtów

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

W R musisz uciec przed ukośnikiem. argument seprównież musi zostać w pełni sprecyzowany, ponieważ jest późniejszy .... Zatem irytująco mało okazji do zapisywania znaków :(

Dzięki bouncyball za grę w golfa w bajt.

T-SQL 50 bajtów

Oczywiście, że nie STDINtutaj, więc załóżmy taką zakodowaną INTzmienną jak ta: DECLARE @ INTwtedy rozwiązaniem jest:

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

Pip , 8 bajtów

"\/"@aXa

Bezpośredni. Używa indeksowania modułowego, aby wybrać powtarzanie znaku i łańcucha, aby je pomnożyć. Wypróbuj online!

To pytanie przedstawia interesujące porównanie między Pip, Pyth i Jelly , przy czym dwa ostatnie mają po 5 bajtów. Wszystkie trzy języki mają dorozumiane dane wyjściowe, z operatorami jednokolumnowymi do indeksowania modułowego i powtarzania ciągów, i nie wymagają ucieczki odwrotnych ukośników w ciągach. Istnieją jednak dwie kluczowe różnice:

1. W pewnych okolicznościach Pyth i Jelly potrzebują tylko jednego separatora, aby zdefiniować ciąg;
2. Pyth i Jelly mają taką składnię, że dane wejściowe nie muszą być jawnie reprezentowane w kodzie (choć z bardzo różnych powodów, jak wyjaśnił mi Maltysen ).

Żadna z tych funkcji prawdopodobnie nie pojawi się w Pip ¹ (nie podoba mi się estetyka niezrównoważonych separatorów, a bezcelowa składnia lub ukryte argumenty wydają się być zbyt obce mojemu parserowi wyrażeń infiksowych), ale „ w porządku z graniem na trzecim skrzypcach. Chociaż „czytelność” jest niezwykle względna podczas gry w golfa, twierdzę, że te trzy dodatkowe bajty sprawiają, że program Pip jest znacznie łatwiejszy do zrozumienia na pierwszy rzut oka - i w mojej książce jest to opłacalny kompromis.

_{¹ Chociaż ciągi 'jednoznakowe w Pip używają pojedynczego separatora, zainspirowanego przez CJam i cytowanie w Lisp.}

Pyth , 5 bajtów

*@"\/

Zestaw testowy.

Indeksowanie modułowe w ciągu, \/a następnie powtórzenie.

Perl 6 , 16 bajtów

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

Stosowanie:

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

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

Julia, 20 bajtów

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

SpecBAS - 28 bajtów

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

ODDzwraca 1, jeśli liczba jest nieparzysta, a następnie używa tego jako indeksu do wydrukowania poprawnego znaku n razy. Muszę dodać 1, ponieważ ciągi SpecBAS zaczynają się od znaku 1.

Java 8, 56 bajtów

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

Chciałbym podziękować @Kevin Cruijssen w zaawansowanym trybie za dalszą grę w golfa.

Program testów bez golfa

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

Właściwie 10 bajtów

Sugestie dotyczące gry w golfa mile widziane. Wypróbuj online!

;'\'/2(%I*

Jak to działa

       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.