Select Code to Download

434412 -REPN=10 -LOCN=30 -S
#prog   people   loc'tns (srand(1) for testing)

[  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

#! 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;

[   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.