Właśnie odbyłem „porywającą” rozmowę ze współpracownikiem na temat zwięzłości następującego oświadczenia BASIC:

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

Jest to tytuł tej książki i po prostu wydrukuje sekwencję znaków /i \, naprzemiennie między nimi, tworząc wzór podobny do tego:

(Zdjęcie pożyczone z http://www.flickr.com/photos/rndmcnlly/5058442151/sizes/o/in/photostream/ )

Będąc skłonnością do PHP, zastanawialiśmy się, jaki byłby najbardziej kompaktowy sposób pisania tego samego w PHP, i wymyśliliśmy:

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

chr(47)jest /postacią, a chr (92) to \. Tak więc oświadczenie echo chr(47 + 45 * rand(0,1));będzie losowo alternatywne między tymi dwoma, ad nauseum.

W wybranym języku napisz najkrótszy program lub funkcję, aby wygenerować nieskończoną losową sekwencję znaków \i /, przy czym każdy znak ma jednakowe prawdopodobieństwo wybrania.

gotoOperator został dodany do PHP od wersji 5.3.0, więc można używać tej samej metody, jak w podstawowy:

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

Od czasu migracji do codegolf ...

PHP 30 bajtów

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

Jest Ðto postać 208, a £jest to postać 163.

Przykładowe użycie (w systemie Windows):

color 18 & php maze.php

Tworzy coś podobnego do:

Najlepiej działa z czcionką o stałej szerokości, która jest dokładnie kwadratowa (tutaj wybrałem standardową czcionkę systemową 8x8). Aby wrócić do domyślnego koloru, możesz pisać colorponownie bez żadnych parametrów.

Mathematica 157 bajtów

Nie mając PETSCII, zwinąłem własne „\” i „/”.

Tutaj nie ma cygara za zwięzłość.

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

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

Mój prng ( stąd ) jest zarówno duży, jak i bardzo wolny. Być może wystarczyłby prostszy LFSR lub podobny, ale to działa:

C, 39 znaków (38 na MSVC)

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

Zobacz, jak działa.

Na MSVC możemy wymienić putchar()ze _putch()i zapisać bajt, ale to nie działa w IDEOne.

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

Common Lisp, 33

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

printma wartość zwracaną 1, więc jeśli użyjesz tego, możesz po prostu zawinąć całe wyrażenie w while:

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

Prawdopodobnie możesz też zagrać w golfa dalej.

rubin, 27 23 znaków

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

$><< to „print to stdout”.

C ++, 45 znaków

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

Nie zamierzam wygrać żadnych nagród za zwięzłość, ale napisałem to już, kiedy usłyszałem o wspomnianej książce, więc po prostu grałem w nią.

Sztuczka putchar działa również w C ++, co prowadzi do obniżenia do 43, ale nie można uniknąć zadeklarowania typu zwrotu na main.

próbuję tworzyć w stylu css i to działa

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

ten kod 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 bajtów

["/\"Ω?

Wypróbuj 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 bajtów

? '/,\'

Wypróbuj online!

?wysyła IP albo w lewo lub prawo, więc albo /czy \jest wciśnięty przed drukowania ,. Wykonując '/lub \'w niewłaściwej kolejności po wydrukowaniu, po prostu robi rzeczy na stosie (dzieli lub zamienia), a następnie wypycha nieistotny znak przed powtórzeniem.

Befunge, 12 9 8 7 bajtów

Edytować: James Holderness wymyślił szalone rozwiązanie, które zamiast tego wykorzystuje trzy cytaty.

?\","/"

Przepełnia stos z dużą ilością nadmiarowych znaków dla każdego symbolu, ale kogo to obchodzi, kiedy możesz zagrać w ten 1 bajt?

Stara wersja

"/\"?>,#

(Zwróć uwagę na spację końcową) Spacja spacji najwyraźniej nie jest potrzebna (dzięki Mistah Figgins)

Wypróbuj 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

To zaczyna wypełniać stos, z jednym dodatkowym symbolem dla każdego wydrukowanego symbolu.

Niewiele lepiej. Potrzebuje php 5.5+ dla funkcji dereferencji macierzowej.

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

Python, 68

W kategorii „mój język jest do bani” mamy Python!

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

Dzięki Ivo za kilka znaków na temat importu i choice.

> <> , 14 bajtów

Miałem nadzieję, że uda mi się ograniczyć do kwadratu 3 * 3, ale mi się nie udało.

"/\
~x/
o</
 !

Możesz spróbować tutaj .

Cubix , 12 bajtów

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

Zobacz w tłumaczu online!

Odwzorowuje to na następującą sieć kostek:

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

Wyjaśnienie

Ustawiać:

WI zaczyna się od wschodu !. Jest to polecenie „pomiń, jeśli jest prawdą”, które jest fałszem, gdy nic nie ma na stosie, więc żadne polecenia nie są pomijane."/\"wchodzi w tryb string i dołącza te dwa kody znaków do stosu. B!ojest tu w większości nie-op, tylko odwraca stos.

IP powraca teraz do pierwszego !. Jednak na stosie są teraz dodatnie liczby całkowite, więc pierwsza "jest pomijana. Oznacza to, że /nie jest już postacią, ale lustrem, wysyłającym adres IP na północ do głównej pętli.

Główna pętla:

The DKomenda jest źródłem tylko przypadkowości w Cubix. Wysyła adres IP w losowym kierunku. Blokując strzały na południe i wschód, upewniamy się, że IP ma 50% szansy na skierowanie się na północ i 50% szansy na skierowanie się na zachód.

Jeśli kieruje się na zachód, stos jest odwracany. Jeśli leci na północ, drukowana jest górna postać.

Spowoduje to utworzenie losowej sekwencji ukośników, zgodnie z potrzebami.

PHP, 26 31 bajtów

osiem trzech bajtów krótszych niż twój (bez spacji i nawiasów klamrowych) ,
dwa bajty krótsze niż rozwiązanie primo (bez znacznika) .

PHP 5.4.9 była aktualną wersją w grudniu 1012, więc ...

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

wymaga PHP 5.5 lub nowszego do dosłownego indeksowania ciągów.

Uruchom -rlub wypróbuj online .

SmileBASIC, 20 bajtów

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

PowerShell , 108 90 86 54 53 37 36 bajtów

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

Wypróbuj online!

Java 8, 60 59 54 53 bytes

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

-1 byte thanks to @BenjaminUrquhart by replacing print with write, so '/' can be 47.

Explanation:

Try it online (times out after 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 bytes

Original Answer

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

-4 bytes thanks to manatwork

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

-1 byte thanks to Conor O'Brien

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

I guess you can use recursion.

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

I guess you can use recursion.

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

...

chopped off one character:

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

then remove the curly braces:

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

another trick, with the same length:

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

Perl

This one looks funny for me :

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

(Sorry to be out of subject here. I know this is not PHP)

Powershell, 37 bytes

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

unfortunately there seem to be no shorter aliases for Write-Host that don't cause a new line after every char.

16-bit x86 assembly code, 10 bytes

I don't remember if this one ended up in the book.

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 bytes

[#"\"R
W\"/"

Try it online!

Perl 6, 23 bytes

loop {<\ />.pick.print}

• loop loops forever.
• <\ /> is a list of the strings \ and /.
• .pick picks one of the two strings randomly.
• .print prints that random string.