Select Code to Download

444444444
433333334
...
432222234
433333334
444444444

666666667
555555567
...
101234567
111234567
222234567

#!/usr/bin/perl
for($y=9;$y>0;$y--){print abs$ARGV[1]-$y>abs$ARGV[0]-$_?abs$ARGV[1]-$y
+:abs($ARGV[0]-$_)for(1..9);print"\n"}