in reply to ASCII Pattern - Golf
I can get 83:
$i=9;do{print((map{(sort map{abs}$_-$ARGV[0],$i-$ARGV[1])[-1]}1..9),"\ +n")}while--$i
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: ASCII Pattern - Golf (Russ: 77)
by Russ (Deacon) on Sep 19, 2003 at 02:57 UTC | |
by cLive ;-) (Prior) on Sep 19, 2003 at 03:52 UTC | |
by Sidhekin (Priest) on Sep 19, 2003 at 22:56 UTC |
In Section
Seekers of Perl Wisdom