Viết chương trình hoặc hàm nhận số nguyên dương N (thông qua stdin / dòng lệnh / hàm arg) và in hoặc trả về một chuỗi đại diện của bước đi ngẫu nhiên hai chiều dài N bước, rút ​​ra từ dấu gạch chéo: / \(cộng với dấu cách và dòng mới cho khoảng cách).

Bước đi ngẫu nhiên 2D bắt đầu từ gốc của một mạng nguyên vô hạn . Sau đó N lần lặp lại, một hướng hồng y (lên, xuống, trái, phải) được chọn thống nhất một cách ngẫu nhiên và người đi bộ di chuyển một đơn vị theo hướng đó. Con đường kết quả được thực hiện là đi bộ ngẫu nhiên.

Đây là một bước đi ngẫu nhiên cho N = 6. Lưu ý rằng nó di chuyển trở lại chính nó khi nó đạt (-1, 3).

Để vẽ điều này bằng dấu gạch chéo, về cơ bản chúng ta cần xoay toàn bộ vật 45 ° theo chiều kim đồng hồ. Các trục và điểm bắt đầu và điểm kết thúc không được vẽ trong phiên bản gạch chéo.

/
\
 \
 /\

Một cuộc đi bộ phức tạp hơn như thế này (N = 20, mặc dù không có cách nào để nói):

Sẽ trở thành thế này:

     /
/\/ /\
\/\/
/\/
\/

Chương trình của bạn cần tạo ra các loại phiên bản gạch chéo của các bước đi ngẫu nhiên. Bạn phải chọn ngẫu nhiên mỗi hướng đi mới, vì vậy mỗi lần chạy chương trình cho một N nhất định sẽ gần như chắc chắn tạo ra một bước đi khác nhau. (Pseudorandomness là tốt.)

Không bao giờ có bất kỳ dòng trống nào bên trên hoặc bên dưới các dấu gạch chéo thấp nhất và cao nhất (ngoại trừ một dòng mới theo dõi tùy chọn) và không bao giờ nên có các cột trống của khoảng trắng trước hoặc sau dấu gạch chéo ngoài cùng và bên phải.

Vì vậy, với N = 1, đầu ra luôn luôn /hoặc \, nhưng không bao giờ giống như:

   
 / 

Không gian lưu trữ được cho phép miễn là chúng không đi qua cột của dấu gạch chéo ngoài cùng bên phải.

Việc gửi với ít byte nhất sẽ thắng. Đây là một bộ đếm byte tiện dụng.

Bình thường, 74 byte

K0VQJO2=GO2 XH,-ZJ-KG@"\/"xJG-=ZtyJ-=KtyG;=YmrhSdheSdCHjbclhYsmh@XkH\ k.xY

Một bản dịch thậm chí còn tối ưu hơn cho câu trả lời của Uri Zarfaty.

Con trăn 2 300 285 257 246 236 byte

Một cái gì đó để khởi động mọi thứ. Nó có thể thu nhỏ điều này xuống hơn nữa. Cảm ơn @Maltysen đã cạo 10 byte.

from random import*
N=input()
x=y=0;G={}
exec'n=randrange(4);l=n<2;u=n&1;G[(x-l,y-u)]="\\/"[l^u];x-=2*l-1;y-=2*u-1;'*N
f=lambda i:range(min(x[i]for x in G),max(x[i]for x in G)+1)
for i in f(0):print"".join(G.get((i,j)," ")for j in f(1))

Tạo đầu ra đi bộ vào một từ điển G gồm các bộ dữ liệu đã truy cập (x, y), cập nhật vị trí của chúng tôi khi chúng tôi đi. Mỗi bước n ngẫu nhiên là cả u / d (u) và l / r (l).

PHP 5,5 - 209 byte

<?for(;$X[]=$x+=1-2*$l,$Y[]=$y+=1-2*$u,$i++<$argv[1];){$m[$y-$u=$n&1][$x-$l=($n=rand(0,3))<2]='\\/'[$u^$l];}for($y=min($Y);$y<max($Y);$y++){for($x=min($X);$x<max($X);$x++)$s.=$m[$y][$x]?:' ';$s.="\n";}echo$s;

Ung dung:

<?
for (; $X[] = $x += 1 - 2 * $l, $Y[] = $y += 1 - 2 * $u, $i++ < $argv[1];) {
    $m[$y - $u = $n & 1][$x - $l = ($n = rand(0, 3)) < 2] = '\\/'[$u ^ $l];
}
for ($y = min($Y); $y < max($Y); $y++) {
    for ($x = min($X); $x < max($X); $x++) {
        $s .= $m[$y][$x] ? : ' ';
    }
    $s .= "\n";
}
echo $s;

Bắt đầu làm việc với một câu trả lời PHP từ đầu, nhưng mã cuối cùng quá giống với công việc của @Uri Zarfaty nên tôi thực sự không đủ can đảm để đăng nó. Kết thúc porting cho biết câu trả lời với một vài sửa đổi thay thế. Đẩy các giá trị x / y vào $Xvà $Ymảng để xác định min / max trong vòng lặp đầu ra.

Sử dụng:

php golf.php 200

Bình - 89

Đây về cơ bản là một bản dịch về câu trả lời của Uri Zarfaty, mặc dù tôi đã thực hiện một số tối ưu hóa.

KZVQJO4=G<J2=b.&J1 XH,-KG-Zb@"\\/".|Gb-=KtyG-=Ztyb)LrhSm@dbHheSm@kbHFNy0jkm?@H,Nb},NbHdy1

Giải thích đến sớm.

Hãy thử nó ở đây .