Sync

2013-10-27 22:24:23 +00:00 · 2013-10-27 22:24:23 +00:00 · 776bba907c
commit 776bba907c
parent 6f050a029e
3887 changed files with 59894 additions and 7280 deletions
--- a/Task/Evolutionary-algorithm/Perl-6/evolutionary-algorithm.pl6
+++ b/Task/Evolutionary-algorithm/Perl-6/evolutionary-algorithm.pl6
@ -4,7 +4,7 @@ constant alphabet = 'A'..'Z',' ';
 constant C = 100;

 sub mutate { $^string.comb.map({ rand < mutate_chance ?? alphabet.pick !! $_ }).join }
-sub fitness { [+] $^string.comb Zeq target.comb }
+sub fitness { [+] $^string.comb Zeq state @ = target.comb }

 loop (
    my $parent = alphabet.roll(target.chars).join;