in reply to ASCII Pattern - Golf
Useless but interesting digression: ...$_=('x'x9 .$/)x9; substr($_,10*(9-$ARGV[1])+$ARGV[0]-1,1)=0; for$a(0..8){for$b(0,8,9,10){s/(?<=$a.{$b})x|x(?=.{$b}$a)/$a+1/esg}} print;
This produces (with starting 0 at 2,3):$_=('x'x9 .$/)x9; substr($_,10*(9-$ARGV[1])+$ARGV[0]-1,1)=0; substr($_,10*3+3,5)='-----'; # extra barrier for$a(0..8){for$b(0,8,9,10){s/(?<=$a.{$b})x|x(?=.{$b}$a)/$a+1/esg}} print;
666666789 555556789 444456788 333-----7 222234567 111234567 101234567 111234567 222234567
--
[ e d @ h a l l e y . c c ]
|
|---|