Sadece bir BASIC ifadesinin özlülüğü hakkında bir meslektaşla 'ruhlu' bir konuşma yaptım:

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

Bu kitabın adı ve basitçe şununla rasgele bir sırayla sonuçlanan iki sıra arasında değişen bir dizi /ve \karakter basacak :

( Http://www.flickr.com/photos/rndmcnlly/5058442151/sizes/o/in/photostream/ adresinden ödünç alınan resim )

Bir PHP eğilimi olan PHP'de aynı şeyi yazmanın en kompakt yolunun ne olduğunu merak ettik ve şunu belirledik:

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

chr(47)bir /karakterdir ve chr (92) a'dır \. Yani ifade echo chr(47 + 45 * rand(0,1));, iki reklam müzesi arasında rastgele bir alternatif olacaktır.

Seçtiğiniz bir dilde, sonsuz bir rasgele sıra dizisi \ve /her bir karakterin seçilme olasılığının eşit olduğu karakterlerin çıktısını almak için en kısa programı veya işlevi yazın .

gotoEğer BASIC yaptığınız gibi aynı yöntemi kullanın böylece operatör sürümü 5.3.0 den PHP eklendi:

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

Bu kodgolf'e taşındığından beri ...

PHP 30 bayt

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

ÐKarakter 208 olduğunu ve £karakter 163 olduğunu.

Örnek kullanım (bir Windows kutusunda):

color 18 & php maze.php

Şuna benzer bir şey üretir:

En iyi tam kare kare monospace yazı tipiyle çalışır (burada 8x8 standart sistem yazı tipini seçtim). Varsayılan renginize geri dönmek için, colorherhangi bir parametre olmadan tekrar yazabilirsiniz .

Mathematica 157 bayt

PETSCII eksikliği nedeniyle kendi "\" ve "/" harflerini yuvarladım.

Burada kısalık için puro yok.

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 ( buradan ) hem büyük hem de aşırı yavaş. Belki daha basit bir LFSR veya benzeri yeterli olacaktır, ancak bu işe yarar:

C, 39 karakter (MSVC'de 38)

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

Çalıştırıldığını görün.

MSVC'de bir bayt putchar()ile değiştirebilir _putch()ve kaydedebiliriz, ancak IDEOne'de çalışmaz.

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

Ortak Lisp, 33

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

print1 dönüş değeri vardır, bu nedenle kullanırsanız tüm ifadeyi şuraya sarabilirsiniz while:

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

Muhtemelen daha fazla golf oynayabilirsin.

ruby, 27 23 karakter

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

$><< 'stdout'a yazdır'.

C ++, 45 Karakter

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

Kısalık ödülü kazanamayacaksınız, ancak bahsi geçen kitabı duyduğumda zaten bunu yazmıştım, bu yüzden sadece golf oynamıştım.

Putchar hilesi, C ++ 'da da çalışarak sizi 43'e indirir, ancak ana getiriyi beyan etmekten kaçınamazsınız.

css stilini kullanarak oluşturmaya çalışıyorum

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

bu php kodu:

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

Ortak Lisp - 68

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

05AB1E , 7 bayt

["/\"Ω?

Çevrimiçi deneyin!

["/\"Ω?  - 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 bayt

? '/,\'

Çevrimiçi deneyin!

?IP ya sola veya sağa, yani ya gönderir /ya \ile yazdırmadan önce itilir ,. Yazdırdıktan sonra '/ya \'da yanlış sırada yürütülürken, sadece istifin içine işler (bölünür veya değişir) ve sonra tekrar etmeden önce ilgisiz bir karakter iter.

Befunge, 12 9 8 7 Bayt

Düzenleme: James Holderness , bunun yerine üç tırnak kullanan çılgın bir çözüm buldu.

?\","/"

Her sembol için fazla karakter içeren yığının üstünden taşar, ancak bu 1 baytı ne zaman oynayabileceğinizi kim umursar?

Eski versiyon

"/\"?>,#

(Sondaki boşluğa dikkat edin) Sondaki boşluğa görünüşte gerek yok (teşekkürler Mistah Figgins)

Çevrimiçi Deneyin

"/\" 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

Bu, basılan her sembol için bir ekstra sembolle yığını doldurmaya başlar.

Daha iyi değil. Dizi düzenleme özelliği için php 5.5+ sürümüne ihtiyaç duyuyor.

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

Python, 68

"Dilim bunu emiyor" kategorisinde Python var!

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

İvo'ya ithalat ve ithalatta birkaç para için teşekkürler choice.

> <> , 14 bayt

3 * 3 kareyle sınırlayabileceğimi, ancak başaramadığımı umuyordum.

"/\
~x/
o</
 !

Burada deneyebilirsiniz .

Cubix , 12 bayt

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

Online tercümanda göster!

Bu, aşağıdaki küp ağıyla eşleşir:

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

açıklama

Kurmak:

IP ilk önce doğuya doğru ilerlemeye başlar !. Bu, 'truthy atla' komutudur, bu, istifte hiçbir şey olmadığında False'dir, dolayısıyla hiçbir komut atlanmaz. "/\"stringmode'a girer ve bu iki karakter kodunu yığına ekler. B!oburada çoğunlukla çalışma yok, yalnızca yığını ters çeviriyor.

IP şimdi ilkine geri dönüyor !. Ancak şimdi yığında pozitif tamsayılar var, bu yüzden ilk "atlandı. Bu /, artık bir karakter değil, IP'yi kuzeye ana döngüye gönderen bir aynadır.

Ana döngü:

DKomut Cubix içinde rastgelelik tek kaynaktır. IP'yi rastgele bir yöne gönderir. Güney ve Doğu'yu oklarla engelleyerek, IP’nin% 50’yi Kuzey yönüne,% 50’sini Batı’ya yönlendirme şansına sahip olduğundan emin oluruz.

Batıya yönelirse, yığın tersine döner. Kuzey yönüne giderse, üst karakter yazdırılır.

Bu, istendiği gibi, rastgele eğik çizgi dizisini oluşturur.

PHP, 26 31 bayt

sizinkinden daha kısa sekiz bayt (boşluk veya parantez olmadan) , primo çözümünden
iki bayt ( etiketsiz ) .

PHP 5.4.9 Aralık 1012’deki güncel sürümdü.

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

hazır bilgi dizini indekslemesi için PHP 5.5 veya daha yenisini gerektirir.

Çevrimiçi olarak çalıştırın -rveya deneyin .

SmileBASIC, 20 bayt

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

PowerShell , 108 90 86 54 53 37 36 bayt

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

Çevrimiçi deneyin!

Java 8, 60 59 54 53 bayt

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

-1 byte sayesinde @BenjaminUrquhart değiştirerek printile write, yani '/'olabilir 47.

Açıklama:

Çevrimiçi deneyin (60 saniye sonra zaman aşımına uğradı).

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 bayt

Orijinal cevap

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

Manatwork sayesinde -4 bayt

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

Conor O'Brien sayesinde -1 bayt

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

Sanırım özyinelemeyi kullanabilirsin.

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

Sanırım özyinelemeyi kullanabilirsin.

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

...

bir karakter kıyılmış:

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

sonra kaşlı ayraçları çıkarın:

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

aynı uzunluktaki başka bir numara:

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

Perl

Bu benim için komik görünüyor:

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

(Burada konu dışı olduğum için üzgünüm. Bunun PHP olmadığını biliyorum)

Powershell, 37 bayt

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

maalesef, her ana bilgisayardan sonra yeni bir satıra neden olmayan Yazma-Ana Bilgisayar için daha kısa takma adlar görünmüyor.

16 bit x86 derleme kodu, 10 bayt

Bunun kitapta bitip bitmediğini hatırlamıyorum.

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

Fisyon , 12 bayt

[#"\"R
W\"/"

Çevrimiçi deneyin!

Perl 6 , 23 bayt

loop {<\ />.pick.print}

• loop Sonsuza dek döngüler.
• <\ />dizelerin listesi \ve /.
• .pick iki diziden birini rastgele seçer.
• .print bu rasgele dizeyi yazdırır.