Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (2)
As of 2018-02-26 01:56 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (316 votes). Check out past polls.