编写最短的程序，用ASCII艺术画出一条布雷森纳姆线。您的程序应使用两个整数x和y（选择命令行或标准输入），并绘制一个ASCII行，该行从左上方开始，向右移动x，向下移动y。您必须使用_和\字符，并根据Bresenham的算法将其放置在正确的位置。

您可以假设x >= y，因此不需要垂直线段。

请注意，由于您使用的是_字符，因此与之对应的一行y=3可能需要输出4行文本（并且在不必要时可能会发出前导空白行）。

例子：

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

5 4

\
 \_
   \
    \

对于正好是中点的点，您可以选择任一取整：

10 1
____
    \_____
or
_____
     \____

Perl，74岁

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

使用-n选项运行（以代码大小计）。

$ 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 136123个字符

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);}}

德菲（109）

如果您问我，这个数字很小：

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个整数。

换行符是由很少使用的^J语法（即LineFeed）编写的，以下' \'字符使用鲜为人知的语法缩进：Write(string:width)。

div对于整数除法（而不是），这是一个可怜的Delphi \。呃，好吧...

APL（Dyalog Classic），39字节

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

在线尝试！