Select Code to Download

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

sub a{abs$ARGV[shift]-pop}for($y=9;$y;$y--){print a(1,$y)>a(0,$_)?a 1,
+$y:a(0,$_)for 1..9;print$/}