Semua kredit untuk Adnan untuk datang dengan tantangan ini.

Tantangan terakhir saya, sebelum saya istirahat .

Tugas

Diberikan bilangan bulat positif n, jika nganjil, ulangi /berkali-kali; jika nada, ulangi \berkali-kali.

(Serius, testcases akan jauh lebih jelas daripada deskripsi ini, jadi lihat saja testcases.)

Spesifikasi

• Format input / output yang masuk akal.
• Celah standar berlaku.

Testcases

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

Javascript, 22 byte

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

Menentukan fungsi anonim.

Jika hanya *mengulang string di Javascript. mendesah

Python, 20 byte

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

05AB1E / 2sable , 15 11 9 8 byte

DÈ„/\sè×

-2 byte terima kasih untuk Leaky Nun

-1 byte terima kasih kepada Emigna

Cobalah online! dalam 05AB1E
atau dalam 2sable

Perl, 20 byte

Termasuk +1 untuk -p

Jalankan dengan input pada STDIN:

squigly.pl <<< 6

squigly.pl

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

Retina , 21

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

Cobalah online (Baris pertama ditambahkan untuk memungkinkan beberapa testcase dijalankan).

C #, 42 byte

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

Pilih karakter yang benar, kemudian buat string baru yang terdiri dari karakter yang diulang nkali.

PHP, 38 byte

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

(varian 38 byte)

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

(varian 38 byte)

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

(varian 40 byte)

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

C, 40 byte

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

Cobalah di Ideone

Jelly , 5 byte

ị⁾/\x

Cobalah online! atau Verifikasi semua testcases.

ị⁾/\x

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

J, 10 byte

#'\/'{~2|]

Ini adalah kata kerja enam-kereta, yang terdiri dari:

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

Ini adalah pengait antara #dan ('\/' {~ 2 | ]); sebuah kait (f g) ymengembang ke y f (g y), jadi ini mengembang ke y # (... y), yang, untuk karakter tunggal, menghasilkan daftar ykarakter.

Bagian kedua adalah kereta 5, yang terdiri dari:

'\/' {~ 2 | ]

Ini mengevaluasi ke dua garpu:

'\/' {~ (2 | ])

Garpu bagian dalam 2 | ],, adalah modulus dua. Garpu luar, oleh karena itu, adalah:

'\/' {~ mod2

Yang mengambil ( {~) indeks mod2 ( mod2) dari string /.

Kemudian, gunakan kait dari atas:

y # (apt char)

Ini menghasilkan apa yang kita inginkan, dan kita selesai.

Haskell, 25 byte

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

-1 byte terima kasih kepada Damien dengan cycle.

Mathematica, 34 32 28 byte

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

Fungsi anonim. Mengambil integer sebagai input dan mengembalikan daftar karakter sebagai output.

Powershell, 30 27 byte

Memperbarui:

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

Beralih ke param, terima kasih timmyd .

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

atau sedikit lebih mudah dibaca

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

Uji:

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

Mathematica, 29 byte

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

Cruelly mengeksploitasi fakta yang [[1]]mengembalikan argumen pertama dari suatu fungsi sementara [[0]]mengembalikan fungsi (kepala) itu sendiri, diterapkan pada fungsi aneh "\\"yang dinamai yang sedang "dievaluasi" di "/".

Ruby, 15 byte

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

Lihat di eval.in: https://eval.in/632030

Fourier, 27 byte

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

Cobalah online!

Brachylog , 15 byte

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

Cobalah online!

Penjelasan

: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 byte

ri_"\/"=*

Cobalah online!

Penjelasan

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.

> <> (Ikan), 30 Bytes

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

Pertama kali menggunakan bahasa ini, tapi saya pikir saya setidaknya menyelamatkan sedikit ruang dengan menggunakan / sebagai bagian dari output atau mirror untuk mengarahkan aliran. Mungkin masih sangat tidak efisien, saya merasa mungkin bisa mengurangi sedikit lebih sedikit.

Input adalah tumpukan awal, output stdout

Cobalah online!

Dyalog APL , 11 byte

Membutuhkan ⎕IO←0yang default pada banyak sistem.

⊢⍴'\/'⊃⍨2|⊢

⊢ argumen

⍴ membentuk kembali (pengulangan)

'\/'⊃⍨ string "/" dipilih oleh

2|⊢ pembagian tersisa ketika argumen dibagi dua

TryAPL online!

Java 7, 68 65 byte

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

3 byte disimpan berkat @ user902383 dan @SeanBean .

Sama seperti dengan jawaban ini , kode-golf terpendek tampaknya loop dan dicetak. Keduanya bersifat rekursif dan
void c(int i){System.out.print(new String(new char[i]).replace("\0",i%2<1?"\\":"/"));}
tampaknya lebih panjang.

Tidak digabungkan & kode uji:

Coba di sini.

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

Keluaran:

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

R, 47 46 byte

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

Di R, Anda harus melarikan diri dari garis miring terbalik. argumennya sepjuga harus ditentukan secara lengkap karena muncul setelahnya .... Dengan demikian, sangat sedikit peluang untuk menyelamatkan karakter :(

Berkat bouncyball untuk bermain golf sejauh satu byte.

T-SQL 50 byte

Tentu saja tidak di STDINsini, jadi mari kita asumsikan INTvariabel hardcode seperti ini: DECLARE @ INTmaka solusinya adalah:

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

Pip , 8 byte

"\/"@aXa

Mudah. Menggunakan pengindeksan modular untuk memilih karakter dan pengulangan string untuk melipatgandakannya.Cobalah online!

Pertanyaan ini menyajikan perbandingan yang menarik antara Pip, Pyth , dan Jelly , dua yang terakhir masing-masing memiliki skor 5 byte. Ketiga bahasa memiliki output implisit, dengan operator char tunggal untuk pengindeksan modular dan pengulangan string, dan tidak ada persyaratan untuk melarikan diri backslash dalam string. Namun ada dua perbedaan utama:

1. Dalam keadaan tertentu, Pyth dan Jelly hanya perlu satu pembatas untuk mendefinisikan string;
2. Pyth dan Jelly memiliki sintaksis sehingga input tidak perlu secara eksplisit diwakili dalam kode (meskipun untuk alasan yang sangat berbeda, seperti dijelaskan Maltysen kepada saya ).

Tidak satu pun dari fitur-fitur ini yang kemungkinan muncul di Pip ¹ (saya tidak suka estetika pembatas tidak seimbang, dan sintaks bebas poin atau operan implisit tampak seperti mereka akan terlalu asing bagi parser ekspresi infiks saya), tapi saya ' Aku baik-baik saja dengan memainkan biola ketiga. Meskipun "keterbacaan" sangat relatif saat bermain golf, saya berpendapat bahwa tiga byte tambahan ini membuat program Pip lebih mudah dipahami dalam sekejap - dan dalam buku saya, itu merupakan tradeoff yang berharga.

_{¹ Meskipun, string karakter tunggal di Pip menggunakan 'pembatas tunggal , terinspirasi oleh CJam dan dengan mengutip dalam Lisp.}

Pyth , 5 byte

*@"\/

Suite uji.

Pengindeksan modular ke dalam string \/dan kemudian ulangi.

Perl 6 , 16 byte

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

Pemakaian:

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

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

Julia, 20 byte

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

SpecBAS - 28 byte

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

ODDmengembalikan 1 jika angka ganjil, lalu menggunakannya sebagai indeks untuk mencetak karakter yang benar dan beberapa kali. Harus menambahkan 1 sebagai string SpecBAS mulai dari karakter 1.

Java 8, 56 byte

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

Saya ingin mengucapkan terima kasih kepada @Kevin Cruijssen untuk mahir golf jawaban saya lebih lanjut.

Program Tes Tidak Berkumpul

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

Sebenarnya 10 byte

Saran bermain golf diterima. Cobalah online!

;'\'/2(%I*

Bagaimana itu bekerja

       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.