Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Evolution in Action.

by BrowserUk (Pope)
on Feb 26, 2005 at 10:19 UTC ( #434758=CUFP: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    434412 -REPN=10 -LOCN=30 -S
    #prog   people   loc'tns (srand(1) for testing)
    
  2. or download this
    [  12 85] 127.723 [ [ 42: 80][ 74: 10] ]
    [  31 82]  156.39 [ [ 27: 27][ 57: 36][ 45: 94][ 58: 69] ]
    ...
    
    #Cur'nt(Best )  Best   Current
    #Iters (iters)  score  score
    
  3. or download this
    #! perl -slw
    use strict;
    ...
    
    printf 'Enter to see record of best discovery points.'; <STDIN>;
    print "Best score: $best{ $_ } after $_ iterations." for sort{ $a <=> 
    +$b } keys %best;
    
  4. or download this
    [   0 19] 41.3038 [ [  5: 60] ]
    [   0 36] 45.0111 [ [ 45: 35] ]
    ...
    Best score: 442.160363943557 after 2282 iterations.
    Best score: 441.218607935927 after 2283 iterations.
    Best score: 435.401484875951 after 21726 iterations.
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (7)
As of 2021-03-04 13:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favorite kind of desktop background is:











    Results (104 votes). Check out past polls.

    Notices?