Напишите самую короткую из возможных программ, которая рисует линию Брезенхема в искусстве ASCII. Ваша программа должна взять два целых числа xи y(командная строка или стандартный ввод, по вашему выбору) и нарисовать линию ASCII, которая начинается в верхнем левом углу и идет вправо xи вниз y. Вы должны использовать _и \символы и размещать их в правильном месте в соответствии с алгоритмом Брезенхэма .

Вы можете предположить 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 136 123 символов

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).

Это жалкий Delphi divдля целочисленного деления (а не просто \). Ах хорошо...

APL (Dyalog Classic) , 39 байт

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

Попробуйте онлайн!