Bu zorluğun üstesinden gelmek için Adnan’a verilen tüm krediler.

Benim son meydan okuma, önce ben tatilinde gitmek .

Görev

Verilen pozitif tamsayı n, eğer ntek ise , /bunu birçok kez tekrarlayın ; eğer öyleyse n, tekrarla\ bunu birçok kez .

(Cidden, test senaryoları bu tanımdan çok daha net olacaktır, bu yüzden test testlerine bakın.)

gözlük

• Herhangi bir makul giriş / çıkış formatı.
• Standart boşluklar uygulanır.

testcases

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

Javascript, 22 bayt

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

Anonim bir işlev tanımlar.

*Javascript sadece tekrarlanan dizeleri. İç çeker

Python, 20 bayt

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

05AB1E / 2sable , 15 11 9 8 bayt

DÈ„/\sè×

Leaky Nun sayesinde -2 bayt

Emigna sayesinde -1 bayt

Çevrimiçi deneyin! 05AB1E’de
veya 2sable’da

Perl, 20 bayt

İçin +1 içerir -p

STDIN'de giriş ile çalıştırın:

squigly.pl <<< 6

squigly.pl

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

Retina , 21

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

Çevrimiçi deneyin (birden fazla test uygulamasının çalışmasına izin vermek için ilk satır eklendi).

C #, 42 bayt

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

Doğru karakteri seçtikten sonra, tekrarlanan nzamanlardan bu karakterden oluşan yeni bir dize oluşturur .

PHP, 38 bayt

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

(değişken 38 bayt)

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

(değişken 38 bayt)

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

(40 bayt değişken)

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

C, 40 bayt

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

Ideone'da dene

Jöle , 5 bayt

ị⁾/\x

Çevrimiçi deneyin! veya Tüm test durumlarını doğrulayın.

ị⁾/\x

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

J, 10 bayt

#'\/'{~2|]

Bu altı tren fiili olup, şunlardan oluşur:

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

Bu #ve arasında bir kanca ('\/' {~ 2 | ]); bir kanca (f g) ygenişler y f (g y), böylece y # (... y)tek karakter için bir ykarakter listesi veren genişler .

İkinci bölüm, aşağıdakilerden oluşan 5 trenidir:

'\/' {~ 2 | ]

Bu iki çatal değerlendirir:

'\/' {~ (2 | ])

İç çatal, 2 | ]iki modüldür. Bu nedenle dış çatal:

'\/' {~ mod2

Hangi ( {~) mod2 index ( mod2) dizeden alır /.

Ardından kancayı yukarıdan kullanın:

y # (apt char)

Bu istediğimizi verir ve biz yapılır.

Haskell, 25 bayt

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

Damien ile birlikte -1 bayt cycle.

Mathematica, 34 32 28 bayt

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

Anonim işlev Girdi olarak bir tamsayı alır ve çıktı olarak bir karakter listesi döndürür.

Powershell, 30 27 bayt

Güncelleştirme:

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

Geçiş paramsayesinde, timmyd .

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

veya biraz daha okunabilir

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

Ölçek:

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

Mathematica, 29 bayt

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

Cruelly [[1]], bir fonksiyonun ilk argümanını [[0]]döndürürken, işlevi (başın) döndürürken, "\\""değerlendirilen" olarak adlandırılan garip bir şekilde geçerli fonksiyona uygulanan gerçeği kullanır "/".

Ruby, 15 bayt

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

Eval.in üzerinde görün: https://eval.in/632030

Fourier, 27 bayt

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

Çevrimiçi deneyin!

Brachylog , 15 bayt

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

Çevrimiçi deneyin!

açıklama

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

ri_"\/"=*

Çevrimiçi deneyin!

açıklama

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.

> <> (Balık), 30 Bayt

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

Bu dili ilk defa kullanıyorum, ancak akış yönünü değiştirmek için / çıktısının bir parçası veya aynasını kullanarak koşullu olarak en azından küçük bir oda biriktirdiğimi düşünüyorum. Muhtemelen hala korkunç derecede verimsiz olsa da, en azından biraz daha fazla kesilebileceğini hissediyorum.

Giriş başlangıç ​​yığınıdır, çıkış stdout

Çevrimiçi deneyin!

Dyalog APL , 11 bayt

⎕IO←0Birçok sistemde varsayılan olanı gerektirir .

⊢⍴'\/'⊃⍨2|⊢

⊢ argüman

⍴ yeniden şekillendirir (tekrarlar)

'\/'⊃⍨ tarafından seçilen "/" dizesi

2|⊢ argüman ikiye bölündüğünde, kalan bölüm

TryAPL çevrimiçi!

Java 7, 68 65 bayt

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

@ User902383 ve @SeanBean sayesinde 3 bayt kaydedildi .

Tıpkı bu cevapta olduğu gibi , en kısa kod-golf döngü ve baskı gibi görünüyor. Her ikisi de özyinelemeli ve
void c(int i){System.out.print(new String(new char[i]).replace("\0",i%2<1?"\\":"/"));}
daha uzun gibi görünüyor.

Ungolfed ve test kodu:

Burada dene.

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

Çıktı:

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

R, 47 46 bayt

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

R'de ters eğik çizgilerden kaçmanız gerekir. Argümanın sepda bundan sonra geldiğinden beri tam olarak belirtilmesi gerekir.... . Böylece karakterleri kurtarmak için can sıkıcı birkaç fırsat :(

Bir bayt uzak golf oynamak için zıplayan top için teşekkürler.

T-SQL 50 bayt

Tabii ki hayır STDINburada, öyleyse şöyle bir sabit kodlanmış INTdeğişkeni varsayalım : DECLARE @ INTo zaman çözüm:

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

Pip , 8 bayt

"\/"@aXa

Basit. Çoğaltılacak karakter ve dize tekrarını seçmek için modüler indeksleme kullanır. Çevrimiçi deneyin!

Bu soru Pip, Pyth ve Jelly , her ikisi de 5 byte puan alan ilginç bir karşılaştırma sunuyor . Üç dilin tümü, modüler indeksleme ve dize tekrarı için tek karakterli operatörlerle ve dizelerde ters eğik çizgiden kaçma zorunluluğu olmayan örtük bir çıktıya sahiptir. Yine de iki önemli fark var:

1. Belirli koşullar altında Pyth ve Jelly bir dize tanımlamak için yalnızca bir sınırlayıcıya ihtiyaç duyar;
2. Pyth ve Jelly, girişin kodda açıkça gösterilmesi gerekmeyecek şekilde sözdizimine sahiptir (ancak Maltysen'in bana açıkladığı gibi, çok farklı nedenlerden dolayı ).

Bu özelliklerden hiçbirinin Pip ^1'de görünmesi muhtemel değildir (dengesiz sınırlandırıcıların estetiğini sevmiyorum ve noktasuz sözdizimi veya örtülü işlenenler, benim ek ifade çözümleyicime yabancı gibi görünüyorlar), ama ben Tamam üçüncü keman çalmakla tamam. Golf oynarken "okunabilirlik" oldukça göreceli olsa da, bu üç ekstra baytın Pip programının bir bakışta anlaşılmasını çok daha kolay hale getirdiğini savunuyorum - ve kitabımda bu çok değerli bir sonuç.

_{¹ Bununla birlikte, 'Pip'deki tek karakterli dizeler , CJam'dan ilham alınarak ve Lisp'te alıntı yaparak tek bir sınırlayıcı kullanır .}

Pyth , 5 bayt

*@"\/

Test odası.

Dize modüler indeksleme \/ve sonra tekrarlayın.

Perl 6 , 16 bayt

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

Kullanımı:

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

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

Julia, 20 bayt

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

SpecBAS - 28 bayt

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

ODDsayı tek ise 1 değerini döndürür, sonra doğru karakteri n sayıda yazdırmak için bunu bir dizin olarak kullanır. SpecBAS dizgileri karakter 1'den başlarken 1 eklemek zorundasınız.

Java 8, 56 bayt

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

Cevabımı daha fazla golf oynadığı için @Kevin Cruijssen'e teşekkür ediyorum.

Ungolfed Test Programı

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

Aslında 10 bayt

Golf önerileri kabul edilir. Çevrimiçi deneyin!

;'\'/2(%I*

Nasıl çalışır

       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.