Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

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::


Comment on Re: ASCII Rulers
Select or Download Code
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 chanting in the Monastery: (6)
As of 2015-11-26 00:45 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (695 votes), past polls