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

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


John.
--


Comment on Re: ASCII Rulers
Select or Download Code
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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (8)
As of 2014-07-23 00:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (130 votes), past polls