Beefy Boxes and Bandwidth Generously Provided by pair Networks Russ
Perl Monk, Perl Meditation
 
PerlMonks  

Random numbers Perl ok! (I think)

by liz (Monsignor)
on Oct 12, 2003 at 09:35 UTC ( #298618=perlmeditation: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use strict;
    my @freq;
    ...
        print qq{\n$_($freq[$_]): @{[map {"$_($ref->{$_}x)"} sort {$a <=> 
    +$b} keys %{$ref}]}};
    }
    print "\n$total total\n";
    
  2. or download this
    N frequency     consecutives(times x)
    0(178763622): 2(14480890x) 3(1449710x) 4(144353x) 5(14618x) 6(1459x) 7
    +(146x) 8(19x) 9(1x)
    ...
    8(178766722): 2(14483441x) 3(1448498x) 4(144450x) 5(14594x) 6(1448x) 7
    +(150x) 8(18x) 9(1x)
    9(178775354): 2(14481938x) 3(1446327x) 4(145687x) 5(14591x) 6(1480x) 7
    +(157x) 8(10x) 9(2x)
    1787595999 total
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://298618]
Approved by converter
Front-paged by davido
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (13)
As of 2014-04-17 14:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (450 votes), past polls