Scrivi il programma più breve possibile che disegna una linea di Bresenham nell'arte ASCII. Il tuo programma dovrebbe prendere due numeri interi xe y(riga di comando o stdin, a tua scelta) e disegnare una linea ASCII che inizia in alto a sinistra e va a destra xunità e yunità in basso . È necessario utilizzare _e \personaggi e metterli nella posizione corretta in base al di Bresenham algoritmo.

Si può presumere x >= y, quindi non sono richiesti segmenti verticali.

Nota che, poiché stai usando il _carattere, per una riga con y=3te probabilmente dovrai generare 4 righe di testo (e potresti emettere una riga vuota iniziale quando non è necessario).

esempi:

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

5 4

\
 \_
   \
    \

Per i punti che sono esattamente a metà strada puoi scegliere uno degli arrotondamenti:

10 1
____
    \_____
or
_____
     \____

Perl, 74

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

Esegui con -nopzione (conteggiato nella dimensione del codice).

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

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

Abbastanza piccolo se mi chiedi:

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.

I 2 numeri interi vengono letti dalla riga di comando.

La nuova riga è scritta dai raramente utilizzata ^Jla sintassi (che significa AvanzRiga), il seguente ' \' carattere è rientrato utilizzando la sintassi poco conosciuto: Write(string:width).

È un Delphi penoso divper il numero intero (anziché solo \). Ah bene...

APL (Dyalog Classic) , 39 byte

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

Provalo online!