次のBASICステートメントの簡潔さについて同僚と「元気な」会話をしました。

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

これはこの本のタイトルであり、2つの文字をランダムに交互に並べ/て\文字列を印刷するだけで、次のようなパターンになります。

（http://www.flickr.com/photos/rndmcnlly/5058442151/sizes/o/in/photostream/から借りた画像）

PHPの傾向があるため、PHPで同じことを書く最もコンパクトな方法は何だろうと考えて、これを思いつきました。

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

chr(47)は/文字であり、chr（92）は\です。そのため、このステートメントecho chr(47 + 45 * rand(0,1));は、2つのアドネウザムをランダムに代替します。

選択した言語で、文字\と/文字の無限のランダムシーケンスを出力する最短のプログラムまたは関数を記述します。各文字は選択される確率が等しくなります。

gotoあなたはBASICと同じように、あなたが同じ方法を使用できるように、オペレータは、バージョン5.3.0からPHPに追加されました。

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

これはcodegolfに移行されて以来...

PHP 30バイト

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

Ð文字208で、£文字163です。

使用例（Windowsボックスで）：

color 18 & php maze.php

次のようなものを生成します。

正確に正方形の等幅フォントで最適に機能します（ここでは標準のシステムフォント8x8を選択しました）。デフォルトの色に戻すには、colorパラメータなしでもう一度入力します。

Mathematica 157バイト

PETSCIIがないため、私は自分の「\」と「/」を転がしました。

簡潔にするための葉巻はありません。

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]

ブレインファック-534

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

（ここから）私のprng は大きく、非常に遅いです。おそらく、より単純なLFSRまたは同様のもので十分ですが、これは機能します。

C、39文字（MSVCでは38）

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

実行してください。

MSVCでは、我々は交換することができputchar()て_putch()、バイトを保存ますが、IDEOneでは機能しません。

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

Common Lisp、33

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

printの戻り値は1なので、これを使用する場合は、式全体を次のようにラップできますwhile。

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

あなたもおそらくそれをさらにゴルフすることができます。

ルビー、27 23文字

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

$><< 「標準出力に印刷」です。

C ++、45文字

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

短編賞を受賞するつもりはありませんが、言及された本について聞いたときにすでに書いていたので、ゴルフをしました。

putcharトリックはC ++でも機能し、43になりますが、mainで戻り値の型を宣言することは避けられません。

私はCSSスタイルを使用して作成してみてください、それは仕事です

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

このphpコード：

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

Common Lisp-68

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

05AB1E、7バイト

["/\"Ω?

オンラインでお試しください！

["/\"Ω?  - 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バイト

? '/,\'

オンラインでお試しください！

?IPは、左または右、そのいずれかのいずれかで送信し/たり\して印刷する前にプッシュされます,。印刷後に'/または\'を間違った順序で実行すると、スタックに対して処理（分割またはスワップ）が行われ、繰り返しの前に無関係な文字がプッシュされます。

Befunge、12 9 8 7バイト

編集：ジェームスホルダーネスは、代わりに3つの引用符を使用する非常識なソリューションを見つけました。

?\","/"

各シンボルの多くの余分な文字でスタックがオーバーフローしますが、その1バイトをいつゴルフできるか誰が気にしますか？

古いバージョン

"/\"?>,#

（末尾のスペースに注意してください）末尾のスペースは明らかに不要です（Mistah Figginsに感謝）

オンラインで試す

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

これにより、スタックがいっぱいになり、印刷されるシンボルごとに1つの追加シンボルが追加されます。

それほど良くない。配列の逆参照機能にはphp 5.5以降が必要です。

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

Python、68

「私の言語はこれが嫌い」というカテゴリーには、Pythonがあります！

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

輸入品と輸入品のいくつかのキャラクターのIvoに感謝choice。

> <>、14バイト

私はそれを3 * 3の正方形に制限できると思っていましたが、成功しませんでした。

"/\
~x/
o</
 !

ここで試してみることができます。

Cubix、12バイト

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

オンライン通訳で見る！

これは、次のキューブネットにマッピングされます。

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

説明

セットアップ：

IPは最初に東に向かい始めます!。これは「真実ならばスキップ」コマンドであり、スタックに何もない場合はFalseであるため、コマンドはスキップされません。"/\"stringmodeに入り、これら2つの文字コードをスタックに追加します。B!oここでは主にノーオペレーションで、スタックを反転するだけです。

IPは最初のループに戻ります!。ただし、スタックには正の整数があるため、最初の整数"はスキップされます。これ/は、もはやキャラクターではなくミラーであり、IPをメインループの北に送信することを意味します。

メインループ：

このDコマンドは、Cubixのランダム性の唯一のソースです。IPをランダムな方向に送信します。南と東を矢印でブロックすることにより、IPが北に向かう確率が50％、西に向かう確率が50％になるようにします。

西に向かう場合、スタックは逆になります。北に向かう場合、先頭の文字が印刷されます。

これにより、必要に応じて、ランダムな一連のスラッシュが作成されます。

PHP、26 31バイト

8 3は、（空白や括弧なし）あなたより短いバイト、
2がより短いバイトprimo'sソリューション（タグなし）。

PHP 5.4.9は1012年12月の現在のバージョンであったため、...

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

リテラル文字列のインデックス作成にはPHP 5.5以降が必要です。

で実行する-rか、オンラインで試してください。

SmileBASIC、20バイト

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

PowerShell、108 90 86 54 53 37 36バイト

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

オンラインでお試しください！

Java 8、60 59 54 53バイト

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

-1バイトを@BenjaminUrquhartに置き換えることprintによりwrite、に置き換える'/'ことができます47。

説明：

オンラインで試す（60秒後にタイムアウト）。

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バイト

元の回答

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

マナトワークのおかげで-4バイト

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

コナー・オブライエンのおかげで-1バイト

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

再帰を使用できると思います。

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

再帰を使用できると思います。

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

...

1文字を切り落とした：

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

次に、中括弧を削除します。

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

同じ長さの別のトリック：

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

Perl

これは私にとって面白そうです：

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

（ここで対象外になりました。これはPHPではないことを知っています）

Powershell、37バイト

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

残念ながら、すべての文字の後に改行が入らないWrite-Hostの短いエイリアスはないようです。

16ビットx86アセンブリコード、10バイト

この本で終わったかどうかは覚えていません。

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

核分裂、12バイト

[#"\"R
W\"/"

オンラインでお試しください！

Perl 6、23バイト

loop {<\ />.pick.print}

• loop 永遠にループします。
• <\ />は文字列\とのリストです/。
• .pick 2つの文字列のいずれかをランダムに選択します。
• .print そのランダムな文字列を出力します。