RE: Re: outputting fun

in reply to Re: outputting fun
in thread outputting fun

Just would like to say that Iam a wingnut :)

for(my($c)=71,my($i)=0; $c >= 65; $c--,$i++) {
  print ( 
    (chr(65)..chr($c)),
    (' 'x($i+($i-1))),
    reverse(chr(65)..chr(($c==71)? $c-1 : $c)),
    "\n"
  ); 
}
[download]

p.s. I broke it into multi-line so that it was readable :)

lindex

/****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/
[download]

In Section Seekers of Perl Wisdom