Tất cả các khoản tín dụng cho Adnan để đưa ra thách thức này.

Thử thách cuối cùng của tôi, trước khi tôi nghỉ giải lao .

Bài tập

Cho số nguyên dương n, nếu nlà số lẻ, lặp lại /nhiều lần; nếu nlà chẵn, lặp lại \nhiều lần

(Nghiêm túc mà nói, các testcase sẽ rõ ràng hơn nhiều so với mô tả này, vì vậy chỉ cần nhìn vào các testcase.)

Thông số kỹ thuật

• Bất kỳ định dạng đầu vào / đầu ra hợp lý.
• Tiêu chuẩn áp dụng.

Tủ thử

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

Javascript, 22 byte

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

Xác định một hàm ẩn danh.

Nếu chỉ *lặp lại chuỗi trong Javascript. thở dài

Python, 20 byte

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

05AB1E / 2sable , 15 11 9 8 byte

DÈ„/\sè×

-2 byte nhờ Leaky Nun

-1 byte nhờ Emigna

Hãy thử trực tuyến! trong 05AB1E
hoặc trong 2sable

Perl, 20 byte

Bao gồm +1 cho -p

Chạy với đầu vào trên STDIN:

squigly.pl <<< 6

squigly.pl

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

Võng mạc , 21

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

Dùng thử trực tuyến (Dòng đầu tiên được thêm vào để cho phép nhiều testcase được chạy).

C #, 42 byte

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

Chọn đúng ký tự, sau đó tạo một chuỗi mới bao gồm các ký tự đó được lặp lại nhiều nlần.

PHP, 38 byte

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

(biến thể 38 byte)

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

(biến thể 38 byte)

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

(biến thể 40 byte)

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

C, 40 byte

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

Hãy thử nó trên Ideone

Thạch , 5 byte

ị⁾/\x

Hãy thử trực tuyến! hoặc Xác minh tất cả các mẫu thử.

ị⁾/\x

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

J, 10 byte

#'\/'{~2|]

Đây là một động từ sáu tàu, bao gồm:

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

Đây là một cái móc giữa #và ('\/' {~ 2 | ]); một cái móc (f g) ymở rộng ra y f (g y), do đó, cái này mở rộng ra y # (... y), mà, đối với các ký tự đơn, sẽ tạo ra một danh sách các yký tự.

Phần thứ hai là 5 chuyến tàu, bao gồm:

'\/' {~ 2 | ]

Điều này đánh giá hai nhánh:

'\/' {~ (2 | ])

Các ngã ba bên trong 2 | ], là mô-đun hai. Các ngã ba bên ngoài, do đó, là:

'\/' {~ mod2

Mà lấy ( {~) chỉ số mod2 ( mod2) từ chuỗi /.

Sau đó, sử dụng móc từ phía trên:

y # (apt char)

Điều này mang lại những gì chúng ta muốn, và chúng ta đã hoàn thành.

Haskell, 25 byte

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

-1 byte nhờ Damien với cycle.

Toán học, 34 32 28 byte

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

Chức năng ẩn danh. Lấy một số nguyên làm đầu vào và trả về một danh sách các ký tự làm đầu ra.

Powershell, 30 27 byte

Cập nhật:

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

Chuyển sang param, nhờ timmyd .

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

hoặc dễ đọc hơn một chút

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

Kiểm tra:

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

Toán học, 29 byte

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

Khai thác một cách tàn nhẫn thực tế [[1]]trả về đối số đầu tiên của hàm trong khi [[0]]trả về chính hàm (đầu), được áp dụng cho hàm hợp lệ lạ có tên "\\"đang được "đánh giá" tại "/".

Ruby, 15 byte

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

Xem nó trên eval.in: https://eval.in/632030

Fourier, 27 byte

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

Hãy thử trực tuyến!

Brachylog , 15 byte

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

Hãy thử trực tuyến!

Giải trình

: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_"\/"=*

Hãy thử trực tuyến!

Giải trình

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.

> <> (Cá), 30 byte

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

Lần đầu tiên sử dụng ngôn ngữ này, nhưng tôi nghĩ rằng ít nhất tôi đã tiết kiệm được một căn phòng nhỏ bằng cách sử dụng có điều kiện / như một phần của đầu ra hoặc gương để chuyển hướng dòng chảy. Có lẽ vẫn còn kém hiệu quả khủng khiếp, tôi cảm thấy như nó có thể bị cắt giảm ít nhất một chút.

Đầu vào là ngăn xếp ban đầu, đầu ra là stdout

Hãy thử trực tuyến!

APL Dyalog , 11 byte

Yêu cầu ⎕IO←0mặc định trên nhiều hệ thống.

⊢⍴'\/'⊃⍨2|⊢

⊢ tranh luận

⍴ định hình lại (lặp lại)

'\/'⊃⍨ chuỗi "/" được chọn bởi

2|⊢ phần còn lại khi đối số được chia cho hai

Dùng thử trực tuyến!

Java 7, 68 65 byte

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

3 byte được lưu nhờ vào @ user902383 và @SeanBean .

Giống như với câu trả lời này , golf-code ngắn nhất dường như lặp lại và in. Cả đệ quy và
void c(int i){System.out.print(new String(new char[i]).replace("\0",i%2<1?"\\":"/"));}
dường như dài hơn.

Mã thử nghiệm & mã hóa:

Hãy thử nó ở đây.

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

Đầu ra:

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

R, 47 46 byte

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

Trong R, bạn phải thoát dấu gạch chéo ngược. đối số sepcũng phải được chỉ định đầy đủ vì nó xuất hiện sau... . Vì vậy, rất ít cơ hội để tiết kiệm ký tự :(

Cảm ơn bouncyball để chơi golf một byte.

T-SQL 50 byte

Tất nhiên là không có STDINở đây, vì vậy hãy giả sử một INTbiến được mã hóa cứng như thế này: DECLARE @ INTthì giải pháp là:

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

Pip , 8 byte

"\/"@aXa

Nói thẳng ra. Sử dụng lập chỉ mục mô-đun để chọn lặp lại ký tự và chuỗi để nhân nó. Hãy thử trực tuyến!

Câu hỏi này đưa ra một so sánh thú vị giữa Pip, Pyth và Jelly , hai câu hỏi sau mỗi câu có 5 byte. Tất cả ba ngôn ngữ đều có đầu ra ngầm định, với các toán tử char đơn để lập chỉ mục mô-đun và lặp lại chuỗi, và không có yêu cầu thoát dấu gạch chéo ngược trong chuỗi. Có hai điểm khác biệt chính:

1. Trong một số trường hợp nhất định, Pyth và Jelly chỉ cần một dấu phân cách để xác định chuỗi;
2. Pyth và Jelly có cú pháp sao cho đầu vào không cần phải được trình bày rõ ràng trong mã (mặc dù vì những lý do rất khác nhau, như Maltysen đã giải thích với tôi ).

Không một trong số các tính năng này có khả năng hiển thị trong Pip ¹ (Tôi không thích tính thẩm mỹ của các dấu phân cách không cân bằng và cú pháp không có điểm hoặc các toán hạng ngầm có vẻ như chúng quá xa lạ với trình phân tích cú pháp biểu thức kết hợp của tôi), nhưng tôi m ổn với chơi fiddle thứ ba. Mặc dù "khả năng đọc" cực kỳ tương đối khi chơi golf, tôi cho rằng ba byte bổ sung đó làm cho chương trình Pip trở nên dễ hiểu hơn rất nhiều - và trong cuốn sách của tôi, đó là một sự đánh đổi đáng giá.

_{¹ Mặc dù, các chuỗi ký tự đơn trong Pip sử dụng một 'dấu phân cách duy nhất , lấy cảm hứng từ CJam và bằng cách trích dẫn trong Lisp.}

Bình thường , 5 byte

*@"\/

Bộ thử nghiệm.

Modular-indexing vào chuỗi \/và sau đó lặp lại.

Perl 6 , 16 byte

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

Sử dụng:

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

ODDtrả về 1 nếu số là số lẻ, sau đó sử dụng số đó làm chỉ mục để in đúng số ký tự n số lần. Phải thêm 1 vì chuỗi SpecBAS bắt đầu từ ký tự 1.

Java 8, 56 byte

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

Tôi muốn cảm ơn @Kevin Cruijssen vì đã nâng cao câu trả lời của tôi.

Chương trình kiểm tra 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);
}

Trên thực tế, 10 byte

Gợi ý chơi golf chào mừng. Hãy thử trực tuyến!

;'\'/2(%I*

Làm thế nào nó hoạt động

       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.