http://qs321.pair.com?node_id=292565


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

Russ