Baru saja melakukan pembicaraan 'bersemangat' dengan rekan kerja tentang ringkasnya pernyataan BASIC berikut:

10 PRINT CHR$(205.5+RND(1)); : GOTO 10

Ini adalah judul buku ini , dan hanya akan mencetak urutan /dan \karakter, bergantian antara keduanya secara acak, menghasilkan pola yang mirip dengan ini:

(Gambar dipinjam dari http://www.flickr.com/photos/rndmcnlly/5058442151/sizes/o/in/in/photostream/ )

Menjadi sebuah kecenderungan PHP, kami bertanya-tanya seperti apa cara paling ringkas menulis hal yang sama di PHP, dan muncul dengan ini:

while(1) { echo chr(47 + 45 * rand(0,1)); }

chr(47)adalah /karakter, dan chr (92) adalah a \. Jadi pernyataan echo chr(47 + 45 * rand(0,1));itu secara acak akan menjadi alternatif di antara keduanya, ad nauseum.

Dalam bahasa yang Anda pilih, tulislah program atau fungsi terpendek untuk menghasilkan urutan acak \dan /karakter yang tak terbatas , di mana setiap karakter memiliki probabilitas yang sama untuk dipilih.

The gotoOperator telah ditambahkan ke PHP dari versi 5.3.0 sehingga Anda bisa menggunakan metode yang sama seperti yang Anda lakukan di BASIC:

a: echo chr(47 + 45 * rand(0,1)); goto a;

Karena ini telah dimigrasikan ke codegolf ...

PHP 30 byte

<?for(;;)echo rand(0,1)?~Ð:~£;

The Ðkarakter 208, dan £karakter 163.

Penggunaan sampel (pada kotak Windows):

color 18 & php maze.php

Menghasilkan sesuatu yang mirip dengan:

Ini berfungsi paling baik dengan font monospace yang persis persegi (di sini saya telah memilih font sistem standar 8x8). Untuk kembali ke warna default Anda, Anda dapat mengetik colorlagi tanpa parameter apa pun.

Mathematica 157 byte

Karena tidak memiliki PETSCII, saya menggulirkan "\" dan "/" saya sendiri.

Tidak ada cerutu untuk singkatnya di sini.

Graphics[{Thickness[.005],RGBColor[0.73,0.55,1.],Line/@Flatten[Table[RandomChoice[{{{x,y},{x+1,y+1}},{{x+1,y},{x,y+1}}}],{x,40},{y,25}],1]},Background->Blue]

Brainfuck - 534

>+[->>>>>>[<<<<<<+>>>>>>-]>[<<<<<<+>>>>>>-]<<<<+++++++[<+++++++++++>-]
<[<<[>>>>>>+<<<+<<<-]>>>[<<<+>>>-]<<[>>>>>+<<<+>+<<<-]>>>[<<<+>>>-]<[>
>>>+[<<<+>+>>-]<<[>>+<<-]+<[>-<[-]]>[>+<-]<<-]<-]++++++[>++++++++<-]>-
[<<[>>>>>+<<<<+<-]>[<+>-]>-]<<<[-]>[-]+++++[<+++++>-]<[>>>>>>>+[<<<<<<
+>+>>>>>-]<<<<<[>>>>>+<<<<<-]+<[>-<[-]]>[>>>>+<<<<-]<<-]++++++[>>>>>>+
++++++++<<<<<<-]>>>>>>[<<<<<<<+>+>>>>>>-]<<<<<<[>>>>>>+<<<<<<-]++<[->-
[>+>>]>[+[-<+>]>+>>]<<<<<]>[-]>>[-]<[<<+>+>-]<<[>>+<<-]+>>[-]<[++++[>+
+++<---]>.[-]<<->]<[[>+<+++++]>----.[-]<]>+]

Prng saya (dari sini ) besar dan sangat lambat. Mungkin LFSR yang lebih sederhana atau sejenisnya sudah cukup, tetapi ini berfungsi:

C, 39 karakter (38 pada MSVC)

main(){while(putchar(rand()%2?47:92));}

Lihat berlari.

Pada MSVC, kita bisa mengganti putchar()dengan _putch()dan menyimpan byte, tetapi tidak berfungsi di IDEOne.

main(){while(_putch(rand()%2?47:92));}

Common Lisp, 33

(loop(princ(elt"/\\"(random 2))))

printmemiliki nilai pengembalian 1, jadi jika Anda menggunakannya, Anda dapat membungkus seluruh ekspresi dalam while:

while(print chr(47 + 45 * rand(0,1));

Anda mungkin bisa bermain golf lebih jauh juga.

ruby, 27 23 karakter

loop{$><<"/\\"[rand 2]}

$><< is 'print to stdout'.

C ++, 45 Chars

int main(){for(;;)cout<<(rand()%2?"/":"\\");}

Tidak akan memenangkan penghargaan karena kekurangan, tetapi saya sudah menulis ini ketika saya mendengar tentang buku yang disebutkan, jadi saya hanya bermain golf.

Trik putchar juga berfungsi di C ++, membuat Anda turun ke 43, tetapi Anda tidak bisa menghindari mendeklarasikan tipe pengembalian di main.

Saya mencoba membuat menggunakan gaya css, dan itu berhasil

<style>
  body {
    font-family: monospace;
    line-height:75%;
    letter-spacing:-3px;
  }
</style>

kode php ini:

<?php
  $i=10000;
  while($i) {
    if($i%200 == 0) echo '<br/>';
    echo chr(47 + 45 * rand(0,1));
    $i--;
  }
?>

Gangguan Umum - 68

(defun s(l)(elt l(random(length l))))(loop do(format t"~a"(s"/\\")))

05AB1E , 7 byte

["/\"Ω?

Cobalah online!

["/\"Ω?  - Full program
[          Start an infinite loop
 "/\"      ... Push the string "/\" on the stack
     Ω     ... Pick a character from the top of the stack, at random
      ?    ... Print without a newline

Befunge-98 (PyFunge) , 7 byte

? '/,\'

Cobalah online!

yang ?mengirimkan IP baik kiri atau kanan, sehingga baik /atau \didorong sebelum mencetak dengan ,. Ketika menjalankan '/atau \'dalam urutan yang salah setelah mencetak, itu hanya melakukan hal-hal ke tumpukan (membagi atau menukar), dan kemudian mendorong karakter yang tidak relevan sebelum mengulangi.

Befunge, 12 9 8 7 Bytes

Sunting: James Holderness menemukan solusi gila yang menggunakan tiga kutipan sebagai gantinya.

?\","/"

Melimpahkan tumpukan dengan banyak karakter berlebih untuk setiap simbol, tetapi siapa yang peduli kapan Anda bisa melakukan golf 1 byte itu?

Versi lama

"/\"?>,#

(Perhatikan trailing space) Trailing space tampaknya tidak diperlukan (terima kasih Mistah Figgins)

Cobalah secara Online

"/\" Adds both / and \ to the stack
    ? Chooses a random direction to go in. Both up and down loop back around to the ? so it's 50% chance to go in either direction.
Going left
"/\"  >,#  Adds \ and / to the stack but only print the second, the / before heading back
Going right
      >,# Prints the top of the stack, the \ before heading back

Ini mulai mengisi tumpukan, dengan satu simbol tambahan untuk setiap simbol yang dicetak.

Tidak jauh lebih baik. Membutuhkan php 5.5+ untuk fitur array dereferencing.

while(1) { echo ['/', '\\'][rand(0, 1)]; }

Python, 68

Dalam kategori "bahasa saya payah di ini", kami punya Python!

import random,sys
while 1:sys.stdout.write(random.choice('/\\'))

Terima kasih kepada Ivo untuk beberapa karakter pada impor dan choice .

> <> , 14 byte

Saya berharap saya bisa membatasi ke 3 * 3 persegi tetapi tidak berhasil.

"/\
~x/
o</
 !

Anda bisa mencobanya di sini .

Cubix , 12 byte

D<^<!"/\"B!o

Lihat di penerjemah online!

Ini memetakan ke jaring kubus berikut:

    D <
    ^ <
! " / \ " B ! o
. . . . . . . .
    . .
    . .

Penjelasan

Mendirikan:

IP mulai menuju ke timur pada awalnya !. Ini adalah perintah 'lewati jika benar', yang salah ketika tidak ada apa pun di stack, jadi tidak ada perintah yang dilewati. "/\"memasuki stringmode dan menambahkan dua kode karakter ini ke stack. B!osebagian besar no-op di sini, hanya membalikkan tumpukan.

IP sekarang berputar kembali ke yang pertama !. Namun, sekarang ada bilangan bulat positif pada tumpukan, jadi yang pertama "dilewati. Ini berarti /bukan lagi karakter, tetapi cermin, mengirim IP utara ke loop utama.

Loop Utama:

Itu D perintah adalah satu-satunya sumber keacakan di Cubix. Ini mengirim IP dalam arah acak. Dengan memblokir Selatan dan Timur dengan panah, kami memastikan IP memiliki peluang 50% untuk menuju Utara, dan 50% peluang untuk menuju Barat.

Jika mengarah ke Barat, tumpukan terbalik. Jika mengarah Utara, karakter teratas dicetak.

Ini menciptakan urutan tebasan acak, seperti yang diinginkan.

PHP, 26 31 byte

delapan tiga byte lebih pendek dari milik Anda (tanpa spasi atau kawat gigi) ,
dua byte lebih pendek dari solusi primo (tanpa tag) .

PHP 5.4.9 adalah versi saat ini pada bulan Desember 1012, jadi ...

for($s="\/";;)echo$s[rand()%2];

membutuhkan PHP 5.5 atau lebih baru untuk pengindeksan string literal.

Jalankan dengan -ratau coba online .

SmileBASIC, 20 byte

?"/\"[RND(2)];
EXEC.

PowerShell , 108 90 86 54 53 37 36 byte

for(){Write-Host "\/"[(Random 2)]-n}

Cobalah online!

Java 8, 60 59 54 53 byte

v->{for(;;)System.out.write(Math.random()<.5?47:92);}

-1 byte berkat @BenjaminUrquhart dengan mengganti printdengan write, sehingga '/'dapat 47.

Penjelasan:

Cobalah online (waktu habis setelah 60 detik).

v->{                     // Method with empty unused parameter and no return-type
  for(;;)                //  Loop indefinitely
    System.out.write(    //   Print:
      Math.random()<.5?  //    If the random decimal value in range [0,1) is below 0.5:
       47                //     Print forward slash
      :                  //    Else:
       92);}             //     Print backward slash

JavaScript (Node.js) , 59 55 54 byte

Jawaban Asli

while(1){process.stdout.write(Math.random()>=0.5?"/":"\\")}

-4 byte berkat manatwork

while(1)process.stdout.write(Math.random()<.5?"/":"\\")

-1 byte terima kasih kepada Conor O'Brien

for(;;)process.stdout.write(Math.random()<.5?"/":"\\")

Saya kira Anda bisa menggunakan rekursi.

function slashes() {echo chr(47 + 45 * rand(0,1)); slashes();}

Saya kira Anda bisa menggunakan rekursi.

function slashes() {echo chr(47 + 45 * rand(0,1)); slashes();}

...

memotong satu karakter:

while(1) { echo chr(2 + 45 * rand(1,2)); }

kemudian lepaskan kurung kurawal:

while(1) echo chr(2+45*rand(1,2));

trik lain, dengan panjang yang sama:

while(1) echo chr(rand()%2*45+47);

Perl

Yang ini terlihat lucu bagi saya:

perl -pe '$_="~"ge$_?"/":"\\"' </dev/urandom

(Maaf keluar dari topik di sini. Saya tahu ini bukan PHP)

Powershell, 37 byte

for(){Write-Host(Random("\","/"))-N}

sayangnya sepertinya tidak ada alias lebih pendek untuk Write-Host yang tidak menyebabkan baris baru setelah setiap karakter.

Kode rakitan x86 16-bit, 10 byte

Saya tidak ingat apakah ini berakhir di buku.

init:
scasb            ;read from where ES:DI points and compare to AL 
                 ;this sets flags similar to a subtraction 
salc             ;set mask in AL to 00 or FF 
and   al,'\'-'/' ;begin choosing character (AL is 00 or 2D) 
add   al,'/'     ;finish choosing character 
writec:
int   29h        ;write char in AL 
jmp   init       ;loop endlessly

Fisi , 12 byte

[#"\"R
W\"/"

Cobalah online!

Perl 6 , 23 byte

loop {<\ />.pick.print}

• loop loop selamanya.
• <\ />adalah daftar string \dan /.
• .pick mengambil salah satu dari dua string secara acak.
• .print mencetak string acak itu.