in reply to Programming Contest (High School '87)
I ain't even in the same ballpark at 88, but it was fun to write :)
$,="\n";$a[6]='';for(1..3){$a[$_-1]=$a[-$_]=" "x(4-$_)."*"x(2*$_-1)}$a +[3]="*"x7;print@a
Cheers,
Ovid
Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.
|
|---|
In Section
Seekers of Perl Wisdom