Tantangan terakhir saya, sebelum saya istirahat .
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.)
n output
1 /
2 \\
3 ///
4 \\\\
5 /////
6 \\\\\\
Jawaban:
n=>"\\/"[n%2].repeat(n)
Menentukan fungsi anonim.
Jika hanya *mengulang string di Javascript. mendesah
f=n=>..., Anda langsung bisa menyebutnya: (n=>...)(5). (Atau jika Anda menggunakan Node.js REPL, maka Anda bisa menggunakan this._, yang merupakan singkatan dari hal terakhir yang dimasukkan)
Termasuk +1 untuk -p
Jalankan dengan input pada STDIN:
squigly.pl <<< 6
squigly.pl
#!/usr/bin/perl -p
$_=$_%2x$_;y;01;\\/
-popsi ini? Saya menggunakan ;transliterate karena -pmemiliki implisit ;di akhir kode sehingga saya dapat menyimpan 1 byte lagi. Ini telah bekerja sejak setidaknya perl 5.6 (mungkin selama -popsi itu ada)
;ditambah oleh -pitu cukup mengagumkan, dilakukan dengan baik.
.+
$*/
T`/`\\`^(..)+$
Cobalah online (Baris pertama ditambahkan untuk memungkinkan beberapa testcase dijalankan).
putchar(92-n%2*45)memiliki panjang yang sama.
ị⁾/\x
Cobalah online! atau Verifikasi semua testcases.
ị⁾/\x
ị⁾/\ modular-indexing into the string "/\"
x repeat
Ø^byte lebih pendek dari ⁾/\ .
#'\/'{~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.
If[OddQ@#,"/","\\"]~Table~#&
Fungsi anonim. Mengambil integer sebagai input dan mengembalikan daftar karakter sebagai output.
~Table~#.
<>""dan mengembalikan daftar karakter.
~Do~Infinitydan dalam 10.2+ juga ...
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 $_ }
/
\\
///
\\\\
/////
\\\\\\
///////
\\\\\\\\
/////////
\\\\\\\\\\
param($n)gantinya $args, seperti mengikuti selama 27 byte -param($n)('\','/')[$n%2]*$n
"\\"["/"][[#~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 "/".
a[b]itu hanya ekspresi umum dengan kepala a(indeks 0) dan elemen b(indeks 1), dan fungsi hanyalah jenis ekspresi khusus (sebenarnya, itu akan lebih tepat untuk mengatakan bahwa fungsi tidak ' t ekspresi sama sekali, tetapi hanya aturan untuk mengubah ekspresi yang biasanya berbentuk f[x...]). :)
: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
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.
: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
Membutuhkan ⎕IO←0yang default pada banyak sistem.
⊢⍴'\/'⊃⍨2|⊢⊢ argumen
⍴ membentuk kembali (pengulangan)
'\/'⊃⍨ string "/" dipilih oleh
2|⊢ pembagian tersisa ketika argumen dibagi dua
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:
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:
/
\\
///
\\\\
/////
\\\\\\
///////
\\\\\\\\
/////////
x=-1;++x<ike x=0;x++<iAnda dapat mengurangi oleh satu byte
"\\" : "/"dengan 92:'/';)
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.
n=scan();cat(rep(c('\\','/')[n%%2+1],n),sep='')
"\/"@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:
Tidak satu pun dari fitur-fitur ini yang kemungkinan muncul di Pip 1 (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.
1 Meskipun, string karakter tunggal di Pip menggunakan 'pembatas tunggal , terinspirasi oleh CJam dan dengan mengutip dalam Lisp.
code golf= golflang design. Sekarang Anda mungkin berpendapat bahwa prinsip yang sama (lebih pendek selalu lebih baik) berlaku untuk desain bahasa juga. Saya hanya mengatakan bahwa bagi saya, kegunaan dan bahkan estetika adalah pertimbangan.
{<\ />[$_%2]x$_}for 1..6 {
say $_, {<\ />[$_%2]x$_}( $_ )
}1/
2\\
3///
4\\\\
5/////
6\\\\\\!x="$("/\\"[x%2])"^x
(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.
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);
}
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.