Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

A Beginning Guide To Evolutionary Algorithms

by blokhead (Monsignor)
on Oct 13, 2003 at 16:59 UTC ( [id://298877] : perlmeditation . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
       parent 1: "aaaaaaaaaaaaaa"  (these are only copies -- the parents a
    +re
       parent 2: "AAAAAAAAAAAAAA"      not modified in this operation)
    ...
          and then swap sections..
       result 1: "aaaaaaAAAAAAaa"
       result 2: "AAAAAAaaaaaaAA"
    
  2. or download this
    use strict;
    use List::Util qw/shuffle sum/;
    ...
    sub rand_string {
        join "" => map { rand() > 0.5 ? 0 : 1 } 1 .. $str_length;
    }