Viết chương trình ngắn nhất có thể vẽ một dòng Bresenham trong nghệ thuật ASCII. Chương trình của bạn nên lấy hai số nguyên xvà y(dòng lệnh hoặc stdin, lựa chọn của bạn) và vẽ một dòng ASCII bắt đầu ở phía trên bên trái và đi xđơn vị bên phải và yđơn vị xuống . Bạn phải sử dụng _và \ký tự và đặt chúng vào đúng vị trí theo thuật toán của Bresenham .

Bạn có thể giả sử x >= y, vì vậy không có phân đoạn dọc được yêu cầu.

Lưu ý rằng vì bạn đang sử dụng _ký tự, cho một dòng với y=3bạn có thể sẽ cần xuất 4 dòng văn bản (và bạn có thể phát ra một dòng trống hàng đầu khi không cần thiết).

ví dụ:

11 3
_
 \___
     \___
         \_
11 1
_____
     \_____

5 4

\
 \_
   \
    \

Đối với các điểm chính xác là một nửa, bạn có thể chọn làm tròn:

10 1
____
    \_____
or
_____
     \____

Perl, 74

/ /;print int(.5+$_*$'/$`)>int(.5+--$_*$'/$`)?$/.$"x$_.'\\':'_'for 1..$`

Chạy với -ntùy chọn (tính theo kích thước mã).

$ perl -n bresenham.pl <<<'11 3'
_
 \___
     \___
         \_
$ perl -n bresenham.pl <<<'11 1'
_____
     \_____
$ perl -n bresenham.pl <<<'5 4'

\
 \_
   \
    \
$ perl -n bresenham.pl <<<'10 1'
____
    \_____

C 136 123 Ký tự

z,x,y,i,f;main(){for(scanf("%d%d",&x,&y);i<=x;i++){f=f?printf("_"):1;z+=y;if(2*z>=x&&i<x)f=0,z-=x,printf("\n%*c",i+1,92);}}

Dephi, 109

Khá nhỏ nếu bạn hỏi tôi:

var x,y,i:Word;begin Read(x,y);for i:=1to(x)do if(i*y+x div 2)mod x<y then Write(^J,'\':i)else Write('_')end.

2 số nguyên được đọc từ dòng lệnh.

Dòng mới được viết bởi ^Jcú pháp hiếm khi được sử dụng (có nghĩa là LineFeed), \ký tự ' ' sau đây được thụt lề bằng cú pháp ít được biết đến : Write(string:width).

Đó là một Delphi đáng thương divcho phân chia số nguyên (thay vì chỉ \). À ...

APL (Dyalog Classic) , 39 byte

{⍉↑(-1++\a)↑¨'_\'[a←-2-/⌊.5+⍵×⍺÷⍨⍳1+⍺]}

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