ASCIIアートでブレゼンハムの線を描く最短のプログラムを作成します。プログラムは、2つの整数xとy（コマンドラインまたはstdin、選択）を取り、左上から右xユニットおよび下yユニットに移動するASCII行を描画する必要があります。文字を使用し_、ブレゼンハムのアルゴリズム\に従って正しい場所に配置する必要があります。

を想定してもよいx >= yので、垂直セグメントは必要ありません。

_文字を使用しているため、1行の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+⍺]}

オンラインでお試しください！