aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

update

Browse source
This commit is contained in:
Ingy döt Net 2013-06-05 21:47:54 +00:00
parent 1f1ad49427
commit 6f050a029e
2496 changed files with 37609 additions and 3031 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Evolutionary-algorithm/Perl-6/evolutionary-algorithm.pl6
View file

@ -10,4 +10,4 @@ loop (
my $parent = alphabet.roll(target.chars).join;
$parent ne target;
$parent = max :by(&fitness), mutate($parent) xx C
) { printf "%6d: '%s' %2d\n", (state $)++, $parent, fitness $parent }
) { printf "%6d: '%s'\n", (state $)++, $parent }