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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-11-04 20:28:54 -08:00
parent 52a6ef48dd
commit 157b70a810
604 changed files with 14253 additions and 2100 deletions
Download patch file Download diff file Expand all files Collapse all files

24
Task/Evolutionary-algorithm/PascalABC.NET/evolutionary-algorithm.pas Normal file
View file

@ -0,0 +1,24 @@
const
Target = 'METHINKS IT IS LIKE A WEASEL';
Alphabet = ' ABCDEFGHIJLKLMNOPQRSTUVWXYZ';
P = 0.05;
C = 100;
function negFitness(trial: string) :=
trial.Zip(Target, (x, y) -> (if x = y then 0 else 1)).Sum;
function mutate(parent: string) :=
parent.Aggregate('', (mut, ch) -> mut + (if Random(1.0) < P then Alphabet.RandomElement else ch));
begin
var parent := (1..Target.Length).Aggregate('', (p, x)-> p + Alphabet.RandomElement);
var i := 0;
while parent <> Target do
begin
var copies := ArrGen(C, x -> mutate(parent));
parent := copies.Aggregate((p, x) -> (if negFitness(x) < negFitness(p) then x else p));
if i mod 10 = 0 then Println(i, ' ', parent);
i += 1;
end;
Println(i, ' ', parent)
end.