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 ]
In reply to Re: ASCII Pattern - Golf
by halley
in thread ASCII Pattern - Golf
by devslashneil
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |