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

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

31
Task/Evolutionary-algorithm/Tailspin/evolutionary-algorithm.tailspin Normal file
View file

@ -0,0 +1,31 @@
def alphabet: [' ABCDEFGHIJKLMNOPQRSTUVWXYZ'...];
def target: ['METHINKS IT IS LIKE A WEASEL'...];
def generationSize: 100;
def mutationPercent: 10;
source randomCharacter
$alphabet::length -> SYS::randomInt -> $alphabet($+1)!
end randomCharacter
templates countFitness
@:0;
$ -> \[i](when <=$target($i)> do @countFitness: $@countFitness + 1; \) -> !VOID
{ candidate: $, fitness: $@countFitness } !
end countFitness
sink evolve
@: {generation: 0"1", parent: $};
$@.parent -> #
when <{fitness: <=$target::length>}> do
'Target "$target...;" reached after $@.generation; generations' -> !OUT::write
otherwise
'Fitness $.fitness; at generation $@.generation;: "$.candidate...;"$#10;' -> !OUT::write
@.generation: $@.generation + 1"1";
1..$generationSize -> [$@.parent.candidate... -> \(
when <?(100 -> SYS::randomInt <..~$mutationPercent>)> do $randomCharacter!
otherwise $!
\)] -> countFitness -> \(when <{fitness: <$@evolve.parent.fitness..>}> do @evolve.parent: $;\) -> !VOID
$@.parent -> #
end evolve
[1..$target::length -> $randomCharacter] -> countFitness -> !evolve