Acabei de ter uma conversa "animada" com um colega de trabalho sobre a sucessão da seguinte declaração do BASIC:

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

É o título deste livro e simplesmente imprimirá uma sequência de /e \caracteres, alternando entre os dois aleatoriamente, resultando em um padrão semelhante a este:

(Imagem emprestada de http://www.flickr.com/photos/rndmcnlly/5058442151/sizes/o/in/photostream/ )

Sendo uma propensão ao PHP, imaginamos qual seria a maneira mais compacta de escrever a mesma coisa no PHP, e criamos o seguinte:

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

chr(47)é um /personagem e chr (92) é a \. Portanto, a afirmação echo chr(47 + 45 * rand(0,1));alternará aleatoriamente entre os dois, ad nauseum.

Em um idioma de sua escolha, escreva o programa ou função mais curto para gerar uma sequência aleatória infinita de \e /caracteres, em que cada caractere tem a mesma probabilidade de ser escolhido.

O gotooperador foi adicionado ao PHP a partir da versão 5.3.0 para que você pudesse usar o mesmo método usado no BASIC:

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

Como isso foi migrado para o codegolf ...

PHP 30 bytes

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

O Ðcaractere é 208 e o £caractere é 163.

Exemplo de uso (em uma caixa do Windows):

color 18 & php maze.php

Produz algo semelhante a:

Funciona melhor com uma fonte monoespaçada exatamente quadrada (aqui eu escolhi a fonte padrão do sistema 8x8). Para voltar à sua cor padrão, você pode digitar colornovamente sem nenhum parâmetro.

Mathematica 157 bytes

Na falta de PETSCII, rolei meus próprios "\" e "/".

Nenhum charuto por brevidade aqui.

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

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

Meu prng ( daqui ) é grande e extremamente lento. Talvez um LFSR mais simples ou similar seja suficiente, mas isso funciona:

C, 39 caracteres (38 em MSVC)

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

Veja-o correr.

Em MSVC, podemos substituir putchar()com _putch()e salvar um byte, mas ele não funciona em IDEOne.

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

Lisp comum, 33

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

printtem um valor de retorno 1, portanto, se você usar isso, poderá apenas envolver toda a expressão no while:

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

Você provavelmente também pode jogar golfe.

rubi, 27 23 caracteres

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

$><< é 'print to stdout'.

C ++, 45 caracteres

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

Não vou ganhar nenhum prêmio por falta, mas eu já tinha escrito isso quando soube do livro mencionado, então apenas joguei no golfe.

O truque putchar também funciona em C ++, diminuindo para 43, mas você não pode evitar declarar o tipo de retorno em main.

eu tento criar usando o estilo css, e é trabalho

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

este código php:

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

Lisp comum - 68

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

05AB1E , 7 bytes

["/\"Ω?

Experimente 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

? '/,\'

Experimente online!

o ?envia o IP a esquerda ou direita, por isso ou /ou \é empurrado antes de imprimir com ,. Ao executar o '/ou \'na ordem errada após a impressão, ele faz as coisas na pilha (divide ou troca) e, em seguida, envia um caracter irrelevante antes de repetir.

Befunge, 12 9 8 7 Bytes

Editar: James Holderness descobriu uma solução insana que usa três citações.

?\","/"

Transborda a pilha com muitos caracteres em excesso para cada símbolo, mas quem se importa quando você pode jogar golfe com 1 byte?

Versão antiga

"/\"?>,#

(Observe o espaço à direita) direita aparentemente não necessário (obrigado Mistah Figgins)

Experimente 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

Isso começa a encher a pilha, com um símbolo extra para cada símbolo impresso.

Não muito melhor. Precisa do php 5.5+ para o recurso de desreferenciamento de array.

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

Python, 68

Na categoria "minha linguagem é péssima nessa", temos o Python!

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

Agradecimentos a Ivo por alguns caracteres sobre importações e choice.

> <> , 14 bytes

Eu esperava poder restringi-lo a um quadrado 3 * 3, mas não obtive sucesso.

"/\
~x/
o</
 !

Você pode tentar aqui .

Cubix , 12 bytes

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

Veja no intérprete online!

Isso mapeia a seguinte rede de cubos:

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

Explicação

Configuração:

O IP começa a ir para o leste no primeiro !. Este é o comando 'skip if truthy', que é False quando não há nada na pilha; portanto, nenhum comando é ignorado. "/\"insere stringmode e anexa esses dois códigos de caracteres à pilha.B!oé principalmente um no-op aqui, apenas revertendo a pilha.

O IP agora volta ao primeiro !. No entanto, agora existem números inteiros positivos na pilha, portanto o primeiro "é ignorado. Isso significa que /não é mais um personagem, mas um espelho, enviando o IP para o norte no loop principal.

Loop principal:

O Dcomando é a única fonte de aleatoriedade no Cubix. Ele envia o IP em uma direção aleatória. Ao bloquear o sul e o leste com flechas, garantimos que o IP tenha 50% de chance de ir para o norte e 50% de chance de ir para o oeste.

Se seguir para oeste, a pilha será revertida. Se seguir para o norte, o caractere superior será impresso.

Isso cria a sequência aleatória de barras, conforme desejado.

PHP, 26 31 bytes

oito três bytes mais curtos que o seu (sem espaços em branco ou chaves) ,
dois bytes mais curtos que a solução do primo (sem a tag) .

O PHP 5.4.9 era a versão atual em dezembro de 1012, então ...

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

requer PHP 5.5 ou posterior para indexação literal de strings.

Corra com -rou experimente online .

SmileBASIC, 20 bytes

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

PowerShell , 108 90 86 54 53 37 36 bytes

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

Experimente online!

Java 8, 60 59 54 53 bytes

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

-1 byte graças a @BenjaminUrquhart substituindo printpor write, então '/'pode ser47 .

Explicação:

Experimente online (o tempo limite termina após 60 s).

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 bytes

Resposta original

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

-4 bytes graças ao manatwork

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

-1 byte graças a Conor O'Brien

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

Eu acho que você pode usar recursão.

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

Eu acho que você pode usar recursão.

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

...

cortou um caractere:

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

em seguida, remova as chaves:

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

outro truque, com o mesmo comprimento:

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

Perl

Este parece engraçado para mim:

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

(Desculpe por estar fora de assunto aqui. Eu sei que isso não é PHP)

PowerShell, 37 bytes

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

infelizmente, parece não haver aliases mais curtos para Write-Host que não causam uma nova linha após cada caractere.

Código de montagem x86 de 16 bits, 10 bytes

Não me lembro se este acabou no livro.

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

Fissão , 12 bytes

[#"\"R
W\"/"

Experimente online!

Perl 6 , 23 bytes

loop {<\ />.pick.print}

• loop laços para sempre.
• <\ />é uma lista das strings \e /.
• .pick escolhe uma das duas seqüências aleatoriamente.
• .print imprime essa sequência aleatória.