Щойно відбулася "жвава" розмова з колегою про кратність наступного твердження BASIC:

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

Це заголовок цієї книги , і вона просто надрукує послідовність символів /та \символів, чергуючи їх двома випадковим чином, у результаті виходить візерунок, подібний до цього:

(Зображення запозичене з http://www.flickr.com/photos/rndmcnlly/5058442151/sizes/o/in/photostream/ )

Будучи сприятливим для PHP, ми поцікавились, яким був би най компактніший спосіб написання тієї ж речі в PHP, і придумали таке:

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

chr(47)- /характер, а chr (92) - a \. Тож заява echo chr(47 + 45 * rand(0,1));буде випадково альтернативою між ними, ad nauseum.

Мовою, яку ви обрали, напишіть найкоротшу програму або функцію для виведення нескінченної випадкової послідовності \та /символів, де кожен символ має рівну ймовірність бути обраним.

gotoОператор був доданий в PHP з версії 5.3.0 , так що ви можете використовувати той же метод , як ви б в BASIC:

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

Оскільки це було перенесено на codegolf ...

PHP 30 байт

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

ÐЦе символ 208, і £це символ 163.

Зразок використання (у вікні Windows):

color 18 & php maze.php

Виробляє щось подібне до:

Найкраще він працює з одношаровим шрифтом, який є точно квадратним (тут я вибрав стандартний шрифт системи 8x8). Щоб повернутися до вашого кольору за замовчуванням, ви можете вводити colorзнову без будь-яких параметрів.

Математика 157 байт

Не маючи PETSCII, я прокатав власні "\" та "/".

Тут немає сигари для стислості.

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

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

Мій prng ( звідси ) і великий, і надзвичайно повільний. Можливо, вистачить більш простого LFSR або подібного, але це працює:

C, 39 знаків (38 на MSVC)

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

Дивіться, як це працює.

На MSVC, ми можемо замінити putchar()з _putch()і зберегти байт, але він не працює в IDEOne.

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

Common Lisp, 33

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

printмає повернене значення 1, тому якщо ви використовуєте, ви можете просто загортати весь вираз у while:

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

Ви можете, ймовірно, ще й гольфу.

рубін, 27 23 ч

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

$><< "друк на stdout".

C ++, 45 символів

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

Не збираюсь вигравати жодної нагороди за короткий час, але я вже писав це, коли чув про згадану книгу, тож я просто пограв у неї.

Трюк "путчар" також працює в C ++, приводячи вас до 43, але ви не можете уникнути оголошення типу повернення основним.

Я намагаюся створити, використовуючи стиль css, і це робота

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

цей код:

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

Лист звичайний - 68

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

05AB1E , 7 байт

["/\"Ω?

Спробуйте в Інтернеті!

["/\"Ω?  - 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 байт

? '/,\'

Спробуйте в Інтернеті!

?посилає IP або вліво або вправо, так що або /або \виштовхується перед друком з ,. Після виконання друку '/або \'в неправильному порядку після друку він просто виконує завдання до стеку (ділить або міняє місцями), а потім надсилає неактуальний символ перед повторенням.

Befunge, 12 9 8 7 байт

Редагувати: Джеймс Холдернес придумав божевільне рішення, яке замість цього використовує три лапки.

?\","/"

Переповнює стек з великою кількістю зайвих символів для кожного символу, але кого турбує, коли ти можеш переграти 1 байт?

Стара версія

"/\"?>,#

(Зверніть увагу на пробіл). Місце для очей, очевидно, не потрібно (дякую Міста Фіггінс)

Спробуйте це в Інтернеті

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

Це починає заповнювати стек з одним додатковим символом для кожного надрукованого символу.

Не набагато краще. Потрібно php 5.5+ для функції перенаправлення масиву.

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

Пітона, 68

У категорії "моя мова гасить у цьому" ми отримали Python!

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

Дякую Іву за кілька символів щодо імпорту та choice.

> <> , 14 байт

Я сподівався, що зможу обмежити його площею 3 * 3, але не вдалося.

"/\
~x/
o</
 !

Ви можете спробувати тут .

Cubix , 12 байт

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

Переглянути в онлайн-перекладачі!

Це відображає на наступну кубичну сітку:

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

Пояснення

Налаштування:

ІС починає прямувати на схід спочатку !. Це команда "пропустити, якщо truthy", яка помилкова, коли в стеці нічого немає, тому жодні команди не пропускаються. "/\"вводить stringmode і додає ці два коди символів до стеку. B!oв основному немає опції тут, лише обертаючи стек.

IP-адреса зараз обертається навколо першого !. Однак зараз у стеку є додатні цілі числа, тому перше "пропускається. Це означає, що /це вже не персонаж, а дзеркало, що посилає IP на північ в основний цикл.

Основна петля:

DКоманда є єдиним джерелом випадковості в Cubix. Він посилає IP у випадковому напрямку. Блокуючи стрілки Південь та Схід, ми переконуємось, що IP має 50% шансів направитись на північ та 50% шансом рушити на Захід.

Якщо він прямує на Захід, стек перевертається. Якщо він рухається на північ, друкується верхній символ.

Це створює випадкову послідовність косої риси, як бажано.

PHP, 26 31 байт

вісім три байти коротше, ніж у вас (без пробілів чи дужок) ,
два байти коротше рішення примо (без позначки) .

PHP 5.4.9 була поточною версією в грудні 1012 року, тому ...

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

потрібно PHP 5.5 або пізнішої версії для буквальної індексації рядків.

Запустіть -rабо спробуйте в Інтернеті .

SmileBASIC, 20 байт

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

PowerShell , 108 90 86 54 53 37 36 байт

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

Спробуйте в Інтернеті!

Java 8, 60 59 54 53 байт

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

-1 байт завдяки @BenjaminUrquhart заміною printна write, так '/'може бути 47.

Пояснення:

Спробуйте в Інтернеті (тайм-аут через 60 сек).

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 байт

Оригінальний відповідь

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

-4 байти завдяки маневреній роботі

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

-1 байт завдяки Conor O'Brien

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

Я думаю, ви можете використовувати рекурсію.

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

Я думаю, ви можете використовувати рекурсію.

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

...

відрізаний один символ:

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

потім зніміть фігурні брекети:

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

ще одна хитрість, з тією ж довжиною:

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

Perl

Це виглядає для мене смішно:

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

(Вибачте, що тут немає теми. Я знаю, що це не PHP)

Powershell, 37 байт

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

на жаль, схоже, немає коротших псевдонімів Write-Host, які не спричиняють новий рядок після кожної позначки.

16-бітний код складання x86, 10 байт

Я не пам’ятаю, чи потрапив цей у книгу.

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

Ділення , 12 байт

[#"\"R
W\"/"

Спробуйте в Інтернеті!

Perl 6 , 23 байти

loop {<\ />.pick.print}

• loop петлі назавжди.
• <\ />- це список рядків \і /.
• .pick вибирає одну з двох рядків випадковим чином.
• .print друкує цей випадковий рядок.