Escreva o programa mais curto possível que desenhe uma linha de Bresenham na arte ASCII. Seu programa deve pegar dois números inteiros xe y(linha de comando ou stdin, sua escolha) e desenhar uma linha ASCII que começa no canto superior esquerdo e vai para a direita xe para baixo y. Você deve usar _e \personagens e colocá-los no local correto de acordo com o Bresenham algoritmo.

Você pode assumir x >= y, portanto, nenhum segmento vertical é necessário.

Observe que, como você está usando o _caractere, para uma linha com y=3você, provavelmente será necessário gerar 4 linhas de texto (e você poderá emitir uma linha em branco à esquerda quando não for necessário).

exemplos:

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

5 4

\
 \_
   \
    \

Para pontos que estão exatamente na metade do caminho, você pode escolher um arredondamento:

10 1
____
    \_____
or
_____
     \____

Perl, 74

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

Execute com a -nopção (contada no tamanho do código).

$ 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 caracteres

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

Muito pequeno se você me perguntar:

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.

Os 2 números inteiros são lidos na linha de comando.

A nova linha é escrita pelo seldomly usado ^Jsintaxe (que significa Alimentação de linhas), a seguinte ' \caráter' é recuado usando a sintaxe conhecida-pouco: Write(string:width).

É um Delphi pitty divpara inteiro de divisão (em vez de apenas \). Ah bem...

APL (Dyalog Classic) , 39 bytes

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

Experimente online!