Perl: the Markov chain saw PerlMonks

### Comment on

 Need Help??

Doubled the speed of the implementation:

```#! perl -slw
use strict;
use Time::HiRes qw[ time ];

my @c1 = (' ', '0'..'9', 'A'..'Z' );
sub fromB37 {
my \$n = shift;
my \$s = '      ';
substr( \$s, \$_, 1, \$c1[ \$n%37 ] ), \$n /= 37 for 0 .. 5;
\$s;
}

my @c2;
\$c2[  ord( \$c1[ \$_ ] ) ] = \$_ for 0 .. 36;
sub toB37 {
my \$n = 0;
\$n = \$n * 37 + \$c2[\$_] for reverse unpack 'C*', \$_[0];
\$n;
}

my \$start = time;
for ( 1 .. 1e6 ) {
my \$s = fromB37( rand 37**6 );
}
printf "fromB37 took %.3f seconds/million\n", time() - \$start;

\$start = time;
for ( 'AAAAA' .. 'CEXHN' ) {
my \$n = toB37( \$_ );
}
printf "toB37 took %.3f second/million\n", time() - \$start;

my @data = map int( rand 37**6 ), 1 .. 1e6;
\$start = time;
\$_ == toB37( fromB37( \$_ ) ) or die \$_ for @data;
printf "Both ways took %.3f second/million\n", time() - \$start;

__END__
C:\test>junk45
fromB37 took 5.309 seconds/million
toB37 took 3.234 second/million
Both ways took 8.953 second/million

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

The start of some sanity?

In reply to Re^2: Fast - Compact That String by BrowserUk
in thread Fast - Compact That String by Limbic~Region

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

• Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
• Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
• Read Where should I post X? if you're not absolutely sure you're posting in the right place.
• Posts may use any of the Perl Monks Approved HTML tags:
a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
• You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
 For: Use: & & < < > > [ [ ] ]
• Link using PerlMonks shortcuts! What shortcuts can I use for linking?

Create A New User
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (9)
As of 2018-07-17 16:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

Results (372 votes). Check out past polls.

Notices?