Vừa có một cuộc trò chuyện 'sôi nổi' với một đồng nghiệp về sự cô đọng của tuyên bố BASIC sau đây:

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

Đó là tiêu đề của cuốn sách này , và sẽ chỉ in một chuỗi các ký tự /và \ký tự, xen kẽ giữa hai cuốn sách một cách ngẫu nhiên, dẫn đến một mô hình tương tự như sau:

(Hình ảnh mượn từ http://www.flickr.com/photos/rndmcnlly/5058442151/sizes/o/in/photostream/ )

Là một người thông thạo PHP, chúng tôi đã tự hỏi cách viết gọn nhất của điều tương tự trong PHP sẽ là gì và đã đưa ra điều này:

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

chr(47)là một /nhân vật, và chr (92) là a \. Vì vậy, tuyên bố echo chr(47 + 45 * rand(0,1));sẽ thay thế ngẫu nhiên giữa hai, quảng cáo.

Trong ngôn ngữ bạn chọn, hãy viết chương trình hoặc hàm ngắn nhất để đưa ra một chuỗi ký tự \và /ký tự ngẫu nhiên vô hạn , trong đó mỗi ký tự có xác suất được chọn bằng nhau.

Các gotonhà điều hành đã được thêm vào PHP từ phiên bản 5.3.0, do đó bạn có thể sử dụng cùng một phương pháp như bạn làm trong BASIC:

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

Vì điều này đã được di chuyển sang codegolf ...

PHP 30 byte

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

Các Ðlà nhân vật 208, và £là nhân vật 163.

Sử dụng mẫu (trên hộp Windows):

color 18 & php maze.php

Sản xuất một cái gì đó tương tự như:

Nó hoạt động tốt nhất với phông chữ đơn cách chính xác là hình vuông (ở đây tôi đã chọn phông chữ hệ thống tiêu chuẩn 8x8). Để quay lại màu mặc định của bạn, bạn có thể nhập colorlại mà không có bất kỳ tham số nào.

Toán học 157 byte

Thiếu PETSCII, tôi tự lăn "\" và "/".

Không có xì gà cho ngắn gọn ở đây.

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 của tôi (từ đây ) vừa lớn vừa cực kỳ chậm. Có lẽ một LFSR đơn giản hơn hoặc tương tự sẽ đủ, nhưng điều này hoạt động:

C, 39 ký tự (38 trên MSVC)

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

Thấy nó chạy.

Trên MSVC, chúng ta có thể thay thế putchar()với _putch()và tiết kiệm một byte, nhưng nó không hoạt động trong IDEOne.

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

Lisp thường gặp, 33

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

printcó giá trị trả về là 1, vì vậy nếu bạn sử dụng, bạn chỉ có thể gói toàn bộ biểu thức trong while:

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

Bạn có thể có thể chơi golf hơn nữa.

hồng ngọc, 27 23 ký tự

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

$><< là 'in ra thiết bị xuất chuẩn'.

C ++, 45 ký tự

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

Sẽ không giành được bất kỳ giải thưởng nào cho sự ngắn gọn, nhưng tôi đã viết nó khi tôi nghe về cuốn sách được đề cập, vì vậy tôi chỉ đánh golf nó.

Thủ thuật putar cũng hoạt động trong C ++, giúp bạn giảm xuống còn 43, nhưng bạn không thể tránh việc khai báo kiểu trả về trên chính.

tôi thử tạo bằng cách sử dụng kiểu css và nó hoạt động

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

mã php này:

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

Lisp thường gặp - 68

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

05AB1E , 7 byte

["/\"Ω?

Hãy thử trực tuyến!

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

? '/,\'

Hãy thử trực tuyến!

các ?gửi IP hoặc sang trái hoặc phải, vì vậy một trong hai /hoặc \bị đẩy trước khi in với ,. Khi thực hiện '/hoặc \'theo thứ tự sai sau khi in, nó chỉ thực hiện mọi thứ với ngăn xếp (chia hoặc hoán đổi), và sau đó đẩy một ký tự không liên quan trước khi lặp lại.

Befunge, 12 9 8 7 byte

Chỉnh sửa: James Holdiness đã tìm ra một giải pháp điên rồ sử dụng ba trích dẫn thay thế.

?\","/"

Tràn đầy ngăn xếp với rất nhiều ký tự thừa cho mỗi ký hiệu, nhưng ai quan tâm khi bạn có thể chơi golf 1 byte đó?

Phiên bản cũ

"/\"?>,#

(Lưu ý không gian dấu) Không gian lưu trữ rõ ràng là không cần thiết (cảm ơn Mistah Figgins)

Dùng thử trực tuyến

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

Điều này không bắt đầu để lấp đầy ngăn xếp, với một biểu tượng thêm cho mỗi biểu tượng được in.

Không tốt hơn. Cần php 5.5+ cho tính năng hội nghị mảng.

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

Con trăn, 68

Trong danh mục "ngôn ngữ của tôi hút ở đây", chúng tôi đã có Python!

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

Cảm ơn Ivo cho một vài ký tự về nhập khẩu và choice.

> <> , 14 byte

Tôi đã hy vọng tôi có thể giới hạn nó ở một hình vuông 3 * 3 nhưng không thành công.

"/\
~x/
o</
 !

Bạn có thể thử nó ở đây .

Hình khối , 12 byte

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

Xem trong phiên dịch trực tuyến!

Điều này ánh xạ ra mạng lưới khối sau:

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

Giải trình

Thiết lập:

IP bắt đầu đi về phía đông lúc đầu !. Đây là lệnh 'bỏ qua nếu trung thực', sai khi không có gì trên ngăn xếp, vì vậy không có lệnh nào bị bỏ qua. "/\"nhập chuỗi mã và nối hai mã ký tự này vào ngăn xếp. B!ochủ yếu là không có ở đây, chỉ đảo ngược ngăn xếp.

IP bây giờ lặp lại xung quanh đầu tiên !. Tuy nhiên, hiện có các số nguyên dương trên stack, vì vậy đầu tiên "được bỏ qua. Điều này có nghĩa /không còn là một ký tự, mà là một tấm gương, gửi IP về phía bắc vào vòng lặp chính.

Vòng lặp chính:

Các Dlệnh là nguồn gốc duy nhất của ngẫu nhiên trong Cubix. Nó gửi IP theo hướng ngẫu nhiên. Bằng cách chặn Nam và Đông bằng mũi tên, chúng tôi đảm bảo IP có 50% cơ hội hướng về phía Bắc và 50% cơ hội đi về phía Tây.

Nếu nó đi về hướng Tây, ngăn xếp bị đảo ngược. Nếu nó đi về hướng Bắc, ký tự trên cùng được in.

Điều này tạo ra chuỗi ngẫu nhiên của dấu gạch chéo, như mong muốn.

PHP, 26 31 byte

tám ba byte ngắn hơn của bạn (không có khoảng trắng hoặc dấu ngoặc) ,
ngắn hơn hai byte so với giải pháp primo (không có thẻ) .

PHP 5.4.9 là phiên bản hiện tại vào tháng 12 năm 1012, vì vậy ...

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

yêu cầu PHP 5.5 trở lên để lập chỉ mục chuỗi bằng chữ.

Chạy với -rhoặc thử trực tuyến .

SmileBASIC, 20 byte

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

PowerShell , 108 90 86 54 53 37 36 byte

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

Hãy thử trực tuyến!

Java 8, 60 59 54 53 byte

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

-1 byte nhờ @BenjaminUrquhart bằng cách thay thế printbằng write, vì vậy '/'có thể 47.

Giải trình:

Dùng thử trực tuyến (thời gian chờ sau 60 giây).

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 byte

Câu trả lời gốc

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

-4 byte nhờ thao tác

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

-1 byte nhờ Conor O'Brien

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

Tôi đoán bạn có thể sử dụng đệ quy.

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

Tôi đoán bạn có thể sử dụng đệ quy.

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

...

băm nhỏ một nhân vật:

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

sau đó loại bỏ các dấu ngoặc nhọn:

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

một mẹo khác, có cùng độ dài:

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

Perl

Điều này có vẻ buồn cười đối với tôi:

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

(Xin lỗi vì đã hết chủ đề ở đây. Tôi biết đây không phải là PHP)

Powershell, 37 byte

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

thật không may, dường như không có bí danh nào ngắn hơn cho Write-Host mà không gây ra một dòng mới sau mỗi char.

Mã lắp ráp x86 16 bit, 10 byte

Tôi không nhớ nếu cái này kết thúc trong cuốn sách.

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

Phân hạch , 12 byte

[#"\"R
W\"/"

Hãy thử trực tuyến!

Perl 6 , 23 byte

loop {<\ />.pick.print}

• loop vòng lặp mãi mãi.
• <\ />là một danh sách các chuỗi \và /.
• .pick chọn một trong hai chuỗi ngẫu nhiên.
• .print in chuỗi ngẫu nhiên đó.