Только что имел «энергичный» разговор с сотрудником о краткости следующего основного заявления:

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) является \. Таким образом, утверждение echo chr(47 + 45 * rand(0,1));будет случайным выбором между ними, до тошноты.

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

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снова без каких-либо параметров.

Mathematica 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 или подобного было бы достаточно, но это работает:

С, 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]}

$><< это «печать на стандартный вывод».

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

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

Я не собираюсь выигрывать награды за краткость, но я уже написал это, когда услышал об упомянутой книге, поэтому я просто играл в гольф.

Трюк с путчаром также работает в C ++, сокращая до 43, но вы не можете не объявлять тип возвращаемого значения в main.

я пытаюсь создать, используя стиль CSS, и это работает

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

этот код 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 байтов

["/\"Ω?

Попробуйте онлайн!

["/\"Ω?  - 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)]; }

Python, 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
. . . . . . . .
    . .
    . .

объяснение

Настроить:

IP начинает идти на восток с самого начала !. Это команда «пропустить, если правдиво», которая равна False, когда в стеке ничего нет, поэтому команды не пропускаются. "/\"вводит строковый режим и добавляет эти два символьных кода в стек. B!oздесь в основном нет, только переворачивая стек.

IP теперь возвращается к первому !. Однако теперь в стеке положительные целые числа, поэтому первое "пропускается. Это означает, что /это уже не символ, а зеркало, отправляющее IP на север в основной цикл.

Основной цикл:

Команда Dявляется единственным источником случайности в Cubix. Он отправляет IP в случайном направлении. Заблокировав стрелками юг и восток, мы обеспечиваем 50-процентную вероятность движения на север и 50-процентную вероятность движения на запад.

Если это возглавляет Запад, стек полностью изменен. Если он направляется на север, печатается верхний символ.

Это создает случайную последовательность косых черт, по желанию.

PHP, 26 31 байт

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

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 байт благодаря Конору О'Брайену

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 печатает эту случайную строку.