Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re: ASCII Rulers

by jmcnamara (Monsignor)
on Apr 03, 2001 at 15:01 UTC ( #69260=note: print w/replies, xml ) Need Help??

in reply to ASCII Rulers

I always look at these golf challenges and think "I bet x would be shorter" but it rarely is. Anyway:
sub ruler { my($n,$r) = (int($_[0]+9)/10, ' '); $r .= sprintf"%10s",$_ for (1..$n); "$r\n" . '0123456789' x $n . "0\n"; }
The sprintf would save a few strokes in your code but nothing significant. I'll take your word for it that there is a column 0. ;-)

For shorter rulers I often use a sequence like this which fits on one line and is easy to count::


Replies are listed 'Best First'.
Re: Re: ASCII Rulers
by grinder (Bishop) on Apr 03, 2001 at 15:57 UTC
    I'll take your word for it that there is a column 0. ;-)

    Heh! Point taken (given). Yes there is, because then I used that value as the offset arg for substr.
    g r i n d e r

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://69260]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (6)
As of 2016-10-26 00:50 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (330 votes). Check out past polls.