ASCII sanatında bir Bresenham çizgisi çizen mümkün olan en kısa programı yazın. Programınız iki tamsayı almalı xve y(komut satırı veya stdin, seçiminiz) ve sol üstte başlayan ve sağ xbirimlere ve aşağı ybirimlere giden bir ASCII satırı çizmelidir. Bresenham'ın algoritmasına göre _ve \karakterlerini kullanmalı ve doğru konuma yerleştirmelisiniz .

Varsayalım x >= y, böylece dikey segment gerekmez.

_Karakteri kullandığınız için , y=3muhtemelen bir satır için 4 satırlık metin çıktısı almanız gerekeceğini (ve gerekli olmadığında boş bir satır yayınlayabileceğinizi) unutmayın.

örnekler:

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

5 4

\
 \_
   \
    \

Tam olarak yarıya kadar olan puanlar için iki yuvarlamayı da seçebilirsiniz:

10 1
____
    \_____
or
_____
     \____

Perl, 74

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

-nSeçenekle çalıştır (kod boyutunda sayılır).

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

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

Bana sorarsanız oldukça küçük:

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 tamsayı komut satırından okunur.

Yeni satır, nadiren kullanılan ^Jsözdizimi (LineFeed anlamına gelir) tarafından yazılır , aşağıdaki ' \' karakteri az bilinen sözdizimi kullanılarak girintilidir:Write(string:width) .

divTamsayı-bölmek için pitty Delphi (sadece yerine \). Ah şey ...

APL (Dyalog Klasik) , 39 bayt

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

Çevrimiçi deneyin!