Je viens d'avoir une conversation «animée» avec un collègue sur la brièveté de la déclaration BASIC suivante:

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

C'est le titre de ce livre , et imprimera simplement une séquence de caractères /et \, alternant entre les deux au hasard, résultant en un motif similaire à ceci:

(Image empruntée à http://www.flickr.com/photos/rndmcnlly/5058442151/sizes/o/in/photostream/ )

Étant d'une propension PHP, nous nous sommes demandés quelle serait la manière la plus compacte d'écrire la même chose en PHP, et nous avons trouvé ceci:

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

chr(47)est un /caractère, et chr (92) est un \. La déclaration echo chr(47 + 45 * rand(0,1));alternera donc au hasard entre les deux, ad nauseum.

Dans la langue de votre choix, écrivez le programme ou la fonction la plus courte pour produire une séquence aléatoire infinie de caractères \et /, où chaque caractère a une probabilité égale d'être choisi.

L' gotoopérateur a été ajouté à PHP à partir de la version 5.3.0 afin que vous puissiez utiliser la même méthode que vous utiliseriez dans BASIC:

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

Depuis que cela a été migré vers codegolf ...

PHP 30 octets

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

Le Ðcaractère est 208 et le £caractère 163.

Exemple d'utilisation (sur une boîte Windows):

color 18 & php maze.php

Produit quelque chose de similaire à:

Cela fonctionne mieux avec une police monospace qui est exactement carrée (ici j'ai choisi la police système standard 8x8). Pour revenir à votre couleur par défaut, vous pouvez taper à colornouveau sans aucun paramètre.

Mathematica 157 octets

Faute de PETSCII, j'ai roulé mes propres "\" et "/".

Pas de cigare pour être bref ici.

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

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

Mon prng (d' ici ) est à la fois grand et extrêmement lent. Peut-être qu'un LFSR plus simple ou similaire suffirait, mais cela fonctionne:

C, 39 caractères (38 sur MSVC)

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

Voyez-le courir.

Sur MSVC, nous pouvons remplacer putchar()avec _putch()et enregistrer un octet, mais il ne fonctionne pas dans IDEOne.

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

Lisp commun, 33

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

printa une valeur de retour de 1, donc si vous utilisez cela, vous pouvez simplement envelopper l'expression entière dans while:

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

Vous pouvez probablement le jouer plus loin.

rubis, 27 23 caractères

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

$><< est 'print to stdout'.

C ++, 45 caractères

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

Je ne vais pas gagner de prix pour la brièveté, mais j'avais déjà écrit cela quand j'ai entendu parler du livre mentionné, alors je l'ai juste joué au golf.

L'astuce putchar fonctionne également en C ++, vous ramenant à 43, mais vous ne pouvez pas éviter de déclarer le type de retour sur main.

j'essaye de créer en utilisant le style css, et ça marche

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

ce code php:

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

Lisp commun - 68

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

05AB1E , 7 octets

["/\"Ω?

Essayez-le en ligne!

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

? '/,\'

Essayez-le en ligne!

le ?envoie l'IP à gauche ou à droite, donc soit /ou \est poussé avant d'imprimer avec ,. Lors de l'exécution de '/ou \'dans le mauvais ordre après l'impression, il fait juste des choses dans la pile (divise ou échange), puis pousse un caractère non pertinent avant de répéter.

Befunge, 12 9 8 7 octets

Edit: James Holderness a trouvé une solution folle qui utilise trois citations à la place.

?\","/"

Déborde la pile avec beaucoup de caractères en excès pour chaque symbole, mais peu importe quand vous pouvez jouer au golf sur cet octet?

Ancienne version

"/\"?>,#

(Notez l'espace de fin) L' espace de fin n'est apparemment pas nécessaire (merci Mistah Figgins)

Essayez-le en ligne

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

Cela commence à remplir la pile, avec un symbole supplémentaire pour chaque symbole imprimé.

Pas beaucoup mieux. Nécessite php 5.5+ pour la fonction de déréférencement de la baie.

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

Python, 68

Dans la catégorie "mon langage est nul", nous avons Python!

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

Merci à Ivo pour quelques caractères sur les importations et choice.

> <> , 14 octets

J'espérais pouvoir le limiter à un carré 3 * 3, mais je n'ai pas réussi.

"/\
~x/
o</
 !

Vous pouvez l'essayer ici .

Cubix , 12 octets

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

Voir dans l'interprète en ligne!

Cela correspond au réseau de cubes suivant:

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

Explication

Installer:

L'IP commence à se diriger vers l'est au premier !. Il s'agit de la commande «ignorer si vrai», qui est Faux lorsqu'il n'y a rien sur la pile, donc aucune commande n'est ignorée. "/\"entre en mode chaîne et ajoute ces deux codes de caractères à la pile. B!oest principalement un no-op ici, inversant seulement la pile.

L'IP revient maintenant en boucle au premier !. Cependant, il y a maintenant des entiers positifs sur la pile, donc le premier "est ignoré. Cela signifie que ce /n'est plus un personnage, mais un miroir, envoyant l'IP au nord dans la boucle principale.

Boucle principale:

La Dcommande est la seule source d'aléatoire dans Cubix. Il envoie l'IP dans une direction aléatoire. En bloquant le sud et l'est avec des flèches, nous nous assurons que l'IP a 50% de chances de se diriger vers le nord et 50% de chances de se diriger vers l'ouest.

S'il se dirige vers l'ouest, la pile est inversée. S'il se dirige vers le nord, le caractère supérieur est imprimé.

Cela crée la séquence aléatoire de barres obliques, comme vous le souhaitez.

PHP, 26 31 octets

huit trois octets plus court que le vôtre (sans espace ni accolades) ,
deux octets plus court que la solution de primo (sans la balise) .

PHP 5.4.9 était la version actuelle en décembre 1012, donc ...

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

nécessite PHP 5.5 ou version ultérieure pour l'indexation de chaînes littérales.

Courez avec -rou essayez-le en ligne .

SmileBASIC, 20 octets

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

PowerShell , 108 90 86 54 53 37 36 octets

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

Essayez-le en ligne!

Java 8, 60 59 54 53 octets

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

-1 octet grâce à @BenjaminUrquhart en remplaçant printpar write, '/'peut donc l' être 47.

Explication:

Essayez-le en ligne (expire après 60 secondes).

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 octets

Réponse originale

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

-4 octets grâce au manatwork

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

-1 octet grâce à Conor O'Brien

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

Je suppose que vous pouvez utiliser la récursivité.

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

Je suppose que vous pouvez utiliser la récursivité.

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

...

coupé un caractère:

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

puis retirez les accolades:

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

une autre astuce, de même longueur:

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

Perl

Celui-ci me semble drôle:

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

(Désolé d'être hors sujet ici. Je sais que ce n'est pas PHP)

Powershell, 37 octets

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

malheureusement, il ne semble pas y avoir d'alias plus courts pour Write-Host qui ne provoquent pas de nouvelle ligne après chaque caractère.

Code d'assemblage x86 16 bits, 10 octets

Je ne me souviens pas si celui-ci s'est retrouvé dans le livre.

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

Fission , 12 octets

[#"\"R
W\"/"

Essayez-le en ligne!

Perl 6 , 23 octets

loop {<\ />.pick.print}

• loop boucles pour toujours.
• <\ />est une liste des chaînes \et /.
• .pick choisit l'une des deux chaînes au hasard.
• .print imprime cette chaîne aléatoire.