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

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Evolutionary-algorithm/Aime/evolutionary-algorithm.aime
View file

@ -8,7 +8,7 @@ fitness(data t, data b)
i = b_length(t);
while (i) {
i -= 1;
f += sign(b_character(t, i) ^ b_character(b, i));
f += sign(t[i] ^ b[i]);
}
return f;
@ -23,9 +23,9 @@ mutate(data c, data b, data u)
i = 0;
while (i < l) {
if (drand(15)) {
b_append(c, b_character(b, i));
b_append(c, b[i]);
} else {
b_append(c, b_character(u, drand(26)));
b_append(c, u[drand(26)]);
}
i += 1;
}
@ -45,7 +45,7 @@ main(void)
i = l;
while (i) {
i -= 1;
b_append(b, b_character(u, drand(26)));
b_append(b, u[drand(26)]);
}
f = fitness(t, b);
@ -53,9 +53,7 @@ main(void)
data n;
integer a;
o_winteger(-4, f);
o_text(b_string(b));
o_newline();
o_form("/lw4/~\n", f, b_string(b));
n = b;
@ -75,9 +73,7 @@ main(void)
b = n;
}
o_winteger(-4, f);
o_text(b_string(b));
o_newline();
o_form("/lw4/~\n", f, b_string(b));
return 0;
}