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

RE: Generating a Pattern

by jimt (Chaplain)
on Aug 10, 2000 at 19:59 UTC ( #27311=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    1-10, 500x:  2 secs ( 1.13 usr  0.00 sys =  1.13 cpu) (printing)
    1-10, 500x:  1 secs ( 0.48 usr  0.00 sys =  0.48 cpu) (not printing)
    1-35m  10x: 26 secs (26.53 usr  0.00 sys = 26.53 cpu) (printing)
    1-35,  10x: 15 secs (15.05 usr  0.00 sys = 15.05 cpu) (not printing)
    
  2. or download this
    $x = 1;
    for(1..10){
            $x =~ s/((.)\2*)/length($1).$2/ge;
            #print "@{[split//,$x]}\n";
        }
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (7)
As of 2014-09-19 01:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (129 votes), past polls