Hatte gerade ein "temperamentvolles" Gespräch mit einem Kollegen über die Prägnanz der folgenden BASIC-Anweisung:

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

Es ist der Titel dieses Buches , und es wird einfach eine Folge von /und \Zeichen gedruckt , die sich nach dem Zufallsprinzip abwechseln und zu einem ähnlichen Muster führen:

(Bild von http://www.flickr.com/photos/rndmcnlly/5058442151/sizes/o/in/photostream/ ausgeliehen )

Wir waren von PHP-Neigung und fragten uns, wie man das gleiche in PHP am kompaktesten schreiben könnte.

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

chr(47)ist ein /Zeichen und chr (92) ist a \. Die Aussage echo chr(47 + 45 * rand(0,1));wird also nach dem Zufallsprinzip ad nauseum zwischen den beiden Alternativen wechseln.

Schreiben Sie in einer Sprache Ihrer Wahl das kürzeste Programm oder die kürzeste Funktion, um eine unendliche Zufallsfolge von \und /Zeichen auszugeben , wobei jedes Zeichen die gleiche Wahrscheinlichkeit hat, ausgewählt zu werden.

Der gotoOperator wurde PHP ab Version 5.3.0 hinzugefügt, sodass Sie dieselbe Methode wie in BASIC verwenden können:

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

Da dies zu Codegolf migriert wurde ...

PHP 30 Bytes

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

Das Ðist das Zeichen 208 und das £ist das Zeichen 163.

Anwendungsbeispiel (auf einer Windows-Box):

color 18 & php maze.php

Erzeugt etwas Ähnliches wie:

Es funktioniert am besten mit einer Monospace-Schriftart, die genau quadratisch ist (hier habe ich die Standardsystemschrift 8x8 gewählt). Um zu Ihrer Standardfarbe zurückzukehren, können Sie colorerneut ohne Parameter eingeben.

Mathematica 157 Bytes

Ohne PETSCII habe ich meine eigenen "\" und "/" gerollt.

Keine Zigarre zur Abkürzung hier.

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

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

Mein prng (von hier ) ist groß und extrem langsam. Vielleicht würde ein einfacheres LFSR oder ähnliches ausreichen, aber das funktioniert:

C, 39 Zeichen (38 bei MSVC)

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

Sehen Sie es laufen.

Auf MSVC, können wir ersetzen putchar()mit _putch()und speichern ein Byte, aber es funktioniert nicht in IDEOne.

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

Gemeiner Lisp, 33

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

printhat einen Rückgabewert von 1. Wenn Sie also diesen Wert verwenden, können Sie den gesamten Ausdruck in Folgendes einschließen while:

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

Sie können wahrscheinlich auch weiter Golf spielen.

Rubin, 27 23 Zeichen

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

$><< ist 'nach stdout drucken'.

C ++, 45 Zeichen

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

Ich werde keine Preise für Kurzentschlossenheit gewinnen, aber ich hatte dies bereits geschrieben, als ich von dem erwähnten Buch hörte, also habe ich einfach Golf gespielt.

Der Putchar-Trick funktioniert auch in C ++ und bringt Sie auf 43 zurück, aber Sie können es nicht vermeiden, den Rückgabetyp für main zu deklarieren.

Ich versuche, mit CSS-Stil zu erstellen, und es funktioniert

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

dieser PHP-Code:

<?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 Bytes

["/\"Ω?

Probieren Sie es 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 Bytes

? '/,\'

Probieren Sie es online!

Der ?sendet die IP entweder links oder rechts, also entweder /oder \wird vor dem Drucken mit gedrückt ,. Wenn das '/oder \'nach dem Drucken in der falschen Reihenfolge ausgeführt wird, werden nur die Vorgänge im Stapel ausgeführt (geteilt oder vertauscht), und vor dem Wiederholen wird ein irrelevantes Zeichen verschoben.

Befunge, 12 9 8 7 Bytes

Bearbeiten: James Holderness fand eine verrückte Lösung, die stattdessen drei Anführungszeichen verwendet.

?\","/"

Überläuft der Stapel mit vielen überschüssigen Zeichen für jedes Symbol, aber wen interessiert es, wann Sie dieses 1 Byte Golf spielen können?

Alte Version

"/\"?>,#

(Beachten Sie das nachgestellte Leerzeichen) Nachgestelltes Leerzeichen wird anscheinend nicht benötigt (danke Mistah Figgins)

Probieren Sie es 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

Dies füllt den Stapel mit einem zusätzlichen Symbol für jedes gedruckte Symbol.

Nicht viel besser. Benötigt PHP 5.5+ für die Array-Dereferenzierung.

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

Python, 68

In der Kategorie "Meine Sprache ist scheiße" haben wir Python!

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

Danke an Ivo für ein paar Zeichen bei Import und choice.

> <> , 14 Bytes

Ich hatte gehofft, ich könnte es auf ein 3 * 3-Quadrat beschränken, aber es gelang mir nicht.

"/\
~x/
o</
 !

Sie können es hier ausprobieren .

Cubix , 12 Bytes

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

Im Online-Dolmetscher ansehen!

Dies wird dem folgenden Würfelnetz zugeordnet:

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

Erläuterung

Installieren:

Die IP beginnt am ersten Tag in östlicher Richtung !. Dies ist der Befehl "Skip If Truthy", der "False" ist, wenn sich nichts auf dem Stapel befindet, sodass keine Befehle übersprungen werden. "/\"Ruft den String-Modus auf und hängt diese beiden Zeichencodes an den Stack an. B!oist hier meistens ein No-Op, nur das Umkehren des Stapels.

Die IP kehrt nun zur ersten zurück !. Es sind jedoch jetzt positive ganze Zahlen auf dem Stapel, sodass die erste "übersprungen wird. Das heißt, es /ist kein Charakter mehr, sondern ein Spiegel, der die IP nach Norden in die Hauptschleife sendet.

Hauptschleife:

Das D Befehl ist die einzige Zufallsquelle in Cubix. Es sendet die IP in eine zufällige Richtung. Indem wir Süd und Ost mit Pfeilen blockieren, stellen wir sicher, dass die IP eine 50% ige Chance hat, nach Norden und eine 50% ige Chance, nach Westen zu fahren.

Wenn es nach Westen geht, wird der Stapel umgekehrt. Wenn es nach Norden zeigt, wird das oberste Zeichen gedruckt.

Dadurch wird die gewünschte zufällige Folge von Schrägstrichen erstellt.

PHP, 26 31 Bytes

acht drei Bytes kürzer als deine (ohne Leerzeichen oder geschweifte Klammern) ,
zwei Bytes kürzer als die Lösung von primo (ohne das Tag) .

PHP 5.4.9 war die aktuelle Version im Dezember 1012, also ...

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

erfordert PHP 5.5 oder höher für die Indexierung von Literalstrings.

Laufen Sie mit -roder versuchen Sie es online .

SmileBASIC, 20 Bytes

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

PowerShell , 108 90 86 54 53 37 36 Byte

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

Probieren Sie es online!

Java 8, 60 59 54 53 Bytes

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

-1 Byte dank @BenjaminUrquhart durch Ersetzen printdurch write, so '/'kann es sein 47.

Erläuterung:

Probieren Sie es online aus (Timeout nach 60 Sekunden).

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

Ursprüngliche Antwort

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

-4 Bytes dank Handarbeit

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

-1 Byte danke an Conor O'Brien

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

Ich denke, Sie können die Rekursion verwenden.

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

Ich denke, Sie können die Rekursion verwenden.

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

...

ein Zeichen abgeschnitten:

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

dann entfernen Sie die geschweiften Klammern:

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

Ein weiterer Trick mit der gleichen Länge:

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

Perl

Dieser sieht lustig für mich aus:

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

(Es tut mir leid, dass ich hier kein Thema habe. Ich weiß, dass dies kein PHP ist.)

Powershell, 37 Bytes

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

Leider scheint es keine kürzeren Aliase für Write-Host zu geben, die nicht nach jedem Zeichen eine neue Zeile verursachen.

16-Bit-x86-Assemblycode, 10 Byte

Ich erinnere mich nicht, ob dieser in dem Buch gelandet ist.

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

Spaltung , 12 Bytes

[#"\"R
W\"/"

Probieren Sie es online!

Perl 6 , 23 Bytes

loop {<\ />.pick.print}

• loop Schleifen für immer.
• <\ />ist eine Liste der Zeichenfolgen \und/ .
• .pick wählt zufällig eine der beiden Saiten.
• .print druckt diese zufällige Zeichenfolge.