As a one liner (75 bytes):sub ruler { my $n = ($_[0]+9)/10; (sprintf" "."%10s"x$n."\n",1..$n).'0123456789'x$n."0\n"; }
perl -e'$n=(9+shift)/10;printf" "."%10s"x$n."\n%s0\n",1..$n,"012345678 +9"x$n'
In reply to Re: ASCII Rulers
by jmcnamara
in thread ASCII Rulers
by grinder
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |