Help for this page

Select Code to Download


  1. or download this
      printf "%${max_length_generation}s: %${max_length_children}s   %s\n"
+,$_,commify($generations{$_}),$generations{$_}/$generations{max($_-1,
+1)};
  2. or download this
    my @distribution=(0,0,1,1,1,2,2,2,2,3,3,4,5);
  3. or download this
     my $children = $distribution[rand(@distribution)];
# instead of  my $children = int(rand(6));