September Morn Update

2019-09-12 10:33:56 -07:00 · 2019-09-12 10:33:56 -07:00 · aac6731f2c
commit aac6731f2c
parent 4e2d22a71d
6856 changed files with 141342 additions and 21127 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 = flat 'A'..'Z',' ';
 constant C = 100;

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

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