Rich Morin wrote: > At 9:04 AM -0500 2/10/01, Kevin Reid wrote: > >for$y(0..31){for(0..31){print$_&$y?$":'*'}print$/} > > nice (not the formatting; the logic :-) Here's the graphical version which that was based on, which also displays it in a more traditional orientation: use Mac'Windows;use constant B=>new RGBColor(0,0,0);END{$w->dispose if$w}($w= new MacWindow new Rect(50,50,314,314),'Sierpinski',1,22,1)->sethook(redraw=>sub {for($x=0;$x<256;$x++){for($y=0;$y<256-$x;$y++){Mac'QuickDraw'SetCPixel$x+$y/2+ 4,256-$y+2,B if!($x&$y)}}});Mac'Events'WaitNextEvent while$w->window; -- Kevin Reid: | Macintosh: "I'm me." | Think different. ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe