Ho appena avuto una conversazione "animata" con un collega sulla succinta della seguente dichiarazione BASIC:

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

È il titolo di questo libro e stamperà semplicemente una sequenza di /e \caratteri, alternando i due in modo casuale, risultando in uno schema simile a questo:

(Immagine presa in prestito da http://www.flickr.com/photos/rndmcnlly/5058442151/sizes/o/in/photostream/ )

Essendo di una propensione al PHP, ci siamo chiesti quale sarebbe il modo più compatto di scrivere la stessa cosa in PHP, e abbiamo trovato questo:

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

chr(47)è un /personaggio e chr (92) è un \. Quindi l'affermazione echo chr(47 + 45 * rand(0,1));si alternerà casualmente tra i due, fino alla nausea.

In una lingua di tua scelta, scrivi il programma o la funzione più breve per generare una sequenza casuale infinita di \e /caratteri, in cui ogni personaggio ha la stessa probabilità di essere scelto.

L' gotooperatore è stato aggiunto a PHP dalla versione 5.3.0 in modo da poter usare lo stesso metodo di BASIC:

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

Da quando è stato migrato su codegolf ...

PHP 30 byte

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

Il Ðpersonaggio è 208 e il £personaggio 163.

Esempio di utilizzo (su una finestra di Windows):

color 18 & php maze.php

Produce qualcosa di simile a:

Funziona meglio con un carattere monospaziale esattamente quadrato (qui ho scelto il carattere di sistema standard 8x8). Per tornare al colore predefinito, è possibile digitare colornuovamente senza parametri.

Mathematica 157 byte

In mancanza di PETSCII, ho arrotolato il mio "\" e "/".

Nessun sigaro per brevità qui.

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

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

Il mio prng (da qui ) è sia grande che estremamente lento. Forse sarebbe sufficiente un LFSR più semplice o simile, ma funziona:

C, 39 caratteri (38 su MSVC)

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

Guardalo correre.

Su MSVC, possiamo sostituire putchar()con _putch()e salvare un byte, ma non funziona in Ideone.

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

Lisp comune, 33

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

printha un valore di ritorno di 1, quindi se lo usi puoi semplicemente racchiudere l'intera espressione in while:

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

Probabilmente puoi anche giocare a golf.

rubino, 27 23 caratteri

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

$><< è "stampa su stdout".

C ++, 45 caratteri

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

Non avrei vinto alcun premio per mancanza, ma avevo già scritto questo quando ho sentito parlare del libro citato, quindi l'ho appena giocato a golf.

Il trucco putchar funziona anche in C ++, portandoti a 43, ma non puoi evitare di dichiarare il tipo restituito su main.

provo a creare usando lo stile CSS, ed è lavoro

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

questo codice php:

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

Lisp comune - 68

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

05AB1E , 7 byte

["/\"Ω?

Provalo 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

? '/,\'

Provalo online!

la ?invia l'indirizzo IP a destra oa sinistra, quindi o /o \è spinto prima della stampa con ,. Quando si esegue '/o \'nell'ordine sbagliato dopo la stampa, fa semplicemente le cose nella pila (divide o scambia), quindi inserisce un carattere irrilevante prima di ripetere.

Befunge, 12 9 8 7 byte

Modifica: James Holderness ha trovato una soluzione folle che utilizza invece tre virgolette.

?\","/"

Trabocca lo stack con molti caratteri in eccesso per ciascun simbolo, ma a chi importa quando puoi giocare a golf con quel 1 byte?

Vecchia versione

"/\"?>,#

(Nota lo spazio finale) Spazio finale apparentemente non necessario (grazie Mistah Figgins)

Provalo 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

Questo inizia a riempire la pila, con un simbolo in più per ogni simbolo stampato.

Non molto meglio Richiede php 5.5+ per la funzione di dereferenziazione dell'array.

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

Python, 68

Nella categoria "La mia lingua fa schifo in questo", abbiamo Python!

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

Grazie a Ivo per alcuni caratteri sulle importazioni e choice.

> <> , 14 byte

Speravo di poterlo limitare a un quadrato 3 * 3 ma non ci sono riuscito.

"/\
~x/
o</
 !

Puoi provarlo qui .

Cubix , 12 byte

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

Visualizza nell'interprete online!

Questo viene mappato alla seguente rete cubica:

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

Spiegazione

Impostare:

L'IP inizia a est verso il primo !. Questo è il comando 'skip if truthy', che è False quando non c'è nulla in pila, quindi nessun comando viene saltato. "/\"entra in modalità stringa e aggiunge questi due codici di caratteri allo stack. B!oè principalmente una no-op qui, invertendo solo lo stack.

L'IP ora ritorna al primo !. Tuttavia, ora ci sono numeri interi positivi nello stack, quindi il primo "viene ignorato. Questo significa che /non è più un personaggio, ma un mirror, che invia l'IP a nord nel loop principale.

Ciclo principale:

Il Dcomando è l'unica fonte di casualità in Cubix. Invia l'IP in una direzione casuale. Bloccando il Sud e l'Est con le frecce, ci assicuriamo che l'IP abbia una probabilità del 50% di dirigersi a Nord e una probabilità del 50% di dirigersi a Ovest.

Se si dirige verso ovest, lo stack è invertito. Se si dirige verso nord, viene stampato il carattere superiore.

Questo crea la sequenza casuale di barre, come desiderato.

PHP, 26 31 byte

otto tre byte più corti dei tuoi (senza spazi bianchi o parentesi graffe) ,
due byte più corti della soluzione di primo (senza tag) .

PHP 5.4.9 era la versione attuale nel dicembre 1012, quindi ...

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

richiede PHP 5.5 o successivo per l'indicizzazione letterale delle stringhe.

Corri con -ro provalo online .

SmileBASIC, 20 byte

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

PowerShell , 108 90 86 54 53 37 36 byte

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

Provalo online!

Java 8, 60 59 54 53 byte

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

-1 byte grazie a @BenjaminUrquhart sostituendolo printcon write, quindi '/'può essere 47.

Spiegazione:

Provalo online (timeout dopo 60 sec).

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

Risposta originale

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

-4 byte grazie a manatwork

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

-1 byte grazie a Conor O'Brien

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

Immagino che tu possa usare la ricorsione.

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

Immagino che tu possa usare la ricorsione.

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

...

tagliato un personaggio:

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

quindi rimuovere le parentesi graffe:

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

un altro trucco, con la stessa lunghezza:

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

Perl

Questo sembra divertente per me:

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

(Mi dispiace essere fuori argomento qui. So che questo non è PHP)

Powershell, 37 byte

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

sfortunatamente non sembrano esserci alias più brevi per Write-Host che non causino una nuova riga dopo ogni carattere.

Codice assembly x86 a 16 bit, 10 byte

Non ricordo se questo è finito nel libro.

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

Fissione , 12 byte

[#"\"R
W\"/"

Provalo online!

Perl 6 , 23 byte

loop {<\ />.pick.print}

• loop loop per sempre.
• <\ />è un elenco delle stringhe \e /.
• .pick seleziona casualmente una delle due stringhe.
• .print stampa quella stringa casuale.