LTD Puzzle 3: ASCII Art Shapes

[damber]

This weeks challenge is to create some ASCII art in the shortest code possible. The objectives are:

• Be able to draw a solid circle/ellipse of user definable height and width and...
• Be able to draw a solid triangle of user definable height and width
• User should be able to choose at runtime to print either shape, or both
• User should be able to choose the ASCII print character (which should be consistent throughout the shapes)
• Height and Width defined in characters (e.g. 3char x 3char)

Remember that the challenge here is to do this in the shortest code possible, so have fun streamlining, optimising and essentially making it unreadable but very short

Good luck!

[Emtucifor]

vbLine number Off | Show | Select all

1. Sub A()
2.     Dim C, W, H, X, Y, T
3.     C = Left(InputBox("Character") & "X", 1)
4.     If LCase(InputBox("Triangle (Y/N)")) <> "n" Then
5.         H = Val(InputBox("Height")) - 1
6.         W = Val(InputBox("Width")) - 1
7.         If H = 0 Then
8.             Debug.Print String$(W + 1, C)
9.         Else
10.             For Y = 0 To H
11.                 Debug.Print String$(Y / H * W + 1, C)
12.             Next
13.         End If
14.         Debug.Print
15.     End If
16.     If LCase(InputBox("Ellipse (Y/N)")) <> "n" Then
17.         H = Val(InputBox("Height")) - 1
18.         W = Val(InputBox("Width"))
19.         If H = 0 Then
20.             Debug.Print String$(W, C)
21.         Else
22.             For Y = 0.1 To H Step (H - 0.2) / H
23.                 T = String$((1 - (Abs(H / 2 - Y) / H * 2) ^ 2) ^ 0.5 * W, C)
24.                 Debug.Print Space$(W \\ 2 - Len(T) \\ 2) & T
25.             Next
26.         End If
27.         Debug.Print
28.     End If
29. End Sub

Code is hidden, SHOW

Drat having to deal with ascii shapes of width or height 1...

edit: minor formatting changes

[Emtucifor]

On the inner loop for the ellipse, replace the two lines with

vbLine number Off | Show | Select all

1. T = String$((1 - (1 - 2 * Y / H) ^ 2) ^ 0.5 * W, C)
2. Debug.Print Space$((W - Len(T)) \\ 2) & T

Code is hidden, SHOW

[AlexCuse]

Thanks to Erik for some help with the ellipse.

C# 3 with lambda expressions - some long lines, copy into a text editor to see em:

csharpLine number Off | Show | Select all

1. delegate void prn(char ch,int wi,int ht);
2. delegate void mbn();
3. static void Main(string[] args){        
4.     mbn mbna=()=>Console.WriteLine("must be numeric");
5.     char c;int w,h;string sT="X";
6.     while (!"TEB".Contains(sT)){Console.Write("Which shape to draw? (t/e/b)");sT=Console.ReadLine().Substring(0,1).ToUpper();}
7.     Console.Write("What character to use? ");c=char.Parse(Console.ReadLine().Substring(0,1));
8.     Console.Write("How tall should it be? ");while(!int.TryParse(Console.ReadLine(),out h))mbna();
9.     Console.Write("How wide should it be? ");while(!int.TryParse(Console.ReadLine(),out w))mbna();
10.     prn pt = (ch,wi,ht)=>{for(int i=1;i<=ht;i++)Console.WriteLine(new string(ch,(int)((1.00)*i/ht*wi)));};
11.     prn pe = (ch,wi,ht)=>{string s;for(double i=0.1;ht-i>.001;i+=(ht-0.1)/ht){s=new string(ch,(int)(Math.Sqrt(1-Math.Pow((ht/2-i)/ht*2,2))*wi));Console.WriteLine(new string(' ',(wi-s.Length)/2)+s);}};
12.     if("TB".Contains(sT))pt(c,w,h);
13.     if("EB".Contains(sT))pe(c,w,h);
14. }

Code is hidden, SHOW

[AlexCuse]

since we're going for shortest code, and I've been meaning to start learning it anyways, I decided to try python. i'm sure it can be done better!

pythonLine number Off | Show | Select all

1. >>>def get_num(prompt):
2.     x=raw_input(prompt)
3.     if x.isdigit():
4.         return int(x)
5.     else:
6.         return int(0)   
7. >>>def print_shapes():
8.     h=get_num('height?')
9.     w=get_num('width?')
10.     c=raw_input('char?')[0]
11.     sp=raw_input('what to print? t/e/b')[0].upper()
12.     if "TB".find(sp)>=0:
13.         i=0 
14.         while i<=h:
15.             print c*int(1.0*i/h*w)
16.             i=i+1
17.     if "EB".find(sp)>=0:
18.         i=0.1
19.         while h-i>.001:
20.             s=c*int((1-((h/2-i)/h*2)**2)*w)
21.             print " "*((w-len(s))/2) + s
22.             i=i+((h-0.1)/h)

Code is hidden, SHOW

[Emtucifor]

I liked this puzzle.

[damber]

any more entries? this is your last chance - after today, we will be moving onto the next puzzle...

[damber]

There are 2 types of winner - a "People's Champion" (the one with the most rating points across all their posts) and the LTD Admin's Champion (selected with our special formula....honest...well, maybe it's just the ones that the admins thought were particularly good )

So...

People's Champion: AlexCuse scoring 12 points from 2 different solutions (C# and Python)

LTD Admin's Champion: ErikE for being the first to post a solution which part inspired others, and for a pretty short and concise result.


Congratulations to all.. and good luck on next weeks puzzle