Schreiben Sie das kürzestmögliche Programm, das eine Bresenham-Linie in ASCII-Kunst zeichnet. Ihr Programm sollte zwei Ganzzahlen xund y(Kommandozeile oder stdin, Ihre Wahl) verwenden und eine ASCII-Linie zeichnen, die oben links beginnt und nach rechts xund unten beginnt y. Sie müssen _und \-Zeichen verwenden und gemäß Bresenhams Algorithmus an der richtigen Stelle platzieren .

Sie können davon ausgehen x >= y, dass keine vertikalen Segmente erforderlich sind.

Da Sie das _Zeichen verwenden, müssen Sie für eine Zeile mit y=3wahrscheinlich 4 Textzeilen ausgeben (und Sie können eine führende Leerzeile ausgeben, wenn dies nicht erforderlich ist).

Beispiele:

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

5 4

\
 \_
   \
    \

Für Punkte, die genau auf halber Strecke liegen, können Sie eine der folgenden Rundungen wählen:

10 1
____
    \_____
or
_____
     \____

Perl, 74

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

Mit -nOption ausführen (in Codegröße gezählt).

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

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

Ganz klein, wenn du mich fragst:

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.

Die 2 Ganzzahlen werden von der Befehlszeile gelesen.

Die Neue - Zeile von der selten verwendeten geschrieben ^JSyntax (Bedeutung Zeilenvor), der folgende ‚ \wird‘ Charakter eingekerbt die wenig bekannte Syntax: Write(string:width).

Es ist schade, Delphi divfür Integer-Divide (statt nur \). Ah, gut...

APL (Dyalog Classic) , 39 Byte

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

Probieren Sie es online!